X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcheck.lisp;h=e0eb723fba5d56336f732ea90f5b1ca2b459a5d2;hb=afd9b77ccfe82efa515b6a1546c9f9c4e2a01d8e;hp=506d7ba5c54993b401b73dbab430a69fd2603164;hpb=e7014feff8dbe5f64b13bb9741f1e716c527a395;p=fiveam.git

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)