projects
/
ptester.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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))
(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))
elseif ,g-announce
then (format *error-output* "~&Condition type: ~a~%"
(class-of condition))