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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r7975 r8429  
    918918          c))))
    919919
     920(defun %non-standard-char-code-upcase (code)
     921  (declare (type (mod #x110000) code))
     922  (if (>= code #x80)
     923    (let* ((upper (%non-standard-upper-case-equivalent (code-char code))))
     924      (if upper
     925        (char-code upper)
     926        code))
     927    code))
    920928
    921929
Note: See TracChangeset for help on using the changeset viewer.