(define-external-format (:cp1250 :|cp1250| :windows-1250 :|windows-1250|)
1 t
(let ((cp1250-byte (code->cp1250-mapper bits)))
(if cp1250-byte
(setf (sap-ref-8 sap tail) cp1250-byte)
(define-external-format (:cp1250 :|cp1250| :windows-1250 :|windows-1250|)
1 t
(let ((cp1250-byte (code->cp1250-mapper bits)))
(if cp1250-byte
(setf (sap-ref-8 sap tail) cp1250-byte)