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

Honor the *COMPILE-VERBOSE* flag also in C:BUILDER

Browse source
This commit is contained in:
jgarcia 2008-05-09 07:47:22 +00:00
parent 18e312f30a
commit 76479f7686
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpmain.lsp
View file

@ -296,7 +296,10 @@ filesystem or in the database of ASDF modules."
(init-name nil)
(prologue-code "")
(epilogue-code (when (eq target :program) '(SI::TOP-LEVEL)))
#+:win32 (system :console))
#+:win32 (system :console)
&aux
(*suppress-compiler-notes* (or *suppress-compiler-notes* (not *compile-verbose*)))
(*suppress-compiler-warnings* (or *suppress-compiler-warnings* (not *compile-verbose*))))
;;
;; The epilogue-code can be either a string made of C code, or a
;; lisp form. In the latter case we add some additional C code to