Changeset 15878 for trunk/source


Ignore:
Timestamp:
Aug 8, 2013, 9:27:43 PM (6 years ago)
Author:
rme
Message:

In %bounded-string-equal, set len2 (not len1) when string2 is a symbol
or character. Closes ticket:1103.

File:
1 edited

Legend:

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

    r15404 r15878  
    606606                  (array-data-and-offset string2)))
    607607        (symbol (setq string2 (symbol-name string2)
    608                       len1 (length (the simple-string string2))))
     608                      len2 (length (the simple-string string2))))
    609609        (character (setq string2 (make-string 1 :initial-element string2)
    610                          len1 1))))
     610                         len2 1))))
    611611    (flet ((bad-index (index vector) (error "Index ~s is invalid for ~s" index vector)))
    612612      (if (null start1)
Note: See TracChangeset for help on using the changeset viewer.