Plaster

common-lisp
(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)