X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcheck.lisp;h=06c9bba8b63dac0a8aeca35c8f31babc5453673b;hb=4fec31c7fee75162da986168c8578017c56c197d;hp=8641302cfd6cee9088f9b3b7a0e31bbb833f4c25;hpb=085b9010ceb3b650a11e6311cea38157fec2acb5;p=fiveam.git

diff --git a/src/check.lisp b/src/check.lisp
index 8641302..06c9bba 100644
--- a/src/check.lisp
+++ b/src/check.lisp
@@ -147,10 +147,10 @@ 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 '()
                effective-test test
-               default-reason-args (list "No reason supplied."))))
+               default-reason-args (list "No reason supplied"))))
       `(let ,bindings
          (if ,effective-test
              (add-result 'test-passed :test-expr ',test)