(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(declare (optimize speed (safety 0))
(type simple-string string)
(type array-range pos end))
(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)