Changeset 10359


Ignore:
Timestamp:
Aug 5, 2008, 11:48:56 AM (11 years ago)
Author:
gb
Message:

Define VALID-CHAR-CODE-P.

File:
1 edited

Legend:

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

    r10209 r10359  
    20392039
    20402040
     2041(defun valid-char-code-p (code)
     2042  (and (typep code 'fixnum)
     2043       (locally (declare (fixnum code))
     2044         (and
     2045          (>= code 0)
     2046          (< code #x110000)
     2047          (or (< code #xfffe)
     2048              (> code #xffff))
     2049          (or (< code #xd800)
     2050              (> code #xdfff))))))
    20412051
    20422052
Note: See TracChangeset for help on using the changeset viewer.