Commit 3079d343 authored by Robert P. Goldman's avatar Robert P. Goldman

Removed unnecessary PROGN.

parent 6f47db48
......@@ -10,11 +10,9 @@
(push (merge-pathnames #p"xach-foo-1/") asdf:*central-registry*)
(asdf:load-system "foo")
(assert (symbol-value (find-symbol (string :loaded) :first-version)))
(progn
(push (merge-pathnames #p"xach-foo-2/") asdf:*central-registry*)
(asdf:load-system "foo")
(assert (symbol-value (find-symbol (string :loaded) :second-version)))
(assert (eql 42 (funcall (find-symbol (string :wtf) :second-version)))))
)
)
(push (merge-pathnames #p"xach-foo-2/") asdf:*central-registry*)
(asdf:load-system "foo")
(assert (symbol-value (find-symbol (string :loaded) :second-version)))
(assert (eql 42 (funcall (find-symbol (string :wtf) :second-version))))))
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