Changeset 9448


Ignore:
Timestamp:
May 9, 2008, 4:59:23 PM (11 years ago)
Author:
greg
Message:

fixed a couple typos

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/lib/chars.lisp

    r9430 r9448  
    567567    (declare (fixnum len1 len2))
    568568    (if (typep string1 'simple-string)
    569       (setq len1 (length (the sumple-string string1)))
     569      (setq len1 (length (the simple-string string1)))
    570570      (etypecase string1
    571571        (string (setq len1 (length string1))
     
    596596        (when (or (not (typep end1 'fixnum))
    597597                  (< (the fixnum end1) 0)
    598                   (> (the fixnum end1) len1)
    599                   (bad-index end1 string1))))
     598                  (> (the fixnum end1) len1))
     599          (bad-index end1 string1)))
    600600      (locally (declare (fixnum start1 end1))
    601601        (if (> start1 end1)
Note: See TracChangeset for help on using the changeset viewer.