Commit 3c52e6b7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix the last test upgrade method.

parent b4333763
......@@ -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~%")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment