projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Can't use &rest in loop destructuring. Use (expected actual . reason) instead.
[fiveam.git]
/
src
/
check.lisp
diff --git
a/src/check.lisp
b/src/check.lisp
index
2e91193
..
b968755
100644
(file)
--- a/
src/check.lisp
+++ b/
src/check.lisp
@@
-196,7
+196,7
@@
Wrapping the TEST form in a NOT simply preducse a negated reason string."
for each pair of elements or (is (,predicate ,expr ,value) ,@reason) for each list."
`(progn
,@(if (every #'consp clauses)
for each pair of elements or (is (,predicate ,expr ,value) ,@reason) for each list."
`(progn
,@(if (every #'consp clauses)
- (loop for (expected actual &rest reason) in clauses
+ (loop for (expected actual . reason) in clauses
collect `(is (,predicate ,expected ,actual) ,@reason))
(progn
(assert (evenp (list-length clauses)))
collect `(is (,predicate ,expected ,actual) ,@reason))
(progn
(assert (evenp (list-length clauses)))