diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-06 00:45:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-06 00:45:08 +0000 |
| commit | bf2f3ee8984c99eb3313045915db09256c23670b (patch) | |
| tree | 5cca68fb6e48755bc1cacbd9a9e149d8945a2725 | |
| parent | 3410911228671da46f91d840be5a7c30ddad1ee4 (diff) | |
| download | open-axiom-bf2f3ee8984c99eb3313045915db09256c23670b.tar.gz | |
* core.lisp.pamphlet (|compileLispFile|): Don't leave a FASL if
source code compilation has FAILURE-P.
| -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)) |