Changeset 10390


Ignore:
Timestamp:
Aug 8, 2008, 4:12:16 AM (11 years ago)
Author:
gb
Message:

Add compiler-macro for CHAR-DOWNCASE.
It and existing CHAR-UPCASE use "the valid-char-code".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/optimizers.lisp

    r10348 r10390  
    24122412
    24132413(define-compiler-macro char-upcase (char)
    2414   `(code-char (%char-code-upcase (char-code ,char))))
     2414  `(code-char (the valid-char-code (%char-code-upcase (char-code ,char)))))
     2415
     2416(define-compiler-macro char-downcase (char)
     2417  `(code-char (the valid-char-code (%char-code-downcase (char-code ,char)))))
    24152418
    24162419
Note: See TracChangeset for help on using the changeset viewer.