X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=f4352e68945f50cdd298bc5b72c6178d69166dc0;hb=cb296ae5a022a5b0f1fd573584301b0d2a9493f9;hp=a8081ae273795aecf467cc7f4c90d98e89f94f89;hpb=208e7b3072e383a2b2555ee259c9691e45cac3d6;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index a8081ae..f4352e6 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -1465,10 +1465,10 @@
 		    (start start)
 		    (end (%check-vector-sequence-bounds string start end)))
     (unless *read-from-string-spares*
-      (push (internal-make-string-input-stream "" 0 0)
-	    *read-from-string-spares*))
+      (push (make-string-input-stream "" 0 0) *read-from-string-spares*))
     (let ((stream (pop *read-from-string-spares*)))
-      (setf (string-input-stream-string stream) string)
+      (setf (string-input-stream-string stream)
+	    (coerce string '(simple-array character (*))))
       (setf (string-input-stream-current stream) start)
       (setf (string-input-stream-end stream) end)
       (unwind-protect