From 27d4cd9abaed4f51ca1a7bc56155f612d8be11d5 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 26 Jul 1993 10:16:30 +0000
Subject: [PATCH] Don't handle compiler-errors, since the compiler should
 handle them.

---
 tools/setup.lisp | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/tools/setup.lisp b/tools/setup.lisp
index 99d655626..20abb6904 100644
--- a/tools/setup.lisp
+++ b/tools/setup.lisp
@@ -187,20 +187,21 @@
 	   (t
 	    (handler-bind
 		((error #'(lambda (condition)
-			    (format *error-output* "~2&~A~2&"
-				    condition)
-			    (when proceed
-			      (format *error-output* "Proceeding...~%")
-			      (continue))
-			    (format *error-output* "Aborting...~%")
-			    (handler-case
-				(let ((*debug-io* *error-output*))
-				  (debug:backtrace))
-			      (error (condition)
-				     (declare (ignore condition))
-				     (format t "Error in backtrace!~%")))
-			    (format t "Error abort.~%")
-			    (return-from comf))))
+			    (unless (typep condition 'c::compiler-error)
+			      (format *error-output* "~2&~A~2&"
+				      condition)
+			      (when proceed
+				(format *error-output* "Proceeding...~%")
+				(continue))
+			      (format *error-output* "Aborting...~%")
+			      (handler-case
+				  (let ((*debug-io* *error-output*))
+				    (debug:backtrace))
+				(error (condition)
+				       (declare (ignore condition))
+				       (format t "Error in backtrace!~%")))
+			      (format t "Error abort.~%")
+			      (return-from comf)))))
 	      (if assem
 		  (c::assemble-file src :output-file obj)
 		  (compile-file src  :error-file nil  :output-file obj))
-- 
GitLab