Plaster
New
List
Login
common-lisp
default
anonymous
2020.11.29 20:45:29
(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)))))
Raw
Annotate
Repaste
Edit