(define-unibyte-mapper cp437->code-mapper code->cp437-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(define-unibyte-mapper cp437->code-mapper code->cp437-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(let ((name (make-od-name 'cp437->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp437->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp437->string*)
(defmacro define-cp437->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp437->string accessor) (array astart aend)
(instantiate-octets-definition define-cp437->string*)
(defmacro define-cp437->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp437->string accessor) (array astart aend)
-(push '((:cp437 :|cp437|)
- cp437->string-aref string->cp437)
- *external-format-functions*)
+(add-external-format-funs '(:cp437 :|cp437|)
+ '(cp437->string-aref string->cp437))
(define-external-format (:cp437 :|cp437|)
1 t
(let ((cp437-byte (code->cp437-mapper bits)))
(if cp437-byte
(setf (sap-ref-8 sap tail) cp437-byte)
(define-external-format (:cp437 :|cp437|)
1 t
(let ((cp437-byte (code->cp437-mapper bits)))
(if cp437-byte
(setf (sap-ref-8 sap tail) cp437-byte)
(define-unibyte-mapper cp850->code-mapper code->cp850-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(define-unibyte-mapper cp850->code-mapper code->cp850-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(let ((name (make-od-name 'cp850->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp850->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp850->string*)
(defmacro define-cp850->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp850->string accessor) (array astart aend)
(instantiate-octets-definition define-cp850->string*)
(defmacro define-cp850->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp850->string accessor) (array astart aend)
-(push '((:cp850 :|cp850|)
- cp850->string-aref string->cp850)
- *external-format-functions*)
+(add-external-format-funs '(:cp850 :|cp850|)
+ '(cp850->string-aref string->cp850))
(define-external-format (:cp850 :|cp850|)
1 t
(let ((cp850-byte (code->cp850-mapper bits)))
(if cp850-byte
(setf (sap-ref-8 sap tail) cp850-byte)
(define-external-format (:cp850 :|cp850|)
1 t
(let ((cp850-byte (code->cp850-mapper bits)))
(if cp850-byte
(setf (sap-ref-8 sap tail) cp850-byte)
(define-unibyte-mapper cp852->code-mapper code->cp852-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(define-unibyte-mapper cp852->code-mapper code->cp852-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(let ((name (make-od-name 'cp852->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp852->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp852->string*)
(defmacro define-cp852->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp852->string accessor) (array astart aend)
(instantiate-octets-definition define-cp852->string*)
(defmacro define-cp852->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp852->string accessor) (array astart aend)
-(push '((:cp852 :|cp852|)
- cp852->string-aref string->cp852)
- *external-format-functions*)
+(add-external-format-funs '(:cp852 :|cp852|)
+ '(cp852->string-aref string->cp852))
(define-external-format (:cp852 :|cp852|)
1 t
(let ((cp852-byte (code->cp852-mapper bits)))
(if cp852-byte
(setf (sap-ref-8 sap tail) cp852-byte)
(define-external-format (:cp852 :|cp852|)
1 t
(let ((cp852-byte (code->cp852-mapper bits)))
(if cp852-byte
(setf (sap-ref-8 sap tail) cp852-byte)
(define-unibyte-mapper cp855->code-mapper code->cp855-mapper
(#x80 #x0452) ; CYRILLIC SMALL LETTER DJE
(define-unibyte-mapper cp855->code-mapper code->cp855-mapper
(#x80 #x0452) ; CYRILLIC SMALL LETTER DJE
(let ((name (make-od-name 'cp855->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp855->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp855->string*)
(defmacro define-cp855->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp855->string accessor) (array astart aend)
(instantiate-octets-definition define-cp855->string*)
(defmacro define-cp855->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp855->string accessor) (array astart aend)
-(push '((:cp855 :|cp855|)
- cp855->string-aref string->cp855)
- *external-format-functions*)
+(add-external-format-funs '(:cp855 :|cp855|)
+ '(cp855->string-aref string->cp855))
(define-external-format (:cp855 :|cp855|)
1 t
(let ((cp855-byte (code->cp855-mapper bits)))
(if cp855-byte
(setf (sap-ref-8 sap tail) cp855-byte)
(define-external-format (:cp855 :|cp855|)
1 t
(let ((cp855-byte (code->cp855-mapper bits)))
(if cp855-byte
(setf (sap-ref-8 sap tail) cp855-byte)
(define-unibyte-mapper cp857->code-mapper code->cp857-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(define-unibyte-mapper cp857->code-mapper code->cp857-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(let ((name (make-od-name 'cp857->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp857->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp857->string*)
(defmacro define-cp857->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp857->string accessor) (array astart aend)
(instantiate-octets-definition define-cp857->string*)
(defmacro define-cp857->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp857->string accessor) (array astart aend)
-(push '((:cp857 :|cp857|)
- cp857->string-aref string->cp857)
- *external-format-functions*)
+(add-external-format-funs '(:cp857 :|cp857|)
+ '(cp857->string-aref string->cp857))
(define-external-format (:cp857 :|cp857|)
1 t
(let ((cp857-byte (code->cp857-mapper bits)))
(if cp857-byte
(setf (sap-ref-8 sap tail) cp857-byte)
(define-external-format (:cp857 :|cp857|)
1 t
(let ((cp857-byte (code->cp857-mapper bits)))
(if cp857-byte
(setf (sap-ref-8 sap tail) cp857-byte)
(define-unibyte-mapper cp860->code-mapper code->cp860-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(define-unibyte-mapper cp860->code-mapper code->cp860-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(let ((name (make-od-name 'cp860->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp860->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp860->string*)
(defmacro define-cp860->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp860->string accessor) (array astart aend)
(instantiate-octets-definition define-cp860->string*)
(defmacro define-cp860->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp860->string accessor) (array astart aend)
-(push '((:cp860 :|cp860|)
- cp860->string-aref string->cp860)
- *external-format-functions*)
+(add-external-format-funs '(:cp860 :|cp860|)
+ '(cp860->string-aref string->cp860))
(define-external-format (:cp860 :|cp860|)
1 t
(let ((cp860-byte (code->cp860-mapper bits)))
(if cp860-byte
(setf (sap-ref-8 sap tail) cp860-byte)
(define-external-format (:cp860 :|cp860|)
1 t
(let ((cp860-byte (code->cp860-mapper bits)))
(if cp860-byte
(setf (sap-ref-8 sap tail) cp860-byte)
(define-unibyte-mapper cp861->code-mapper code->cp861-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(define-unibyte-mapper cp861->code-mapper code->cp861-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(let ((name (make-od-name 'cp861->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp861->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp861->string*)
(defmacro define-cp861->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp861->string accessor) (array astart aend)
(instantiate-octets-definition define-cp861->string*)
(defmacro define-cp861->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp861->string accessor) (array astart aend)
-(push '((:cp861 :|cp861|)
- cp861->string-aref string->cp861)
- *external-format-functions*)
+(add-external-format-funs '(:cp861 :|cp861|)
+ '(cp861->string-aref string->cp861))
(define-external-format (:cp861 :|cp861|)
1 t
(let ((cp861-byte (code->cp861-mapper bits)))
(if cp861-byte
(setf (sap-ref-8 sap tail) cp861-byte)
(define-external-format (:cp861 :|cp861|)
1 t
(let ((cp861-byte (code->cp861-mapper bits)))
(if cp861-byte
(setf (sap-ref-8 sap tail) cp861-byte)
(let ((name (make-od-name 'cp862->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp862->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp862->string*)
(defmacro define-cp862->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp862->string accessor) (array astart aend)
(instantiate-octets-definition define-cp862->string*)
(defmacro define-cp862->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp862->string accessor) (array astart aend)
-(push '((:cp862 :|cp862|)
- cp862->string-aref string->cp862)
- *external-format-functions*)
+(add-external-format-funs '(:cp862 :|cp862|)
+ '(cp862->string-aref string->cp862))
(define-external-format (:cp862 :|cp862|)
1 t
(let ((cp862-byte (code->cp862-mapper bits)))
(if cp862-byte
(setf (sap-ref-8 sap tail) cp862-byte)
(define-external-format (:cp862 :|cp862|)
1 t
(let ((cp862-byte (code->cp862-mapper bits)))
(if cp862-byte
(setf (sap-ref-8 sap tail) cp862-byte)
(define-unibyte-mapper cp863->code-mapper code->cp863-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(define-unibyte-mapper cp863->code-mapper code->cp863-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(let ((name (make-od-name 'cp863->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp863->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp863->string*)
(defmacro define-cp863->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp863->string accessor) (array astart aend)
(instantiate-octets-definition define-cp863->string*)
(defmacro define-cp863->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp863->string accessor) (array astart aend)
-(push '((:cp863 :|cp863|)
- cp863->string-aref string->cp863)
- *external-format-functions*)
+(add-external-format-funs '(:cp863 :|cp863|)
+ '(cp863->string-aref string->cp863))
(define-external-format (:cp863 :|cp863|)
1 t
(let ((cp863-byte (code->cp863-mapper bits)))
(if cp863-byte
(setf (sap-ref-8 sap tail) cp863-byte)
(define-external-format (:cp863 :|cp863|)
1 t
(let ((cp863-byte (code->cp863-mapper bits)))
(if cp863-byte
(setf (sap-ref-8 sap tail) cp863-byte)
(let ((name (make-od-name 'cp864->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp864->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp864->string*)
(defmacro define-cp864->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp864->string accessor) (array astart aend)
(instantiate-octets-definition define-cp864->string*)
(defmacro define-cp864->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp864->string accessor) (array astart aend)
-(push '((:cp864 :|cp864|)
- cp864->string-aref string->cp864)
- *external-format-functions*)
+(add-external-format-funs '(:cp864 :|cp864|)
+ '(cp864->string-aref string->cp864))
(define-external-format (:cp864 :|cp864|)
1 t
(let ((cp864-byte (code->cp864-mapper bits)))
(if cp864-byte
(setf (sap-ref-8 sap tail) cp864-byte)
(define-external-format (:cp864 :|cp864|)
1 t
(let ((cp864-byte (code->cp864-mapper bits)))
(if cp864-byte
(setf (sap-ref-8 sap tail) cp864-byte)
(define-unibyte-mapper cp865->code-mapper code->cp865-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(define-unibyte-mapper cp865->code-mapper code->cp865-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(let ((name (make-od-name 'cp865->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp865->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp865->string*)
(defmacro define-cp865->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp865->string accessor) (array astart aend)
(instantiate-octets-definition define-cp865->string*)
(defmacro define-cp865->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp865->string accessor) (array astart aend)
-(push '((:cp865 :|cp865|)
- cp865->string-aref string->cp865)
- *external-format-functions*)
+(add-external-format-funs '(:cp865 :|cp865|)
+ '(cp865->string-aref string->cp865))
(define-external-format (:cp865 :|cp865|)
1 t
(let ((cp865-byte (code->cp865-mapper bits)))
(if cp865-byte
(setf (sap-ref-8 sap tail) cp865-byte)
(define-external-format (:cp865 :|cp865|)
1 t
(let ((cp865-byte (code->cp865-mapper bits)))
(if cp865-byte
(setf (sap-ref-8 sap tail) cp865-byte)
(define-unibyte-mapper cp866->code-mapper code->cp866-mapper
(#x80 #x0410) ; CYRILLIC CAPITAL LETTER A
(define-unibyte-mapper cp866->code-mapper code->cp866-mapper
(#x80 #x0410) ; CYRILLIC CAPITAL LETTER A
(let ((name (make-od-name 'cp866->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp866->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp866->string*)
(defmacro define-cp866->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp866->string accessor) (array astart aend)
(instantiate-octets-definition define-cp866->string*)
(defmacro define-cp866->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp866->string accessor) (array astart aend)
-(push '((:cp866 :|cp866|)
- cp866->string-aref string->cp866)
- *external-format-functions*)
+(add-external-format-funs '(:cp866 :|cp866|)
+ '(cp866->string-aref string->cp866))
(define-external-format (:cp866 :|cp866|)
1 t
(let ((cp866-byte (code->cp866-mapper bits)))
(if cp866-byte
(setf (sap-ref-8 sap tail) cp866-byte)
(define-external-format (:cp866 :|cp866|)
1 t
(let ((cp866-byte (code->cp866-mapper bits)))
(if cp866-byte
(setf (sap-ref-8 sap tail) cp866-byte)
(let ((name (make-od-name 'cp869->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp869->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp869->string*)
(defmacro define-cp869->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp869->string accessor) (array astart aend)
(instantiate-octets-definition define-cp869->string*)
(defmacro define-cp869->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp869->string accessor) (array astart aend)
-(push '((:cp869 :|cp869|)
- cp869->string-aref string->cp869)
- *external-format-functions*)
+(add-external-format-funs '(:cp869 :|cp869|)
+ '(cp869->string-aref string->cp869))
(define-external-format (:cp869 :|cp869|)
1 t
(let ((cp869-byte (code->cp869-mapper bits)))
(if cp869-byte
(setf (sap-ref-8 sap tail) cp869-byte)
(define-external-format (:cp869 :|cp869|)
1 t
(let ((cp869-byte (code->cp869-mapper bits)))
(if cp869-byte
(setf (sap-ref-8 sap tail) cp869-byte)
(let ((name (make-od-name 'cp874->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(let ((name (make-od-name 'cp874->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
(instantiate-octets-definition define-cp874->string*)
(defmacro define-cp874->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp874->string accessor) (array astart aend)
(instantiate-octets-definition define-cp874->string*)
(defmacro define-cp874->string (accessor type)
(declare (ignore type))
`(defun ,(make-od-name 'cp874->string accessor) (array astart aend)
-(push '((:cp874 :|cp874|)
- cp874->string-aref string->cp874)
- *external-format-functions*)
+(add-external-format-funs '(:cp874 :|cp874|)
+ '(cp874->string-aref string->cp874))
(define-external-format (:cp874 :|cp874|)
1 t
(let ((cp874-byte (code->cp874-mapper bits)))
(if cp874-byte
(setf (sap-ref-8 sap tail) cp874-byte)
(define-external-format (:cp874 :|cp874|)
1 t
(let ((cp874-byte (code->cp874-mapper bits)))
(if cp874-byte
(setf (sap-ref-8 sap tail) cp874-byte)