From aa2a88160cf01b54ea2c22300fb5320d02edb8f1 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Fri, 28 Apr 2017 11:23:49 +0200 Subject: [PATCH] cmp: don't be so chatty (2) --- 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 a0d2b2155..ebb05b1b0 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)))) - (cmpprogress "~&;;; End of Pass 1.") + (cmpdebug "~&;;; 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 () - (cmpprogress "~&;;; OPTIMIZE levels: Safety=~d, Space=~d, Speed=~d, Debug=~d~%;;;~%" - *safety* *space* *speed* *debug*)) + (cmpdebug "~&;;; OPTIMIZE levels: Safety=~d, Space=~d, Speed=~d, Debug=~d~%;;;~%" + *safety* *space* *speed* *debug*)) (defmacro with-compilation-unit (options &rest body) `(progn ,@body))