Changeset 8429

Timestamp:

Feb 5, 2008, 8:12:56 PM (17 years ago)

Author:

Gary Byers

Message:

Add %non-standard-char-code-upcase.

File:

• trunk/source/level-1/l1-aprims.lisp (modified) (1 diff)

trunk/source/level-1/l1-aprims.lisp

@@ -918 +918 @@
           c))))
 
+(defun %non-standard-char-code-upcase (code)
+  (declare (type (mod #x110000) code))
+  (if (>= code #x80)
+    (let* ((upper (%non-standard-upper-case-equivalent (code-char code))))
+      (if upper
+        (char-code upper)
+        code))
+    code))