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

diff --git a/src/code/error.lisp b/src/code/error.lisp
index 8666181..6827435 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