projects
/
fiveam.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c832bdc
)
Fix bug in defalut handling of IS macro
author
Marco Baringer
<mb@bese.it>
Thu, 2 Feb 2006 11:12:38 +0000
(12:12 +0100)
committer
Marco Baringer
<mb@bese.it>
Thu, 2 Feb 2006 11:12:38 +0000
(12:12 +0100)
src/check.lisp
patch
|
blob
|
history
diff --git
a/src/check.lisp
b/src/check.lisp
index
1bab17d
..
8641302
100644
(file)
--- a/
src/check.lisp
+++ b/
src/check.lisp
@@
-147,16
+147,14
@@
Wrapping the TEST form in a NOT simply preducse a negated reason string."
(setf bindings (list (list v ?value))
effective-test `(,?satisfies ,v)
default-reason-args (list "~S did not satisfy ~S" v `',?satisfies)))
(setf bindings (list (list v ?value))
effective-test `(,?satisfies ,v)
default-reason-args (list "~S did not satisfy ~S" v `',?satisfies)))
- (t
+ (_?
(setf bindings '()
effective-test test
(setf bindings '()
effective-test test
- default-reason-args "No reason supplied.")))
+ default-reason-args (list "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)
- (process-failure :reason ,(if (null reason-args)
- `(format nil ,@default-reason-args)
- `(format nil ,@reason-args))
+ (process-failure :reason (format nil ,@(or reason-args default-reason-args))
:test-expr ',test))))))
;;;; *** Other checks
:test-expr ',test))))))
;;;; *** Other checks