projects
/
fiveam.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c7667c4
)
Use keywords with LOOP
author
Stelian Ionescu
<sionescu@cddr.org>
Mon, 23 Apr 2012 10:56:52 +0000
(12:56 +0200)
committer
Stelian Ionescu
<sionescu@cddr.org>
Mon, 23 Apr 2012 10:56:52 +0000
(12:56 +0200)
src/run.lisp
patch
|
blob
|
history
diff --git
a/src/run.lisp
b/src/run.lisp
index
c473754
..
2f9d363
100644
(file)
--- 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 ()
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))
(bind-run-state ((result-list '()))
(with-simple-restart (explain "Ignore the rest of the tests and explain current results")
(%run test-spec))