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

COMPILE-FILE only outputs NIL when there were serious errors

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-16 22:31:54 +01:00
parent a4027bd364
commit cee6703602
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpmain.lsp
View file

@ -703,7 +703,7 @@ compiled successfully, returns the pathname of the compiled file"
(setf warning-p t))
((typep i '(or compiler-error warning))
(setf warning-p t failure-p t)))
finally (return (values (and (not failure-p) main-value) warning-p failure-p))))
finally (return (values main-value warning-p failure-p))))
#-dlopen
(defun compile (name &optional (def nil supplied-p))

2
src/new-cmp/cmpmain.lsp
View file

@ -587,7 +587,7 @@ compiled successfully, returns the pathname of the compiled file"
(setf warning-p t))
((typep i '(or compiler-error warning))
(setf warning-p t failure-p t)))
finally (return (values (and (not failure-p) main-value) warning-p failure-p))))
finally (return (values main-value warning-p failure-p))))
#-dlopen
(defun compile (name &optional (def nil supplied-p))