From 605077b2a6eaaa280bd93a95f818525e858554de Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Fri, 28 Apr 2017 12:31:27 +0200 Subject: [PATCH] cmp: revert progress->debug change cmpdebug issues a debug-note condition, which may interfere with catching warnings. --- src/cmp/cmpmain.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index ebb05b1b0..a0d2b2155 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -668,7 +668,7 @@ compiled successfully, returns the pathname of the compiled file" (+ source-offset *compile-file-position*)) (t1expr form)))) - (cmpdebug "~&;;; End of Pass 1.") + (cmpprogress "~&;;; End of Pass 1.") (setf init-name (compute-init-name output-file :kind (if system-p :object :fasl))) (compiler-pass2 c-pathname h-pathname data-pathname init-name @@ -944,8 +944,8 @@ from the C language code. NIL means \"do not create the file\"." ; (namestring s-pathname)) (defun print-compiler-info () - (cmpdebug "~&;;; OPTIMIZE levels: Safety=~d, Space=~d, Speed=~d, Debug=~d~%;;;~%" - *safety* *space* *speed* *debug*)) + (cmpprogress "~&;;; OPTIMIZE levels: Safety=~d, Space=~d, Speed=~d, Debug=~d~%;;;~%" + *safety* *space* *speed* *debug*)) (defmacro with-compilation-unit (options &rest body) `(progn ,@body))