X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror.lisp;h=1cf2c8ee57aaefb32357d17562e1889d3c4638f1;hb=71766d9db05e93567cb7e829abfc675c3cb895c9;hp=e9092b9ad0a81d35ba92097ed6bb2e11d1b40230;hpb=8c82cc1e67fe8116431a1d2d4e79005114ff1697;p=sbcl.git

diff --git a/src/code/error.lisp b/src/code/error.lisp
index e9092b9..1cf2c8e 100644
--- 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)
-  ()
+  ((address :initarg :address :reader memory-fault-error-address))
   (:report
    (lambda (condition stream)
-     (declare (ignore condition))
-     (format stream "memory fault"))))
-
+     (format stream "Memory fault in address #x~X" (memory-fault-error-address condition)))))