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

cmp: revert progress->debug change

Browse source 
cmpdebug issues a debug-note condition, which may interfere with
catching warnings.
This commit is contained in:
Daniel Kochmanski 2017-04-28 12:31:27 +02:00
parent de70b55ca7
commit 605077b2a6
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))))
(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))