+(defun make-error-handler (file)
+ (lambda (condition)
+ (push (list :unhandled-error file)
+ *all-failures*)
+ (cond (*break-on-error*
+ (test-util:really-invoke-debugger condition))
+ (t
+ (format *error-output* "~&Unhandled ~a: ~a~%"
+ (type-of condition) condition)
+ (sb-debug:backtrace)))))
+