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 /src/lisp/core.lisp.pamphlet | |
| 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.
Diffstat (limited to 'src/lisp/core.lisp.pamphlet')
| -rw-r--r-- | src/lisp/core.lisp.pamphlet | 6 |
1 files changed, 6 insertions, 0 deletions
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)) |