+(define-condition breakpoint-error (system-condition error) ()
+ (:report
+ (lambda (condition stream)
+ (format stream "Unhandled breakpoint/trap at #x~X."
+ (system-condition-address condition)))))
+
+(define-condition interactive-interrupt (system-condition serious-condition) ()
+ (:report
+ (lambda (condition stream)
+ (format stream "Interactive interrupt at #x~X."
+ (system-condition-address condition)))))