(let* ((file-len (file-length in))
(usb8 (make-array file-len :element-type '(unsigned-byte 8)))
(pos (read-sequence usb8 in)))
(let* ((file-len (file-length in))
(usb8 (make-array file-len :element-type '(unsigned-byte 8)))
(pos (read-sequence usb8 in)))