X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ferror.lisp;h=9d8082ba67cd58fae0fb070000b89f963b2ea043;hb=ad3beba970fab6e451a461c9f9b14faf4ef17718;hp=a0b0c2b1a2d618efc3b5029b27a8300a9ad69d87;hpb=77d94d36bcfd3d5eea73ad51e6ee621a8938f995;p=sbcl.git

diff --git a/src/code/error.lisp b/src/code/error.lisp
index a0b0c2b..9d8082b 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -89,7 +89,7 @@
 
 (define-condition character-coding-error (error) ())
 (define-condition character-encoding-error (character-coding-error)
-  ((character :initarg :character :reader character-encoding-error-character)))
+  ((code :initarg :code :reader character-encoding-error-code)))
 (define-condition character-decoding-error (character-coding-error)
   ((octets :initarg :octets :reader character-decoding-error-octets)))
 (define-condition stream-encoding-error (stream-error character-encoding-error)
@@ -97,11 +97,11 @@
   (:report
    (lambda (c s)
      (let ((stream (stream-error-stream c))
-           (character (character-encoding-error-character c)))
+           (code (character-encoding-error-code c)))
        (format s "~@<encoding error on stream ~S (~S ~S): ~2I~_~
                   the character with code ~D cannot be encoded.~@:>"
                stream ':external-format (stream-external-format stream)
-               (char-code character))))))
+               code)))))
 (define-condition stream-decoding-error (stream-error character-decoding-error)
   ()
   (:report
@@ -121,3 +121,9 @@
       (format stream
              "Control stack exhausted (no more space for function call frames).  This is probably due to heavily nested or infinitely recursive function calls, or a tail call that SBCL cannot or has not optimized away."))))
 
+(define-condition memory-fault-error (error)
+  ()
+  (:report
+   (lambda (condition stream)
+     (declare (ignore condition))
+     (format stream "memory fault"))))
\ No newline at end of file