From d81f22340448378857a673323663d88ca47bcd89 Mon Sep 17 00:00:00 2001 From: "Thomas M. Hermann" Date: Sun, 14 Oct 2012 17:24:51 -0500 Subject: [PATCH] Unmatched right parenthesis and bad format split in print-failure. --- lisp-unit.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 2.11.4.GIT