(defun path-to-vector-2 (path size)
  (with-open-file (s path :element-type 'fast-io:octet)
    (let* ((vec (fast-io:make-octet-vector size))
           (buf (fast-io:make-input-buffer :stream s)))
      (map-into vec (lambda ()
                      (fast-io:fast-read-byte buf)))
      vec)))

(defun path-to-vector (path size)
  (with-open-file (s path :element-type 'fast-io:octet)
    (let ((vec (make-array size :element-type 'fast-io:octet)))
      (map-into vec (lambda () (read-byte s)))
      vec)))