Fix erroneous break form. Thanks to Zach Beane.

diff --git a/debian/changelog b/debian/changelog
index 2d0ff0e4006eebee59caefc14240f7434ceb6c5d..d07eac552acc66dfea6f4c20d4e3f163f36cfe7b 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-ptester (2.1.3-1) unstable; urgency=low
+
+  * src.lisp: Fix erroneous break form. Thanks to Zach Beane.
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 29 Aug 2016 08:07:33 -0600
+
 cl-ptester (2.1.2-4) unstable; urgency=low
 
   * Resume maintainership - Thanks Peter!

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))