diff --git a/test/script-support.lisp b/test/script-support.lisp index 6b9f344a5430aaa02b61188acda530f6b85441c7..5da26d5d3c82a77f890a70c6ad112fed09e7ca7f 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -509,7 +509,7 @@ is bound, write a message and exit on an error. If (defun compile-asdf-script () (with-test () - (ecase (with-asdf-conditions () (maybe-compile-asdf)) + (ecase (with-asdf-conditions (t) (maybe-compile-asdf)) (:not-found (leave-test "Testsuite failed: unable to find ASDF source" 3)) (:previously-compiled