X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=88b2f987018999e01aa8d7d58da1d66988e05778;hb=134fa6b3f7c5f4bb0652e74227d940a9e7a83563;hp=cbbdf974e60534c688cd07ea8df7bd58ab36aaf3;hpb=ad6345c0021507c8830c7c8541ed651a89792335;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index cbbdf97..88b2f98 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1227,8 +1227,8 @@
   ;; 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))
@@ -2058,7 +2058,7 @@ benefit of the function GET-OUTPUT-STREAM-STRING.")
                     (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)