X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=4158071831a2ba00a1a96a14677ab2328bcf98d2;hb=9837343101c3da7b3a8f94609ec116ec5025436a;hp=e795f0180dc722170fa701fc869db621a1246a9e;hpb=76f3e23c8ad6f98d60ff97233e11082a41faf894;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index e795f01..4158071 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1604,7 +1604,7 @@ benefit of the function GET-OUTPUT-STREAM-STRING.")
                 (setf workspace new-workspace
                       offset-current current)
                 (set-array-header buffer workspace new-length
-                                  current+1 0 new-length nil))
+                                  current+1 0 new-length nil nil))
               (setf (fill-pointer buffer) current+1))
           (setf (char workspace offset-current) character))))
     current+1))
@@ -1638,7 +1638,7 @@ benefit of the function GET-OUTPUT-STREAM-STRING.")
                       offset-current current
                       offset-dst-end dst-end)
                 (set-array-header buffer workspace new-length
-                                  dst-end 0 new-length nil))
+                                  dst-end 0 new-length nil nil))
               (setf (fill-pointer buffer) dst-end))
           (replace workspace string
                    :start1 offset-current :start2 start :end2 end)))