(with-open-file (in file :element-type '(unsigned-byte 8))
(let* ((length (file-length in))
(content (make-array (list length)
:element-type '(unsigned-byte 8)
:adjustable nil)))
(read-sequence content in)
(with-open-file (in file :element-type '(unsigned-byte 8))
(let* ((length (file-length in))
(content (make-array (list length)
:element-type '(unsigned-byte 8)
:adjustable nil)))
(read-sequence content in)