(index 0) ; current index in current buffer
(total 0)) ; total characters
(declare (type simple-stream encap)
(index 0) ; current index in current buffer
(total 0)) ; total characters
(declare (type simple-stream encap)
(replace cbuf buf :start1 idx)
(incf idx (length buf)))))
(return (values (sb-kernel:shrink-vector cbuf total)
(replace cbuf buf :start1 idx)
(incf idx (length buf)))))
(return (values (sb-kernel:shrink-vector cbuf total)
(replace string buf :start1 index)
(incf index (length buf)))
(return (values string (eq done :eof)))))
(replace string buf :start1 index)
(incf index (length buf)))
(return (values string (eq done :eof)))))
File-Stream is open to. If the second argument is supplied, then
this becomes the new file position. The second argument may also
be :start or :end for the start and end of the file, respectively."
File-Stream is open to. If the second argument is supplied, then
this becomes the new file position. The second argument may also
be :start or :end for the start and end of the file, respectively."