(define-unibyte-mapper iso-8859-2->code-mapper code->iso-8859-2-mapper
(#xA1 #x0104) ; LATIN CAPITAL LETTER A WITH OGONEK
(define-unibyte-mapper iso-8859-2->code-mapper code->iso-8859-2-mapper
(#xA1 #x0104) ; LATIN CAPITAL LETTER A WITH OGONEK
-(push '((:iso-8859-2 :|iso-8859-2| :latin-2 :|latin-2|)
- iso-8859-2->string-aref string->iso-8859-2)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-2 :|iso-8859-2| :latin-2 :|latin-2|)
+ '(iso-8859-2->string-aref string->iso-8859-2))
(define-external-format (:iso-8859-2 :|iso-8859-2| :latin-2 :|latin-2|)
1 t
(let ((iso-8859-2-byte (code->iso-8859-2-mapper bits)))
(if iso-8859-2-byte
(setf (sap-ref-8 sap tail) iso-8859-2-byte)
(define-external-format (:iso-8859-2 :|iso-8859-2| :latin-2 :|latin-2|)
1 t
(let ((iso-8859-2-byte (code->iso-8859-2-mapper bits)))
(if iso-8859-2-byte
(setf (sap-ref-8 sap tail) iso-8859-2-byte)
(define-unibyte-mapper iso-8859-3->code-mapper code->iso-8859-3-mapper
(#xA1 #x0126) ; LATIN CAPITAL LETTER H WITH STROKE
(define-unibyte-mapper iso-8859-3->code-mapper code->iso-8859-3-mapper
(#xA1 #x0126) ; LATIN CAPITAL LETTER H WITH STROKE
-(push '((:iso-8859-3 :|iso-8859-3| :latin-3 :|latin-3|)
- iso-8859-3->string-aref string->iso-8859-3)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-3 :|iso-8859-3| :latin-3 :|latin-3|)
+ '(iso-8859-3->string-aref string->iso-8859-3))
(define-external-format (:iso-8859-3 :|iso-8859-3| :latin-3 :|latin-3|)
1 t
(let ((iso-8859-3-byte (code->iso-8859-3-mapper bits)))
(if iso-8859-3-byte
(setf (sap-ref-8 sap tail) iso-8859-3-byte)
(define-external-format (:iso-8859-3 :|iso-8859-3| :latin-3 :|latin-3|)
1 t
(let ((iso-8859-3-byte (code->iso-8859-3-mapper bits)))
(if iso-8859-3-byte
(setf (sap-ref-8 sap tail) iso-8859-3-byte)
(define-unibyte-mapper iso-8859-4->code-mapper code->iso-8859-4-mapper
(#xA1 #x0104) ; LATIN CAPITAL LETTER A WITH OGONEK
(define-unibyte-mapper iso-8859-4->code-mapper code->iso-8859-4-mapper
(#xA1 #x0104) ; LATIN CAPITAL LETTER A WITH OGONEK
-(push '((:iso-8859-4 :|iso-8859-4| :latin-4 :|latin-4|)
- iso-8859-4->string-aref string->iso-8859-4)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-4 :|iso-8859-4| :latin-4 :|latin-4|)
+ '(iso-8859-4->string-aref string->iso-8859-4))
(define-external-format (:iso-8859-4 :|iso-8859-4| :latin-4 :|latin-4|)
1 t
(let ((iso-8859-4-byte (code->iso-8859-4-mapper bits)))
(if iso-8859-4-byte
(setf (sap-ref-8 sap tail) iso-8859-4-byte)
(define-external-format (:iso-8859-4 :|iso-8859-4| :latin-4 :|latin-4|)
1 t
(let ((iso-8859-4-byte (code->iso-8859-4-mapper bits)))
(if iso-8859-4-byte
(setf (sap-ref-8 sap tail) iso-8859-4-byte)
(define-unibyte-mapper iso-8859-5->code-mapper code->iso-8859-5-mapper
(#xA1 #x0401) ; CYRILLIC CAPITAL LETTER IO
(define-unibyte-mapper iso-8859-5->code-mapper code->iso-8859-5-mapper
(#xA1 #x0401) ; CYRILLIC CAPITAL LETTER IO
-(push '((:iso-8859-5 :|iso-8859-5|)
- iso-8859-5->string-aref string->iso-8859-5)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-5 :|iso-8859-5|)
+ '(iso-8859-5->string-aref string->iso-8859-5))
(define-external-format (:iso-8859-5 :|iso-8859-5|)
1 t
(let ((iso-8859-5-byte (code->iso-8859-5-mapper bits)))
(if iso-8859-5-byte
(setf (sap-ref-8 sap tail) iso-8859-5-byte)
(define-external-format (:iso-8859-5 :|iso-8859-5|)
1 t
(let ((iso-8859-5-byte (code->iso-8859-5-mapper bits)))
(if iso-8859-5-byte
(setf (sap-ref-8 sap tail) iso-8859-5-byte)
-(push '((:iso-8859-6 :|iso-8859-6|)
- iso-8859-6->string-aref string->iso-8859-6)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-6 :|iso-8859-6|)
+ '(iso-8859-6->string-aref string->iso-8859-6))
(define-external-format (:iso-8859-6 :|iso-8859-6|)
1 t
(let ((iso-8859-6-byte (code->iso-8859-6-mapper bits)))
(if iso-8859-6-byte
(setf (sap-ref-8 sap tail) iso-8859-6-byte)
(define-external-format (:iso-8859-6 :|iso-8859-6|)
1 t
(let ((iso-8859-6-byte (code->iso-8859-6-mapper bits)))
(if iso-8859-6-byte
(setf (sap-ref-8 sap tail) iso-8859-6-byte)
(define-unibyte-mapper iso-8859-7->code-mapper code->iso-8859-7-mapper
(#xA1 #x02BD) ; MODIFIER LETTER REVERSED COMMA
(define-unibyte-mapper iso-8859-7->code-mapper code->iso-8859-7-mapper
(#xA1 #x02BD) ; MODIFIER LETTER REVERSED COMMA
-(push '((:iso-8859-7 :|iso-8859-7|)
- iso-8859-7->string-aref string->iso-8859-7)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-7 :|iso-8859-7|)
+ '(iso-8859-7->string-aref string->iso-8859-7))
(define-external-format (:iso-8859-7 :|iso-8859-7|)
1 t
(let ((iso-8859-7-byte (code->iso-8859-7-mapper bits)))
(if iso-8859-7-byte
(setf (sap-ref-8 sap tail) iso-8859-7-byte)
(define-external-format (:iso-8859-7 :|iso-8859-7|)
1 t
(let ((iso-8859-7-byte (code->iso-8859-7-mapper bits)))
(if iso-8859-7-byte
(setf (sap-ref-8 sap tail) iso-8859-7-byte)
-(push '((:iso-8859-8 :|iso-8859-8|)
- iso-8859-8->string-aref string->iso-8859-8)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-8 :|iso-8859-8|)
+ '(iso-8859-8->string-aref string->iso-8859-8))
(define-external-format (:iso-8859-8 :|iso-8859-8|)
1 t
(let ((iso-8859-8-byte (code->iso-8859-8-mapper bits)))
(if iso-8859-8-byte
(setf (sap-ref-8 sap tail) iso-8859-8-byte)
(define-external-format (:iso-8859-8 :|iso-8859-8|)
1 t
(let ((iso-8859-8-byte (code->iso-8859-8-mapper bits)))
(if iso-8859-8-byte
(setf (sap-ref-8 sap tail) iso-8859-8-byte)
(define-unibyte-mapper iso-8859-9->code-mapper code->iso-8859-9-mapper
(#xD0 #x011E) ; LATIN CAPITAL LETTER G WITH BREVE
(define-unibyte-mapper iso-8859-9->code-mapper code->iso-8859-9-mapper
(#xD0 #x011E) ; LATIN CAPITAL LETTER G WITH BREVE
-(push '((:iso-8859-9 :|iso-8859-9| :latin-5 :|latin-5|)
- iso-8859-9->string-aref string->iso-8859-9)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-9 :|iso-8859-9| :latin-5 :|latin-5|)
+ '(iso-8859-9->string-aref string->iso-8859-9))
(define-external-format (:iso-8859-9 :|iso-8859-9| :latin-5 :|latin-5|)
1 t
(let ((iso-8859-9-byte (code->iso-8859-9-mapper bits)))
(if iso-8859-9-byte
(setf (sap-ref-8 sap tail) iso-8859-9-byte)
(define-external-format (:iso-8859-9 :|iso-8859-9| :latin-5 :|latin-5|)
1 t
(let ((iso-8859-9-byte (code->iso-8859-9-mapper bits)))
(if iso-8859-9-byte
(setf (sap-ref-8 sap tail) iso-8859-9-byte)
(define-unibyte-mapper iso-8859-10->code-mapper code->iso-8859-10-mapper
(#xA1 #x0104) ; LATIN CAPITAL LETTER A WITH OGONEK
(define-unibyte-mapper iso-8859-10->code-mapper code->iso-8859-10-mapper
(#xA1 #x0104) ; LATIN CAPITAL LETTER A WITH OGONEK
- (type array-range pos end))
- (get-latin-bytes #'code->iso-8859-10-mapper :iso-8859-10 string pos end))
+ (type array-range pos))
+ (get-latin-bytes #'code->iso-8859-10-mapper :iso-8859-10 string pos))
-(push '((:iso-8859-10 :|iso-8859-10| :latin-6 :|latin-6|)
- iso-8859-10->string-aref string->iso-8859-10)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-10 :|iso-8859-10| :latin-6 :|latin-6|)
+ '(iso-8859-10->string-aref string->iso-8859-10))
(define-external-format (:iso-8859-10 :|iso-8859-10| :latin-6 :|latin-6|)
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)
(define-external-format (:iso-8859-10 :|iso-8859-10| :latin-6 :|latin-6|)
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)
(define-unibyte-mapper iso-8859-11->code-mapper code->iso-8859-11-mapper
(#xA1 #x0E01) ; THAI CHARACTER KO KAI
(define-unibyte-mapper iso-8859-11->code-mapper code->iso-8859-11-mapper
(#xA1 #x0E01) ; THAI CHARACTER KO KAI
- (type array-range pos end))
- (get-latin-bytes #'code->iso-8859-11-mapper :iso-8859-11 string pos end))
+ (type array-range pos))
+ (get-latin-bytes #'code->iso-8859-11-mapper :iso-8859-11 string pos))
-(push '((:iso-8859-11 :|iso-8859-11|)
- iso-8859-11->string-aref string->iso-8859-11)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-11 :|iso-8859-11|)
+ '(iso-8859-11->string-aref string->iso-8859-11))
(define-external-format (:iso-8859-11 :|iso-8859-11|)
1 t
(let ((iso-8859-11-byte (code->iso-8859-11-mapper bits)))
(if iso-8859-11-byte
(setf (sap-ref-8 sap tail) iso-8859-11-byte)
(define-external-format (:iso-8859-11 :|iso-8859-11|)
1 t
(let ((iso-8859-11-byte (code->iso-8859-11-mapper bits)))
(if iso-8859-11-byte
(setf (sap-ref-8 sap tail) iso-8859-11-byte)
(define-unibyte-mapper iso-8859-13->code-mapper code->iso-8859-13-mapper
(#xA1 #x201D) ; RIGHT DOUBLE QUOTATION MARK
(define-unibyte-mapper iso-8859-13->code-mapper code->iso-8859-13-mapper
(#xA1 #x201D) ; RIGHT DOUBLE QUOTATION MARK
- (type array-range pos end))
- (get-latin-bytes #'code->iso-8859-13-mapper :iso-8859-13 string pos end))
+ (type array-range pos))
+ (get-latin-bytes #'code->iso-8859-13-mapper :iso-8859-13 string pos))
-(push '((:iso-8859-13 :|iso-8859-13| :latin-7 :|latin-7|)
- iso-8859-13->string-aref string->iso-8859-13)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-13 :|iso-8859-13| :latin-7 :|latin-7|)
+ '(iso-8859-13->string-aref string->iso-8859-13))
(define-external-format (:iso-8859-13 :|iso-8859-13| :latin-7 :|latin-7|)
1 t
(let ((iso-8859-13-byte (code->iso-8859-13-mapper bits)))
(if iso-8859-13-byte
(setf (sap-ref-8 sap tail) iso-8859-13-byte)
(define-external-format (:iso-8859-13 :|iso-8859-13| :latin-7 :|latin-7|)
1 t
(let ((iso-8859-13-byte (code->iso-8859-13-mapper bits)))
(if iso-8859-13-byte
(setf (sap-ref-8 sap tail) iso-8859-13-byte)
(define-unibyte-mapper iso-8859-14->code-mapper code->iso-8859-14-mapper
(#xA1 #x1E02) ; LATIN CAPITAL LETTER B WITH DOT ABOVE
(define-unibyte-mapper iso-8859-14->code-mapper code->iso-8859-14-mapper
(#xA1 #x1E02) ; LATIN CAPITAL LETTER B WITH DOT ABOVE
- (type array-range pos end))
- (get-latin-bytes #'code->iso-8859-14-mapper :iso-8859-14 string pos end))
+ (type array-range pos))
+ (get-latin-bytes #'code->iso-8859-14-mapper :iso-8859-14 string pos))
-(push '((:iso-8859-14 :|iso-8859-14| :latin-8 :|latin-8|)
- iso-8859-14->string-aref string->iso-8859-14)
- *external-format-functions*)
+(add-external-format-funs '(:iso-8859-14 :|iso-8859-14| :latin-8 :|latin-8|)
+ '(iso-8859-14->string-aref string->iso-8859-14))
(define-external-format (:iso-8859-14 :|iso-8859-14| :latin-8 :|latin-8|)
1 t
(let ((iso-8859-14-byte (code->iso-8859-14-mapper bits)))
(if iso-8859-14-byte
(setf (sap-ref-8 sap tail) iso-8859-14-byte)
(define-external-format (:iso-8859-14 :|iso-8859-14| :latin-8 :|latin-8|)
1 t
(let ((iso-8859-14-byte (code->iso-8859-14-mapper bits)))
(if iso-8859-14-byte
(setf (sap-ref-8 sap tail) iso-8859-14-byte)