-(declaim (inline get-iso-8859-10-bytes))
-(defun get-iso-8859-10-bytes(string pos end)
- (declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :iso-8859-10 string pos end))
-
-(defun string->iso-8859-10 (string sstart send null-padding)
- (declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
- (values (string->latin% string sstart send #'get-iso-8859-10-bytes null-padding)))
-
-(defmacro define-iso-8859-10->string* (accessor type)
- (declare (ignore type))
- (let ((name (make-od-name 'iso-8859-10->string* accessor)))
- `(progn
- (defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
-
-(instantiate-octets-definition define-iso-8859-10->string*)
-
-(defmacro define-iso-8859-10->string (accessor type)
- (declare (ignore type))
- `(defun ,(make-od-name 'iso-8859-10->string accessor) (array astart aend)
- (,(make-od-name 'latin->string accessor) array astart aend #'identity)))
-
-(instantiate-octets-definition define-iso-8859-10->string)
-
-(push '((:iso-8859-10 :|iso-8859-10|)
- iso-8859-10->string-aref string->iso-8859-10)
- *external-format-functions*)
-
-(define-external-format (:iso-8859-10 :|iso-8859-10|)
- 1 t
- (let ((iso-8859-10-byte (code->iso-8859-10-mapper bits)))
- (if iso-8859-10-byte
- (setf (sap-ref-8 sap tail) iso-8859-10-byte)
- (stream-encoding-error-and-handle stream bits)))
- (let ((code (iso-8859-10->code-mapper byte)))
- (if code
- (code-char code)
- (stream-decoding-error stream byte)))) ;; TODO -- error check
-
-(define-unibyte-mapper iso-8859-11->code-mapper code->iso-8859-11-mapper