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

Removed unnecessary PROGN.

parent 6f47db48

test/test-xach-update-bug.script

+5 −7
Original line number Diff line number Diff line
@@ -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)))))

   )

 )

   (assert (eql 42 (funcall (find-symbol (string :wtf) :second-version))))))