Skip to content
Snippets Groups Projects
Commit 691ed503 authored by wlott's avatar wlott
Browse files

Added a ``continue'' handler in comf around the compile-file so that if

proceed is true and we get a non-continuable error, we will just punt the
compile of that file, and not the load of worldcom or whatever was calling
comf.
parent 083adce7
No related branches found
No related tags found
No related merge requests found
......@@ -175,34 +175,37 @@
(ext:format-universal-time nil (get-universal-time))
name)
(catch 'blow-this-file
(cond
(*interactive*
(if assem
(c::assemble-file src :output-file obj)
(compile-file src :error-file nil :output-file obj))
(when load
(load name :verbose t)))
(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))))
(with-simple-restart
(continue "Blow this file")
(cond
(*interactive*
(if assem
(c::assemble-file src :output-file obj)
(compile-file src :error-file nil :output-file obj))
(when load
(load name :verbose t)))))))))
(load name :verbose t)))
(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))))
(if assem
(c::assemble-file src :output-file obj)
(compile-file src :error-file nil :output-file obj))
(when load
(load name :verbose t))))))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment