From 3c52e6b703a4c8a18aab231f7f4b76dde79c4bbf Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Tue, 29 Jan 2013 02:15:50 -0500 Subject: [PATCH] Fix the last test upgrade method. --- test/script-support.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/script-support.lisp b/test/script-support.lisp index fd8fcf7bc..357bbae17 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~%") -- GitLab