Commit ff34993c authored by Robert Goldman's avatar Robert Goldman

Fix treatment of CCL:PROCESS-RESET.

This condition, incorrectly made a subclass of SERIOUS-CONDITION,
was breaking some tests, because a normal termination using
(EXIT-LISP 0) could cause this to be signaled.
parent 81452d5d
......@@ -367,6 +367,9 @@ code (an integer, 0 for success), up as exit code."
(defmacro with-test ((&optional) &body body)
`(call-with-test (lambda () ,@body)))
(deftype test-fatal-condition ()
`(and serious-condition #+ccl (not ccl:process-reset)))
(defun call-with-test (thunk)
"Unless the environment variable DEBUG_ASDF_TEST
is bound, write a message and exit on an error. If
......@@ -375,13 +378,7 @@ is bound, write a message and exit on an error. If
(let ((result
(catch :asdf-test-done
(handler-bind
(
#+ccl
(ccl:process-reset
(lambda (c)
(declare (ignore c))
nil))
(serious-condition
((test-fatal-condition
(lambda (c)
(ignore-errors
(format *error-output* "~&TEST ABORTED: ~A~&" c))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment