+
+(defun make-usb8-array (len)
+ (make-array len :adjustable nil
+ :fill-pointer nil
+ :element-type '(unsigned-byte 8)))
+
+(defun usb8-array-to-string (vec)
+ (let* ((len (length vec))
+ (str (make-string len)))
+ (declare (fixnum len)
+ (simple-string str)
+ (optimize (speed 3)))
+ (dotimes (i len)
+ (declare (fixnum i))
+ (setf (schar str i) (code-char (aref vec i))))
+ str))
+
+(defun string-to-usb8-array (str)
+ (let* ((len (length str))
+ (vec (make-usb8-array len)))
+ (declare (fixnum len)
+ (type (array fixnum (*)) vec)
+ (optimize (speed 3)))
+ (dotimes (i len)
+ (declare (fixnum i))
+ (setf (aref vec i) (char-code (schar str i))))
+ vec))
+