X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Frun.lisp;fp=src%2Frun.lisp;h=2f9d36311e050c02051ef6f7df13a923167a6c84;hb=38ea1db6368d028601ae346b326150c56b4a33ab;hp=c473754ff619078ef5bf260cc3a15ee63d6b5d79;hpb=c7667c4ac1b77d7128e4c43da8f1997ea24d8921;p=fiveam.git

diff --git a/src/run.lisp b/src/run.lisp
index c473754..2f9d363 100644
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -242,8 +242,8 @@ TEST-SPEC can be either a symbol naming a test or test suite, or
 a testable-object object. This function changes the operations
 performed by the !, !! and !!! functions."
   (psetf *!* (lambda ()
-               (loop for test being the hash-keys of *test*
-                     do (setf (status (get-test test)) :unknown))
+               (loop :for test :being :the :hash-keys :of *test*
+                     :do (setf (status (get-test test)) :unknown))
                (bind-run-state ((result-list '()))
                  (with-simple-restart (explain "Ignore the rest of the tests and explain current results")
                    (%run test-spec))