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

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index cbbdf97..6631e6b 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -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)