From ff34993c44227c3b76324cb4ad2964b2e952c61a Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Mon, 15 Aug 2016 20:56:51 -0500 Subject: [PATCH] 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. --- test/script-support.lisp | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/test/script-support.lisp b/test/script-support.lisp index 6b9f344a5..34d3ec131 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -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)) -- GitLab