Fix erroneous break form. Thanks to Zach Beane. master
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 29 Aug 2016 14:08:23 +0000 (08:08 -0600)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 29 Aug 2016 14:08:23 +0000 (08:08 -0600)
debian/changelog
src.lisp

index 2d0ff0e..d07eac5 100644 (file)
@@ -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!
index 984adb6..a7d4d8d 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))