Changeset 8430

Timestamp:

Feb 5, 2008, 8:13:23 PM (17 years ago)

Author:

Gary Byers

Message:

STRING-COMPARE upcases non-STANDARD-CHAR codes.

File:

• trunk/source/lib/chars.lisp (modified) (1 diff)

trunk/source/lib/chars.lisp

@@ -459 +459 @@
           (if (and (>= code1 (char-code #\a))
                    (<= code1 (char-code #\z)))
-            (setq code1 (- code1 (- (char-code #\a) (char-code #\A)))))
+            (setq code1 (- code1 (- (char-code #\a) (char-code #\A))))
+            (if (> code1 #x80)
+              (setq code1 (%non-standard-char-code-upcase code1))))
           (if (and (>= code2 (char-code #\a))
                    (<= code2 (char-code #\z)))
-            (setq code2 (- code2 (- (char-code #\a) (char-code #\A)))))
+            (setq code2 (- code2 (- (char-code #\a) (char-code #\A))))
+            (if (> code2 #x80)
+              (setq code2 (%non-standard-char-code-upcase code2))))
           (unless (= code1 code2)            
             (setq val (if (%i< code1 code2) -1 1))