Changeset 8913

Timestamp:

Mar 28, 2008, 2:04:01 AM (13 years ago)

Author:

gb

Message:

PARSE-INTEGER fixes.

File:

• trunk/source/lib/read.lisp (modified) (1 diff)

trunk/source/lib/read.lisp

@@ -154 +154 @@
            (error 'parse-integer-not-integer-string :string s)))
     (declare (inline not-integer-string-error))
-    (when (null end)
-      (setq end (length string)))
+    (unless (typep string 'string)
+      (setq string (require-type string 'string)))
+    (setq end (check-sequence-bounds string start end))
+    (setq radix (%validate-radix radix))
     (let ((index (do ((i start (1+ i)))
                      ((= i end)