Fix erroneous break form. Thanks to Zach Beane.

[ptester.git] / src.lisp

diff --git a/src.lisp b/src.lisp
index 984adb6d1fbc3e1df9bb97e52bd87c2c45481b57..a7d4d8d7cba3f7fd16726b77c9724cf9bfe2b0ff 100644 (file)
--- a/src.lisp
+++ b/src.lisp
@@ -145,7 +145,7 @@ taken as a test failure unless test-error is being used.")
          (condition (condition)
            (if* (and (null ,g-catch-breaks)
                      (typep condition 'simple-break))
-              then (break condition)
+              then (break "~&Condition: ~a~%" condition)
             elseif ,g-announce
               then (format *error-output* "~&Condition type: ~a~%"
                            (class-of condition))