From 38ea1db6368d028601ae346b326150c56b4a33ab Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 23 Apr 2012 12:56:52 +0200 Subject: [PATCH] Use keywords with LOOP --- src/run.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4