X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fstream.lisp;h=1e6dcdc86b1d39a8b395f6a2b8a593fc1919ecef;hb=830db48da09c88c0e91b11e2991d21b2a1af2579;hp=b2ea43de224ae63aea36a62b0b581a34373fe3a5;hpb=0d6f1e4381deafc13b09b45833fcb0cc8c2653ac;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index b2ea43d..1e6dcdc 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -248,7 +248,7 @@
            (cond (ch
                   (when (char= ch #\newline)
                     (done-with-fast-read-char)
-                    (return (values (shrink-vector res index) nil)))
+                    (return (values (%shrink-vector res index) nil)))
                   (when (= index len)
                     (setq len (* len 2))
                     (let ((new (make-string len)))
@@ -266,7 +266,7 @@
                  ;; shouldn't do another READ-CHAR.
                  (t
                   (done-with-fast-read-char)
-                  (return (values (shrink-vector res index) t)))))))))
+                  (return (values (%shrink-vector res index) t)))))))))
 
 (defun read-line (&optional (stream *standard-input*) (eof-error-p t) eof-value
                             recursive-p)