From 4d4c693a738f28565def2b2cf2272146efb9a4b6 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Wed, 18 Jan 2006 11:11:16 +0100 Subject: [PATCH] Set the default-reason-args in all the various forms the IS macro handles --- src/check.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/check.lisp b/src/check.lisp index 506d7ba..e0eb723 100644 --- 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 '() - effective-test test))) + effective-test test + default-reason-args "No reason supplied."))) `(let ,bindings (if ,effective-test (add-result 'test-passed :test-expr ',test) -- 1.7.10.4