(cond (*break-on-error*
(test-util:really-invoke-debugger condition))
(t
(format *error-output* "~&Unhandled ~a: ~a~%"
(type-of condition) condition)
(cond (*break-on-error*
(test-util:really-invoke-debugger condition))
(t
(format *error-output* "~&Unhandled ~a: ~a~%"
(type-of condition) condition)