- (declare (ignore condition))
- (format stream "memory fault"))))
\ No newline at end of file
+ (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)
+ ((address :initarg :address :reader memory-fault-error-address))
+ (:report
+ (lambda (condition stream)
+ (format stream "Memory fault in address #x~X" (memory-fault-error-address condition)))))