From 38ea1db6368d028601ae346b326150c56b4a33ab Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@cddr.org>
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