diff options
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)) |