(define-condition simple-stream-error (simple-condition stream-error) ())
(define-condition simple-parse-error (simple-condition parse-error) ())
(define-condition simple-stream-error (simple-condition stream-error) ())
(define-condition simple-parse-error (simple-condition parse-error) ())
(define-condition character-encoding-error (character-coding-error)
((code :initarg :code :reader character-encoding-error-code)))
(define-condition character-decoding-error (character-coding-error)
(define-condition character-encoding-error (character-coding-error)
((code :initarg :code :reader character-encoding-error-code)))
(define-condition character-decoding-error (character-coding-error)
(code (character-encoding-error-code c)))
(format s "~@<encoding error on stream ~S (~S ~S): ~2I~_~
the character with code ~D cannot be encoded.~@:>"
(code (character-encoding-error-code c)))
(format s "~@<encoding error on stream ~S (~S ~S): ~2I~_~
the character with code ~D cannot be encoded.~@:>"
(octets (character-decoding-error-octets c)))
(format s "~@<decoding error on stream ~S (~S ~S): ~2I~_~
the octet sequence ~S cannot be decoded.~@:>"
(octets (character-decoding-error-octets c)))
(format s "~@<decoding error on stream ~S (~S ~S): ~2I~_~
the octet sequence ~S cannot be decoded.~@:>"
(:report
(lambda (c s)
(format s "~@<c-string encoding error (:external-format ~S): ~2I~_~
the character with code ~D cannot be encoded.~@:>"
(:report
(lambda (c s)
(format s "~@<c-string encoding error (:external-format ~S): ~2I~_~
the character with code ~D cannot be encoded.~@:>"
(character-encoding-error-code c)))))
(define-condition c-string-decoding-error (character-decoding-error)
(character-encoding-error-code c)))))
(define-condition c-string-decoding-error (character-decoding-error)
(:report
(lambda (c s)
(format s "~@<c-string decoding error (:external-format ~S): ~2I~_~
the octet sequence ~S cannot be decoded.~@:>"
(:report
(lambda (c s)
(format s "~@<c-string decoding error (:external-format ~S): ~2I~_~
the octet sequence ~S cannot be decoded.~@:>"
(character-decoding-error-octets c)))))
(define-condition control-stack-exhausted (storage-condition)
(character-decoding-error-octets c)))))
(define-condition control-stack-exhausted (storage-condition)