From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Sun, 14 Oct 2012 22:24:51 +0000 (-0500)
Subject: Unmatched right parenthesis and bad format split in print-failure.
X-Git-Tag: 0.9.0~1^2
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/d81f22340448378857a673323663d88ca47bcd89

Unmatched right parenthesis and bad format split in print-failure.
---

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index bc808b4..350d561 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -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