X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=afb69097eccf74acd00905ec7259c63b2bad1ee6;hb=b4831dc945c0754b3ba77881e67c8ea4d0a3d905;hp=34a35ab4aaf80eba3520a5821ccc08ea634d8945;hpb=bf2b6cff3719215f964f51667cdf6fcbdf43f8dc;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.