X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Freader.lisp;h=41226cbc060399990f140619d9444dfc70a7a628;hb=98a76d4426660876dec6649b1e228d2e5b47f579;hp=2372ef8750fd2165af1f6dee3cd7f5fe36d6b739;hpb=93ba859423ec6e035a7b22a76a2ac70038691d65;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 2372ef8..41226cb 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -1400,9 +1400,10 @@
    and the lisp object built by the reader is returned. Macro chars
    will take effect."
   (declare (string string))
+  
   (with-array-data ((string string)
 		    (start start)
-		    (end (or end (length string))))
+		    (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*))
@@ -1431,7 +1432,7 @@
 		       :format-arguments (list string))))
     (with-array-data ((string string)
 		      (start start)
-		      (end (or end (length string))))
+		      (end (%check-vector-sequence-bounds string start end)))
       (let ((index (do ((i start (1+ i)))
 		       ((= i end)
 			(if junk-allowed