Changeset 8924


Ignore:
Timestamp:
Mar 28, 2008, 8:32:01 AM (11 years ago)
Author:
gb
Message:

Fix BOTH-CASE-P.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/chars.lisp

    r7369 r8924  
    108108             (<= code (char-code #\Z)))
    109109        (and (>= code (char-code #\a))
    110              (<= code (char-code #\z))))))
     110             (<= code (char-code #\z)))
     111        (and (>= code #x80)
     112             (or (not (null (%non-standard-upper-case-equivalent c)))
     113                 (not (null (%non-standard-lower-case-equivalent c))))))))
    111114 
    112115(defun alphanumericp (c)
Note: See TracChangeset for help on using the changeset viewer.