X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=afb69097eccf74acd00905ec7259c63b2bad1ee6;hb=22c1de0a40df83bb5628974010a879cb2c17ff53;hp=34a35ab4aaf80eba3520a5821ccc08ea634d8945;hpb=12478433c6f18424c5d98f3075e3b832ad2c6ee3;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 34a35ab..afb6909 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -316,7 +316,7 @@
 (defvar *ouch-ptr*)
 
 (declaim (type index *read-buffer-length* *inch-ptr* *ouch-ptr*))
-(declaim (simple-string *read-buffer*))
+(declaim (type (simple-array character (*)) *read-buffer*))
 
 (defmacro reset-read-buffer ()
   ;; Turn *READ-BUFFER* into an empty read buffer.