projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.4.12: stale bugs
[sbcl.git]
/
src
/
code
/
error.lisp
diff --git
a/src/code/error.lisp
b/src/code/error.lisp
index
e9092b9
..
1cf2c8e
100644
(file)
--- a/
src/code/error.lisp
+++ b/
src/code/error.lisp
@@
-166,9
+166,7
@@
(print-unreadable-object (condition stream))))))
(define-condition memory-fault-error (error)
(print-unreadable-object (condition stream))))))
(define-condition memory-fault-error (error)
- ()
+ ((address :initarg :address :reader memory-fault-error-address))
(:report
(lambda (condition stream)
(:report
(lambda (condition stream)
- (declare (ignore condition))
- (format stream "memory fault"))))
-
+ (format stream "Memory fault in address #x~X" (memory-fault-error-address condition)))))