(declaim (inline get-iso-8859-2-bytes))
(defun get-iso-8859-2-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-2 string pos end))
(defun string->iso-8859-2 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-2-bytes null-padding)))
(defmacro define-iso-8859-2->string* (accessor type)
(let ((name (make-od-name 'iso-8859-2->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-2->string*)
(declaim (inline get-iso-8859-3-bytes))
(defun get-iso-8859-3-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-3 string pos end))
(defun string->iso-8859-3 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-3-bytes null-padding)))
(defmacro define-iso-8859-3->string* (accessor type)
(let ((name (make-od-name 'iso-8859-3->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-3->string*)
(declaim (inline get-iso-8859-4-bytes))
(defun get-iso-8859-4-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-4 string pos end))
(defun string->iso-8859-4 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-4-bytes null-padding)))
(defmacro define-iso-8859-4->string* (accessor type)
(let ((name (make-od-name 'iso-8859-4->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-4->string*)
(declaim (inline get-iso-8859-5-bytes))
(defun get-iso-8859-5-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-5 string pos end))
(defun string->iso-8859-5 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-5-bytes null-padding)))
(defmacro define-iso-8859-5->string* (accessor type)
(let ((name (make-od-name 'iso-8859-5->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-5->string*)
(declaim (inline get-iso-8859-6-bytes))
(defun get-iso-8859-6-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-6 string pos end))
(defun string->iso-8859-6 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-6-bytes null-padding)))
(defmacro define-iso-8859-6->string* (accessor type)
(let ((name (make-od-name 'iso-8859-6->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-6->string*)
(declaim (inline get-iso-8859-7-bytes))
(defun get-iso-8859-7-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-7 string pos end))
(defun string->iso-8859-7 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-7-bytes null-padding)))
(defmacro define-iso-8859-7->string* (accessor type)
(let ((name (make-od-name 'iso-8859-7->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-7->string*)
(declaim (inline get-iso-8859-8-bytes))
(defun get-iso-8859-8-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-8 string pos end))
(defun string->iso-8859-8 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-8-bytes null-padding)))
(defmacro define-iso-8859-8->string* (accessor type)
(let ((name (make-od-name 'iso-8859-8->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-8->string*)
(declaim (inline get-iso-8859-9-bytes))
(defun get-iso-8859-9-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-9 string pos end))
(defun string->iso-8859-9 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-9-bytes null-padding)))
(defmacro define-iso-8859-9->string* (accessor type)
(let ((name (make-od-name 'iso-8859-9->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-9->string*)
(declaim (inline get-iso-8859-10-bytes))
(defun get-iso-8859-10-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-10 string pos end))
(defun string->iso-8859-10 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-10-bytes null-padding)))
(defmacro define-iso-8859-10->string* (accessor type)
(let ((name (make-od-name 'iso-8859-10->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-10->string*)
(declaim (inline get-iso-8859-11-bytes))
(defun get-iso-8859-11-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-11 string pos end))
(defun string->iso-8859-11 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-11-bytes null-padding)))
(defmacro define-iso-8859-11->string* (accessor type)
(let ((name (make-od-name 'iso-8859-11->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-11->string*)
(declaim (inline get-iso-8859-13-bytes))
(defun get-iso-8859-13-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-13 string pos end))
(defun string->iso-8859-13 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-13-bytes null-padding)))
(defmacro define-iso-8859-13->string* (accessor type)
(let ((name (make-od-name 'iso-8859-13->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-13->string*)
(declaim (inline get-iso-8859-14-bytes))
(defun get-iso-8859-14-bytes(string pos end)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range pos end))
+ (type simple-string string)
+ (type array-range pos end))
(get-latin-bytes #'identity :iso-8859-14 string pos end))
(defun string->iso-8859-14 (string sstart send null-padding)
(declare (optimize speed (safety 0))
- (type simple-string string)
- (type array-range sstart send))
+ (type simple-string string)
+ (type array-range sstart send))
(values (string->latin% string sstart send #'get-iso-8859-14-bytes null-padding)))
(defmacro define-iso-8859-14->string* (accessor type)
(let ((name (make-od-name 'iso-8859-14->string* accessor)))
`(progn
(defun ,name (string sstart send array astart aend)
- (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
+ (,(make-od-name 'latin->string* accessor) string sstart send array astart aend #'identity)))))
(instantiate-octets-definition define-iso-8859-14->string*)