mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: don't be so chatty (2)

Browse source
This commit is contained in:
Daniel Kochmanski 2017-04-28 11:23:49 +02:00
parent 6dfe30a26c
commit aa2a88160c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpmain.lsp
View file

@ -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))