X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=73180359fcc88090e64746531ab947126e84fe4e;hb=f8893c7c658bf9d9e0757c63e47af2fdea810f04;hp=fb7c2427d655afe025006d71e6ab02cf8b39c0c5;hpb=954902abeb19dac4f79f0a5b800eac45179b8d7c;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index fb7c242..7318035 100644
--- 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))