Changeset 8430


Ignore:
Timestamp:
Feb 6, 2008, 4:13:23 AM (12 years ago)
Author:
gb
Message:

STRING-COMPARE upcases non-STANDARD-CHAR codes.

File:
1 edited

Legend:

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

    r7369 r8430  
    459459          (if (and (>= code1 (char-code #\a))
    460460                   (<= code1 (char-code #\z)))
    461             (setq code1 (- code1 (- (char-code #\a) (char-code #\A)))))
     461            (setq code1 (- code1 (- (char-code #\a) (char-code #\A))))
     462            (if (> code1 #x80)
     463              (setq code1 (%non-standard-char-code-upcase code1))))
    462464          (if (and (>= code2 (char-code #\a))
    463465                   (<= code2 (char-code #\z)))
    464             (setq code2 (- code2 (- (char-code #\a) (char-code #\A)))))
     466            (setq code2 (- code2 (- (char-code #\a) (char-code #\A))))
     467            (if (> code2 #x80)
     468              (setq code2 (%non-standard-char-code-upcase code2))))
    465469          (unless (= code1 code2)           
    466470            (setq val (if (%i< code1 code2) -1 1))
Note: See TracChangeset for help on using the changeset viewer.