(declaim (inline get-cp437-bytes))
(defun get-cp437-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp437-bytes))
(defun get-cp437-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp437 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp437-mapper :cp437 string pos end))
(values (string->latin% string sstart send #'get-cp437-bytes null-padding)))
(defmacro define-cp437->string* (accessor type)
(values (string->latin% string sstart send #'get-cp437-bytes null-padding)))
(defmacro define-cp437->string* (accessor type)
(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)
(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
(declaim (inline get-cp850-bytes))
(defun get-cp850-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp850-bytes))
(defun get-cp850-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp850 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp850-mapper :cp850 string pos end))
(values (string->latin% string sstart send #'get-cp850-bytes null-padding)))
(defmacro define-cp850->string* (accessor type)
(values (string->latin% string sstart send #'get-cp850-bytes null-padding)))
(defmacro define-cp850->string* (accessor type)
(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)
(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
(declaim (inline get-cp852-bytes))
(defun get-cp852-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp852-bytes))
(defun get-cp852-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp852 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp852-mapper :cp852 string pos end))
(values (string->latin% string sstart send #'get-cp852-bytes null-padding)))
(defmacro define-cp852->string* (accessor type)
(values (string->latin% string sstart send #'get-cp852-bytes null-padding)))
(defmacro define-cp852->string* (accessor type)
(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)
(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
(declaim (inline get-cp855-bytes))
(defun get-cp855-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp855-bytes))
(defun get-cp855-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp855 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp855-mapper :cp855 string pos end))
(values (string->latin% string sstart send #'get-cp855-bytes null-padding)))
(defmacro define-cp855->string* (accessor type)
(values (string->latin% string sstart send #'get-cp855-bytes null-padding)))
(defmacro define-cp855->string* (accessor type)
(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)
(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
(declaim (inline get-cp857-bytes))
(defun get-cp857-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp857-bytes))
(defun get-cp857-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp857 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp857-mapper :cp857 string pos end))
(values (string->latin% string sstart send #'get-cp857-bytes null-padding)))
(defmacro define-cp857->string* (accessor type)
(values (string->latin% string sstart send #'get-cp857-bytes null-padding)))
(defmacro define-cp857->string* (accessor type)
(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)
(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
(declaim (inline get-cp860-bytes))
(defun get-cp860-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp860-bytes))
(defun get-cp860-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp860 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp860-mapper :cp860 string pos end))
(values (string->latin% string sstart send #'get-cp860-bytes null-padding)))
(defmacro define-cp860->string* (accessor type)
(values (string->latin% string sstart send #'get-cp860-bytes null-padding)))
(defmacro define-cp860->string* (accessor type)
(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)
(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
(declaim (inline get-cp861-bytes))
(defun get-cp861-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp861-bytes))
(defun get-cp861-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp861 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp861-mapper :cp861 string pos end))
(values (string->latin% string sstart send #'get-cp861-bytes null-padding)))
(defmacro define-cp861->string* (accessor type)
(values (string->latin% string sstart send #'get-cp861-bytes null-padding)))
(defmacro define-cp861->string* (accessor type)
(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)
(declaim (inline get-cp862-bytes))
(defun get-cp862-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp862-bytes))
(defun get-cp862-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp862 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp862-mapper :cp862 string pos end))
(values (string->latin% string sstart send #'get-cp862-bytes null-padding)))
(defmacro define-cp862->string* (accessor type)
(values (string->latin% string sstart send #'get-cp862-bytes null-padding)))
(defmacro define-cp862->string* (accessor type)
(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)
(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
(declaim (inline get-cp863-bytes))
(defun get-cp863-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp863-bytes))
(defun get-cp863-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp863 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp863-mapper :cp863 string pos end))
(values (string->latin% string sstart send #'get-cp863-bytes null-padding)))
(defmacro define-cp863->string* (accessor type)
(values (string->latin% string sstart send #'get-cp863-bytes null-padding)))
(defmacro define-cp863->string* (accessor type)
(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)
(declaim (inline get-cp864-bytes))
(defun get-cp864-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp864-bytes))
(defun get-cp864-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp864 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp864-mapper :cp864 string pos end))
(values (string->latin% string sstart send #'get-cp864-bytes null-padding)))
(defmacro define-cp864->string* (accessor type)
(values (string->latin% string sstart send #'get-cp864-bytes null-padding)))
(defmacro define-cp864->string* (accessor type)
(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)
(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
(declaim (inline get-cp865-bytes))
(defun get-cp865-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp865-bytes))
(defun get-cp865-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp865 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp865-mapper :cp865 string pos end))
(values (string->latin% string sstart send #'get-cp865-bytes null-padding)))
(defmacro define-cp865->string* (accessor type)
(values (string->latin% string sstart send #'get-cp865-bytes null-padding)))
(defmacro define-cp865->string* (accessor type)
(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)
(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
(declaim (inline get-cp866-bytes))
(defun get-cp866-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp866-bytes))
(defun get-cp866-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp866 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp866-mapper :cp866 string pos end))
(values (string->latin% string sstart send #'get-cp866-bytes null-padding)))
(defmacro define-cp866->string* (accessor type)
(values (string->latin% string sstart send #'get-cp866-bytes null-padding)))
(defmacro define-cp866->string* (accessor type)
(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)
(declaim (inline get-cp869-bytes))
(defun get-cp869-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp869-bytes))
(defun get-cp869-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp869 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp869-mapper :cp869 string pos end))
(values (string->latin% string sstart send #'get-cp869-bytes null-padding)))
(defmacro define-cp869->string* (accessor type)
(values (string->latin% string sstart send #'get-cp869-bytes null-padding)))
(defmacro define-cp869->string* (accessor type)
(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)
(declaim (inline get-cp874-bytes))
(defun get-cp874-bytes(string pos end)
(declare (optimize speed (safety 0))
(declaim (inline get-cp874-bytes))
(defun get-cp874-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
- (get-latin-bytes #'identity :cp874 string pos end))
+ (type simple-string string)
+ (type array-range pos end))
+ (get-latin-bytes #'code->cp874-mapper :cp874 string pos end))
(values (string->latin% string sstart send #'get-cp874-bytes null-padding)))
(defmacro define-cp874->string* (accessor type)
(values (string->latin% string sstart send #'get-cp874-bytes null-padding)))
(defmacro define-cp874->string* (accessor type)
(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)