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