[Openmcl-cvs-notifications] r10359 - /trunk/source/level-1/l1-aprims.lisp

[gb at clozure.com]

Author: gb
Date: Tue Aug  5 07:48:56 2008
New Revision: 10359

Log:
Define VALID-CHAR-CODE-P.


Modified:
    trunk/source/level-1/l1-aprims.lisp

Modified: trunk/source/level-1/l1-aprims.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-aprims.lisp (original)
+++ trunk/source/level-1/l1-aprims.lisp Tue Aug  5 07:48:56 2008
@@ -2038,6 +2038,16 @@
   resource)
 =

 =

+(defun valid-char-code-p (code)
+  (and (typep code 'fixnum)
+       (locally (declare (fixnum code))
+         (and =

+          (>=3D code 0)
+          (< code #x110000)
+          (or (< code #xfffe)
+              (> code #xffff))
+          (or (< code #xd800)
+              (> code #xdfff))))))
 =

 =

 (defpackage #.(ftd-interface-package-name