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