0.8.5.3:

[sbcl.git] / src / code / stream.lisp

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index fb7c242..7318035 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1085,7 +1085,7 @@
 (defstruct (string-input-stream
             (:include string-stream
                       (in #'string-inch)
-                      (bin #'string-binch)
+                      (bin #'ill-bin)
                       (n-bin #'string-stream-read-n-bytes)
                       (misc #'string-in-misc)
                        (string (missing-arg) :type simple-string))