projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
UNDO: Added *debug-on-failure* (Suggested by: Peter Gijsels <peter.gijsels@gmail...
[fiveam.git]
/
src
/
check.lisp
diff --git
a/src/check.lisp
b/src/check.lisp
index
506d7ba
..
e0eb723
100644
(file)
--- a/
src/check.lisp
+++ b/
src/check.lisp
@@
-133,7
+133,8
@@
Wrapping the TEST form in a NOT simply preducse a negated reason string."
default-reason-args (list "~S did not satisfy ~S" v `',?satisfies)))
(t
(setf bindings '()
default-reason-args (list "~S did not satisfy ~S" v `',?satisfies)))
(t
(setf bindings '()
- effective-test test)))
+ effective-test test
+ default-reason-args "No reason supplied.")))
`(let ,bindings
(if ,effective-test
(add-result 'test-passed :test-expr ',test)
`(let ,bindings
(if ,effective-test
(add-result 'test-passed :test-expr ',test)