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