X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcheck.lisp;h=e91b46df8351bee8cfd3679aab6da056fd5673fb;hb=25b02b6e536197f46c8951fed21a452340328bb9;hp=8641302cfd6cee9088f9b3b7a0e31bbb833f4c25;hpb=085b9010ceb3b650a11e6311cea38157fec2acb5;p=fiveam.git

diff --git a/src/check.lisp b/src/check.lisp
index 8641302..e91b46d 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)
@@ -207,13 +207,13 @@ not evaluated."
                                                   :test-expr ',condition)
                                       (return-from ,block-name t))))
            (block nil
-             ,@body
-             (process-failure
-              :reason ,(if reason-control
-                           `(format nil ,reason-control ,@reason-args)
-                           `(format nil "Failed to signal a ~S" ',condition))
-              :test-expr ',condition)
-             (return-from ,block-name nil)))))))
+             ,@body))
+         (process-failure
+          :reason ,(if reason-control
+                       `(format nil ,reason-control ,@reason-args)
+                       `(format nil "Failed to signal a ~S" ',condition))
+          :test-expr ',condition)
+         (return-from ,block-name nil)))))
 
 (defmacro finishes (&body body)
   "Generates a pass if BODY executes to normal completion. In