[Sbcl-commits] CVS: sbcl/src/code reader.lisp,1.26,1.26.2.1

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv25106/src/code

Modified Files:
      Tag: vector_nil_string_branch
	reader.lisp 
Log Message:
0.8.0.78.vector-nil-string.14:
	Minor frobs, mostly to put behaviour back to as I found it in 
	unimportant bits.  I think there's still a small performance 
	problem, which I'm investigating.


Index: reader.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/reader.lisp,v
retrieving revision 1.26
retrieving revision 1.26.2.1
diff -u -d -r1.26 -r1.26.2.1
--- reader.lisp	15 Jun 2003 16:21:06 -0000	1.26
+++ reader.lisp	15 Jul 2003 09:36:15 -0000	1.26.2.1
@@ -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.