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