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