+(define-condition heap-exhausted-error (storage-condition)
+ ()
+ (:report
+ (lambda (condition stream)
+ (declare (special *heap-exhausted-error-available-bytes*
+ *heap-exhausted-error-requested-bytes*))
+ ;; See comments in interr.lisp -- there is a method to this madness.
+ (if (and (boundp '*heap-exhausted-error-available-bytes*)
+ (boundp '*heap-exhausted-error-requested-bytes*))
+ (format stream
+ "Heap exhausted: ~D bytes available, ~D requested. PROCEED WITH CAUTION!"
+ *heap-exhausted-error-available-bytes*
+ *heap-exhausted-error-requested-bytes*)
+ (print-unreadable-object (condition stream))))))
+
+(define-condition memory-fault-error (error)
+ ()
+ (:report
+ (lambda (condition stream)
+ (declare (ignore condition))
+ (format stream "memory fault"))))