Changeset 8913
- Timestamp:
- Mar 28, 2008, 2:04:01 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/read.lisp
r6921 r8913 154 154 (error 'parse-integer-not-integer-string :string s))) 155 155 (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)) 158 160 (let ((index (do ((i start (1+ i))) 159 161 ((= i end)
Note: See TracChangeset
for help on using the changeset viewer.