Skip to content
Snippets Groups Projects
Commit 3c52e6b7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix the last test upgrade method.

parent b4333763
No related branches found
No related tags found
No related merge requests found
...@@ -443,9 +443,9 @@ is bound, write a message and exit on an error. If ...@@ -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))) (leave-test "Your Lisp implementation does not provide ASDF. Skipping test.~%" 0)))
(t (t
(format t "Loading old asdf ~A via ~A~%" tag old-method) (format t "Loading old asdf ~A via ~A~%" tag old-method)
(funcall old-method tag)))) (funcall old-method tag)))
(setf (asymval :*asdf-verbose*) t) (setf (asymval :*asdf-verbose*) t)
(setf (asymval :*verbose-out*) *standard-output*) (setf (asymval :*verbose-out*) *standard-output*))
(format t "Now loading new asdf via method ~A~%" new-method) (format t "Now loading new asdf via method ~A~%" new-method)
(funcall new-method) (funcall new-method)
(format t "Testing it~%") (format t "Testing it~%")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment