;; Global location in the stream
(index 0 :type index)
;; Index cache: when we move backwards we save the greater of this
- ;; and index here, so the the greater of index and this is always
- ;; the end of the stream.
+ ;; and index here, so the greater of index and this is always the
+ ;; end of the stream.
(index-cache 0 :type index)
;; Requested element type
(element-type 'character))
(funcall write-function stream (aref data i))))))
(if (and (fd-stream-p stream)
(compatible-vector-and-stream-element-types-p data stream))
- (output-raw-bytes stream data offset-start offset-end)
+ (buffer-output stream data offset-start offset-end)
(output-seq-in-loop)))))))
seq)
\f