From 70b6241d06e594fa8dca68e9ddd77654c76eeb24 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 15 Mar 1990 00:28:06 +0000 Subject: [PATCH] Fixed COMPILE-FILE to not delete the error file when the compile is aborted by a throw. --- compiler/main.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index b0812f4da..61a78c02b 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1000,7 +1000,7 @@ (when error-file-stream (let ((name (pathname error-file-stream))) (close error-file-stream) - (unless error-severity + (when (and compile-won (not error-severity)) (delete-file name)))) (when *compiler-trace-output* -- GitLab