Plaster
New
List
Login
common-lisp
default
anonymous
2020.07.03 12:47:17
(let (first-block-n start-offset last-block-n end-offset) (setf (values first-block-n start-offset) (floor (file-%position stream) buffer-length) (values last-block-n end-offset) (floor (- end2 start) buffer-length)) body)
Raw
Annotate
Repaste
Edit