Changeset 8913


Ignore:
Timestamp:
Mar 28, 2008, 2:04:01 AM (11 years ago)
Author:
gb
Message:

PARSE-INTEGER fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/read.lisp

    r6921 r8913  
    154154           (error 'parse-integer-not-integer-string :string s)))
    155155    (declare (inline not-integer-string-error))
    156     (when (null end)
    157       (setq end (length string)))
     156    (unless (typep string 'string)
     157      (setq string (require-type string 'string)))
     158    (setq end (check-sequence-bounds string start end))
     159    (setq radix (%validate-radix radix))
    158160    (let ((index (do ((i start (1+ i)))
    159161                     ((= i end)
Note: See TracChangeset for help on using the changeset viewer.