diff --git a/test/script-support.lisp b/test/script-support.lisp index fd8fcf7bcd1b3105845ea34bebaed7db33a1237f..357bbae17939616108384d965d15f7ed5566671b 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -443,9 +443,9 @@ is bound, write a message and exit on an error. If (leave-test "Your Lisp implementation does not provide ASDF. Skipping test.~%" 0))) (t (format t "Loading old asdf ~A via ~A~%" tag old-method) - (funcall old-method tag)))) - (setf (asymval :*asdf-verbose*) t) - (setf (asymval :*verbose-out*) *standard-output*) + (funcall old-method tag))) + (setf (asymval :*asdf-verbose*) t) + (setf (asymval :*verbose-out*) *standard-output*)) (format t "Now loading new asdf via method ~A~%" new-method) (funcall new-method) (format t "Testing it~%")