Changeset 15888


Ignore:
Timestamp:
Aug 31, 2013, 10:53:34 PM (6 years ago)
Author:
rme
Message:

Merge string-equal fix from trunk (see ticket:1103).

Location:
release/1.9/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.9/source

  • release/1.9/source/lib/chars.lisp

    r15404 r15888  
    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.