From bf2f3ee8984c99eb3313045915db09256c23670b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 6 Sep 2007 00:45:08 +0000 Subject: * core.lisp.pamphlet (|compileLispFile|): Don't leave a FASL if source code compilation has FAILURE-P. --- src/lisp/core.lisp.pamphlet | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/lisp/core.lisp.pamphlet') 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)) -- cgit v1.2.3