Changeset 8532


Ignore:
Timestamp:
Feb 21, 2008, 9:27:44 AM (14 years ago)
Author:
gb
Message:

BOTH-CASE-P: just like ALPHA-CHAR-P.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/chars.lisp

    r8430 r8532  
    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)
     
    122125     (and (>= code (char-code #\A))
    123126          (<= code (char-code #\Z)))
    124      (and (> code #x80)
     127     (and (>= code #x80)
    125128          (or (not (null (%non-standard-upper-case-equivalent c)))
    126129              (not (null (%non-standard-lower-case-equivalent c))))))))
Note: See TracChangeset for help on using the changeset viewer.