From fe69fde54f4bce00ce577feb918796c293fc7253 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 29 Aug 2016 08:08:23 -0600 Subject: [PATCH] Fix erroneous break form. Thanks to Zach Beane. --- debian/changelog | 6 ++++++ src.lisp | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index 2d0ff0e..d07eac5 100644 --- 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 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 984adb6..a7d4d8d 100644 --- 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)) -- 2.34.1