aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-06 00:45:08 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-06 00:45:08 +0000
commitbf2f3ee8984c99eb3313045915db09256c23670b (patch)
tree5cca68fb6e48755bc1cacbd9a9e149d8945a2725 /src
parent3410911228671da46f91d840be5a7c30ddad1ee4 (diff)
downloadopen-axiom-bf2f3ee8984c99eb3313045915db09256c23670b.tar.gz
* core.lisp.pamphlet (|compileLispFile|): Don't leave a FASL if
source code compilation has FAILURE-P.
Diffstat (limited to 'src')
-rw-r--r--src/lisp/ChangeLog6
-rw-r--r--src/lisp/core.lisp.pamphlet6
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))