Unmatched right parenthesis and bad format split in print-failure.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Sun, 14 Oct 2012 22:24:51 +0000 (14 17:24 -0500)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Sun, 14 Oct 2012 22:24:51 +0000 (14 17:24 -0500)
lisp-unit.lisp

index bc808b4..350d561 100644 (file)
@@ -144,8 +144,9 @@ assertion.")
 
 (defmethod print-failure ((type (eql :error))
                           form expected actual extras)
-  (format t "~& | ~@[Should have signalled ~{~S~^; ~}" expected)
-  (format t " but saw~] ~{~S~^; ~}" actual))
+  (format t "~& | ~@[Should have signalled ~{~S~^; ~} but saw~]"
+          expected)
+  (format t " ~{~S~^; ~}" actual))
 
 (defmethod print-failure ((type (eql :macro))
                           form expected actual extras)
@@ -282,7 +283,7 @@ assertion.")
                 do
                 (setf
                  (gethash tag tags)
-                 (set-difference tagged-tests names))))))))
+                 (set-difference tagged-tests names)))))))
 
 ;;; Manage tags