diff options
| -rw-r--r-- | src/lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | src/lisp/core.lisp.pamphlet | 6 |
2 files changed, 11 insertions, 1 deletions
diff --git a/src/lisp/ChangeLog b/src/lisp/ChangeLog index ea01ea75..a9b92889 100644 --- a/src/lisp/ChangeLog +++ b/src/lisp/ChangeLog @@ -1,7 +1,11 @@ +2007-09-05 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * core.lisp.pamphlet (|compileLispFile|): Don't leave a FASL if + source code compilation has FAILURE-P. + 2007-09-04 Waldek Hebisch <hebisch@math.uni.wroc.pl> Gabriel Dos Reis <gdr@cs.tamu.edu> - * Makefile.pamphlet ($(OUT)/lisp$(EXEEXT)): Don't pretend this is the system GCL. * Makefile.in: Regenerate. diff --git a/src/lisp/core.lisp.pamphlet b/src/lisp/core.lisp.pamphlet index 35df7c29..c35f28bb 100644 --- a/src/lisp/core.lisp.pamphlet +++ b/src/lisp/core.lisp.pamphlet @@ -561,7 +561,13 @@ it would return $0$, meaning that everything is OK. (unless result (|error| "compilation of Lisp code failed")) (cond ((and failure-p) + ;; Since we believe the source code must + ;; be fixed, we don't want to leave + ;; the generated FASL behing us, as that + ;; would confuse both user and tools. + (delete-file result) (|error| "Lisp code contained errors")) + (warning-p (|warn| "Lisp code contained warnings"))) result)) |