X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Ferror.lisp;h=e9092b9ad0a81d35ba92097ed6bb2e11d1b40230;hb=0d5ff04e2ced1cbb2979dd1a7fcfd7ba3d6da7c1;hp=86661813a60ebc951d8167c0669e8ca2e92bd620;hpb=88cc2f72774202503588331fddd1592ae8546de1;p=sbcl.git

diff --git a/src/code/error.lisp b/src/code/error.lisp
index 8666181..e9092b9 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -124,6 +124,24 @@
                stream ':external-format (stream-external-format stream)
                octets)))))
 
+(define-condition c-string-encoding-error (character-encoding-error)
+  ((external-format :initarg :external-format :reader c-string-encoding-error-external-format))
+  (:report
+   (lambda (c s)
+     (format s "~@<c-string encoding error (:external-format ~S): ~2I~_~
+                  the character with code ~D cannot be encoded.~@:>"
+               (c-string-encoding-error-external-format c)
+               (character-encoding-error-code c)))))
+
+(define-condition c-string-decoding-error (character-decoding-error)
+  ((external-format :initarg :external-format :reader c-string-decoding-error-external-format))
+  (:report
+   (lambda (c s)
+     (format s "~@<c-string decoding error (:external-format ~S): ~2I~_~
+                  the octet sequence ~S cannot be decoded.~@:>"
+             (c-string-decoding-error-external-format c)
+             (character-decoding-error-octets c)))))
+
 (define-condition control-stack-exhausted (storage-condition)
   ()
   (:report
@@ -153,3 +171,4 @@
    (lambda (condition stream)
      (declare (ignore condition))
      (format stream "memory fault"))))
+