CHAR-CODE-LIMITLISP-INTERNALS-Character code values must be less than this. CHAR-FONT-LIMITLISP-INTERNALS0Font codes in characters must be less than this. CHAR-BITS-LIMITLISP-INTERNALSdAll the special bits in a character must be less than this. They are Control, Meta, Super and Hyper.  %%CH-CHARLISP-INTERNALS BYTE PRIMITIVESPosition of character value  %%CH-BITSLISP-INTERNALS BYTE PRIMITIVESPosition of bits value  %%CH-FONTLISP-INTERNALS BYTE PRIMITIVES Position of font value %%CH-FONT-AND-BITSLISP-INTERNALS BYTE PRIMITIVESPosition of font and bits value %%CH-FATLISP-INTERNALS BYTE PRIMITIVES(Position of all the stuff in a character CHAR-CONTROL-BITLISP-INTERNALS<This bit within the bits of a character, is the Control bit.  CHAR-META-BITLISP-INTERNALS:This bit, within the bits of a character, is the Meta bit. CHAR-SUPER-BITLISP-INTERNALS;This bit, within the bits of a character, is the Super bit. CHAR-HYPER-BITLISP-INTERNALS;This bit, within the bits of a character, is the Hyper bit.  %CHAR-INTLISP-INTERNALS  %CHAR-INTLISP-INTERNALS `D  %FAT-CHAR-INTLISP-INTERNALS  %FAT-CHAR-INTLISP-INTERNALS `D  CHAR-INT-0LISP-INTERNALS0  CHAR-INT-9LISP-INTERNALS9 CHAR-INT-LOWER-ALISP-INTERNALSa CHAR-INT-LOWER-ZLISP-INTERNALSz CHAR-INT-UPPER-ALISP-INTERNALSA CHAR-INT-UPPER-ZLISP-INTERNALSZ  CHAR-CODELISP-INTERNALS  NAMED-LAMBDANC  CHAR-CODELISP-INTERNALS CLISP-INTERNALS %TRAP-IF-NOT-CHARACTERLISP-INTERNALS CLISP-INTERNALS LDBHARDWARE CLISP-INTERNALS  %%CH-CHARLISP-INTERNALS  CHAR-CODELISP-INTERNALS@  `D  CHAR-BITSLISP-INTERNALS  NAMED-LAMBDANC  CHAR-BITSLISP-INTERNALS CLISP-INTERNALS %TRAP-IF-NOT-CHARACTERLISP-INTERNALS CLISP-INTERNALS LDBHARDWARE CLISP-INTERNALS  %%CH-BITSLISP-INTERNALS  CHAR-BITSLISP-INTERNALS@ '`D  CHAR-FONTLISP-INTERNALS  NAMED-LAMBDANC  CHAR-FONTLISP-INTERNALS CLISP-INTERNALS %TRAP-IF-NOT-CHARACTERLISP-INTERNALS CLISP-INTERNALS LDBHARDWARE CLISP-INTERNALS  %%CH-FONTLISP-INTERNALS  CHAR-FONTLISP-INTERNALS@ &`D CHAR-INTLISP-INTERNALS  NAMED-LAMBDANC CHAR-INTLISP-INTERNALS CLISP-INTERNALS %TRAP-IF-NOT-CHARACTERLISP-INTERNALS CLISP-INTERNALS  DPB-BOXEDHARDWARE CLISP-INTERNALS %%CH-FATLISP-INTERNALS CHAR-INTLISP-INTERNALS@  `D INT-CHARLISP-INTERNALS  NAMED-LAMBDANC INT-CHARLISP-INTERNALS ILISP-INTERNALS  DPB-BOXEDHARDWARE ILISP-INTERNALS %%CH-FATLISP-INTERNALS *DTP-CHARACTER*GLOBAL-REGISTERS INT-CHARLISP-INTERNALS h D  CHARACTERPVINCULUM  CHARACTERPVINCULUMFsh @A @AhDjD  STRING-CHAR-PLISP-INTERNALS  STRING-CHAR-PLISP-INTERNALS@ '`D@Ep@A @AhDjD GRAPHIC-CHAR-PLISP-INTERNALS GRAPHIC-CHAR-PLISP-INTERNALS   @ '`D@Ep@A  @A `D@B@@C0@A @AhDjDjD STANDARD-CHAR-PLISP-INTERNALS STANDARD-CHAR-PLISP-INTERNALS  '`D@Ep@A @A TB@@B@A @A~TB@@B@A @AhD TB@@B@A @AhDjDjD  UPPER-CASE-PLISP-INTERNALS  NAMED-LAMBDANC  UPPER-CASE-PLISP-INTERNALS CLISP-INTERNALS,Return T if c is an upper case character A-Z CHAR<=LISP-INTERNALSA CLISP-INTERNALSZ  UPPER-CASE-PLISP-INTERNALS   AT@@@!@A @AZTB@@B@A @AhDjDjD  LOWER-CASE-PLISP-INTERNALS  NAMED-LAMBDANC  LOWER-CASE-PLISP-INTERNALS CLISP-INTERNALS+Return t if c is a lower case character a-z CHAR<=LISP-INTERNALSa CLISP-INTERNALSz  LOWER-CASE-PLISP-INTERNALS   aT@@@!@A @AzTB@@B@A @AhDjDjD  ALPHA-CHAR-PLISP-INTERNALS  ALPHA-CHAR-PLISP-INTERNALS  '`D@Ep@A @AAT@@@!@A @AZTB@@B@A @AhDaT@@@!@A@AzTB@@B@A@AhDjDjDjD  BOTH-CASE-PLISP-INTERNALS  BOTH-CASE-PLISP-INTERNALS   AT@@@!@A @AZTB@@B@A @AhDaT@@@!@A@AzTB@@B@A@AhDjDjD  DIGIT-CHAR-PLISP-INTERNALS  DIGIT-CHAR-PLISP-INTERNALS (&)")  *  %CHAR-INTLISP-INTERNALS+~"@ '`D@Ep@A *@A! C0TB@@B@A@A9TB@@B@A@A0B@@B$x@"0@A@A$DjDATB@@B@A@AZTB@@B@A@A7B@@B$x aTB@@B@A)@AzTB@@B@A)@AWB@@B$x jDjD  DIGIT-CHARLISP-INTERNALS  DIGIT-CHARLISP-INTERNALS   MAKE-CHARLISP-INTERNALS SVREFARRAY ~"@ `$@ @"0@A @AA B(`@%FjD$0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ  ALPHANUMERICPLISP-INTERNALS  ALPHANUMERICPLISP-INTERNALS  DIGIT-CHAR-PLISP-INTERNALS  ALPHA-CHAR-PLISP-INTERNALS!C"@@A@A"D!G  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS @ @  `"@aB@@ B0@A@AzB@@ B0@A@A B@@ BDx !D D  CHAR-DOWNCASELISP-INTERNALS  CHAR-DOWNCASELISP-INTERNALS @ @  `"@AB@@ B0@A@AZB@@ B0@A@A B@ BDx !D D CHAR-BITLISP-INTERNALS CHAR-BITLISP-INTERNALS    ERRORLISP-INTERNALS@ B@@ B@A  @AbD@ lEDxPEp!@A @AhDjDB@@ B@A @AfD@ B@@ B@A @ArD@ B@@ B@A @AzD@ A"B@A  Illegal bit name to CHAR-BIT: ~s HYPERKEYWORD SUPERKEYWORD METAKEYWORD CONTROLKEYWORD  SET-CHAR-BITLISP-INTERNALS  SET-CHAR-BITLISP-INTERNALS   ILLOP-FUNCTIONTRAP@ B@@ B@A  @A|D@ aBp!CDpPE  DB@@ B@A @A~D@ B@@ B@A @A D@@A B@@ B@A @AD@@A sA@B@A  HYPERKEYWORD SUPERKEYWORD METAKEYWORD CONTROLKEYWORD DEFINE-N-ARG-COMPARE-FUNCTIONLISP-INTERNALS DEFINE-N-ARG-COMPARE-FUNCTIONLISP-INTERNALS"   ! MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAY#j"@ C@g0@A@A C@g0@A @A@A C(@ B$A@AB(@@AB(@@@AB(iB(@@@AB(@$@@AF Ab@bB @A  &REST PRIMITIVES ARGSLISP-INTERNALS DEFUN PRIMITIVES NULL PRIMITIVES CDRCONS ARGSLISP-INTERNALS T PRIMITIVES NULL PRIMITIVES ARGSLISP-INTERNALS T PRIMITIVES COND PRIMITIVES NULL PRIMITIVES CDRCONS ARGSLISP-INTERNALS T PRIMITIVES ARGSLISP-INTERNALS ARGSLISP-INTERNALS CDRCONS ARGSLISP-INTERNALS DO PRIMITIVES RETURN PRIMITIVES UNLESS PRIMITIVES  FIRSTLISP-INTERNALS ARGSLISP-INTERNALS SECONDLISP-INTERNALS ARGSLISP-INTERNALS CHAR<LISP-INTERNALS CHAR<LISP-INTERNALS    CDRCONS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@"@"@@A@A"CD@@A@A"CD@@A@A"C"C@D@A@A#C @A jDhDhDhD CHAR<=LISP-INTERNALS CHAR<=LISP-INTERNALS    CDRCONS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@"@"@@A@A"CD@@A@A"CD@@A@A"C"C@D@A@A#C @A jDhDhDhD CHAR=LISP-INTERNALS CHAR=LISP-INTERNALS    CDRCONS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@"@"@@A@A"CD@@A@A"CD@@A@A"C"C@D@A @A#C @A jDhDhDhD CHAR>=LISP-INTERNALS CHAR>=LISP-INTERNALS    CDRCONS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@"@"@@A@A"CD@@A@A"CD@@A@A"C"C@D@A@A#C @A jDhDhDhD CHAR>LISP-INTERNALS CHAR>LISP-INTERNALS    CDRCONS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@"@"@@A@A"CD@@A@A"CD@@A@A"C"C@D@A@A#C @A jDhDhDhD CHAR/=LISP-INTERNALS CHAR/=LISP-INTERNALS    CDRCONS CDRCONS CARCONS CARCONS CDRCONS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@$@$@@A@A$CD@@A@A$CD@@A@A%C"@@A@A$C"C@D@A @A#C@A jD$ C @A hDhDhD $DEFINE-CHAR-????-PREDICATE-FUNCTIONSLISP-INTERNALS $DEFINE-CHAR-????-PREDICATE-FUNCTIONSLISP-INTERNALSH E E G MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALSD  XR-BQ-LISTSYSTEM-INTERNALSB  XR-BQ-LISTSYSTEM-INTERNALS>  XR-BQ-LISTSYSTEM-INTERNALS;  XR-BQ-LISTSYSTEM-INTERNALS8  XR-BQ-LIST*SYSTEM-INTERNALS5  XR-BQ-LIST*SYSTEM-INTERNALS2  XR-BQ-LISTSYSTEM-INTERNALS0  XR-BQ-LIST*SYSTEM-INTERNALS-  XR-BQ-LISTSYSTEM-INTERNALS)  XR-BQ-LISTSYSTEM-INTERNALS&  XR-BQ-LISTSYSTEM-INTERNALS$  XR-BQ-LIST*SYSTEM-INTERNALS!  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CDRCONS CDRCONS CARCONS CDRCONS CDRCONS CDRCONS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYIj"@ C@u0@AE@A C@u0@A @AE@A C(A B C(@B(@ B C(@B(@B(A B C(@B(@B(@B(@ B$A@AB(@(@@AB($A@AB($A@@B@@B(@@AB(@&@@@B$A@AB(@@B($A@AB(@@AB@@AB(@@iB(@*@@AB@AF Ar@rB @A C PROGN PRIMITIVESA  FIRST-CHARLISP-INTERNALS &REST PRIMITIVES CHARSLISP-INTERNALS? DEFUN PRIMITIVES= NULL PRIMITIVES CHARSLISP-INTERNALS< IFLISP: CHARLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  FIRST-CHARLISP-INTERNALS  NEXT-CHARLISP-INTERNALS CHARSLISP-INTERNALS CHARSLISP-INTERNALS CDRCONS CHARSLISP-INTERNALS  NEXT-CHARLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS CARCONS CHARSLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS CARCONS CHARSLISP-INTERNALS9 DO* PRIMITIVES7 RETURN PRIMITIVES6 UNLESS PRIMITIVES4 CHARLISP-INTERNALS  NEXT-CHARLISP-INTERNALS1 NULL PRIMITIVES CDRCONS CHARSLISP-INTERNALS/ CHARLISP-INTERNALS  NEXT-CHARLISP-INTERNALS, CHAR1LISP-INTERNALS CHAR2LISP-INTERNALS CHAR3LISP-INTERNALS* DEFUN PRIMITIVES( C2LISP-INTERNALS  CHAR-UPCASELISP-INTERNALS CHAR2LISP-INTERNALS' LET PRIMITIVES% AND PRIMITIVES# C2LISP-INTERNALS  CHAR-UPCASELISP-INTERNALS CHAR3LISP-INTERNALS   CHAR-UPCASELISP-INTERNALS CHAR1LISP-INTERNALS C2LISP-INTERNALS CHAR1LISP-INTERNALS CHAR2LISP-INTERNALS DEFUN PRIMITIVES  CHAR-UPCASELISP-INTERNALS CHAR1LISP-INTERNALS  CHAR-UPCASELISP-INTERNALS CHAR2LISP-INTERNALS CHAR-EQUAL-2-ARGSLISP-INTERNALS CHAR-EQUAL-2-ARGSLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS C"C@D@A @AhDjD CHAR-EQUAL-3-ARGSLISP-INTERNALS CHAR-EQUAL-3-ARGSLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS # C C@'@A  @A$C@D@A  @AhDjDjD  CHAR-EQUALLISP-INTERNALS  CHAR-EQUALLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS CARCONS CDRCONS CDRCONS  CHAR-UPCASELISP-INTERNALS CARCONS  CHAR-UPCASELISP-INTERNALS  CONS-RESTLISP-INTERNALS~@h@@n@(j@&@&@@A@A C&C(AB&CD@@A@A@"@A @A"$@' C&C(AB @A jD@"@A @AhDjDhD CHAR-LESSP-2-ARGSLISP-INTERNALS CHAR-LESSP-2-ARGSLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS C"C@D@A@AhDjD CHAR-LESSP-3-ARGSLISP-INTERNALS CHAR-LESSP-3-ARGSLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS # C C@'@A @A$C@D@A @AhDjDjD  CHAR-LESSPLISP-INTERNALS  CHAR-LESSPLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS CARCONS CDRCONS CDRCONS  CHAR-UPCASELISP-INTERNALS CARCONS  CHAR-UPCASELISP-INTERNALS  CONS-RESTLISP-INTERNALS~@h@@n@(j@&@&@@A@A C&C(AB&CD@@A@A@"@A@A"$@' C&C(AB @A jD@"@A@AhDjDhD CHAR-GREATERP-2-ARGSLISP-INTERNALS CHAR-GREATERP-2-ARGSLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS C"C@D@A@AhDjD CHAR-GREATERP-3-ARGSLISP-INTERNALS CHAR-GREATERP-3-ARGSLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS # C C@'@A @A$C@D@A @AhDjDjD  CHAR-GREATERPLISP-INTERNALS  CHAR-GREATERPLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS CARCONS CDRCONS CDRCONS  CHAR-UPCASELISP-INTERNALS CARCONS  CHAR-UPCASELISP-INTERNALS  CONS-RESTLISP-INTERNALS~@h@@n@(j@&@&@@A@A C&C(AB&CD@@A@A@"@A@A"$@' C&C(AB @A jD@"@A@AhDjDhD CHAR-NOT-LESSP-2-ARGSLISP-INTERNALS CHAR-NOT-LESSP-2-ARGSLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS C"C@D@A@AhDjD CHAR-NOT-LESSP-3-ARGSLISP-INTERNALS CHAR-NOT-LESSP-3-ARGSLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS # C C@'@A @A$C@D@A @AhDjDjD CHAR-NOT-LESSPLISP-INTERNALS CHAR-NOT-LESSPLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS CARCONS CDRCONS CDRCONS  CHAR-UPCASELISP-INTERNALS CARCONS  CHAR-UPCASELISP-INTERNALS  CONS-RESTLISP-INTERNALS~@h@@n@(j@&@&@@A@A C&C(AB&CD@@A@A@"@A@A"$@' C&C(AB @A jD@"@A@AhDjDhD CHAR-NOT-GREATERP-2-ARGSLISP-INTERNALS CHAR-NOT-GREATERP-2-ARGSLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS C"C@D@A@AhDjD CHAR-NOT-GREATERP-3-ARGSLISP-INTERNALS CHAR-NOT-GREATERP-3-ARGSLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS # C C@'@A @A$C@D@A @AhDjDjD CHAR-NOT-GREATERPLISP-INTERNALS CHAR-NOT-GREATERPLISP-INTERNALS    CHAR-UPCASELISP-INTERNALS CARCONS CDRCONS CDRCONS  CHAR-UPCASELISP-INTERNALS CARCONS  CHAR-UPCASELISP-INTERNALS  CONS-RESTLISP-INTERNALS~@h@@n@(j@&@&@@A@A C&C(AB&CD@@A@A@"@A@A"$@' C&C(AB @A jD@"@A@AhDjDhD CHAR-NOT-EQUAL-2-ARGSLISP-INTERNALS CHAR-NOT-EQUAL-2-ARGSLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS C"C@D@A@AhDjD CHAR-NOT-EQUAL-3-ARGSLISP-INTERNALS CHAR-NOT-EQUAL-3-ARGSLISP-INTERNALS   CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  CHAR-UPCASELISP-INTERNALS! C" C% C@,(@A@A@,&@A@A@$&@A @AhDjDjDjD CHAR-NOT-EQUALLISP-INTERNALS CHAR-NOT-EQUALLISP-INTERNALS &#!$%'  % CDRCONS" CDRCONS CARCONS CARCONS CDRCONS CDRCONS RPLACDCONS CONSCONS  CHAR-UPCASELISP-INTERNALS CARCONS CONSCONS  CONS-RESTLISP-INTERNALS~(@h@@n@(j@.@ A. Bj*@j(@,@@A@A,C(@B(k B(@@A@A(A&B&(@, C@A &*@ *@@A'@A* C$@@A%@A+C$C@ D@A$@A$ C@A jD+ C@A hD  CODE-CHARLISP-INTERNALS  CODE-CHARLISP-INTERNALS  MAKE-CHARLISP-INTERNALS`"@ `$@  h E"@%F  CHARACTERLISP-INTERNALS  CHARACTERLISP-INTERNALS "  # ERRORLISP-INTERNALS INTEGERPVINCULUM ERRORLISP-INTERNALS SVREFARRAY %STRING-LENGTHARRAY  SYMBOL-NAMESYMBOL SYMBOLPVINCULUM ERRORLISP-INTERNALS SVREFARRAY %STRING-LENGTHARRAY STRINGPARRAY$Fsh @A @A D CD@@A@A Cp E0@A @A EaFE!F CD@@A@A C Cp E0@A @A EaFE!F CD@@A"@A h DE!F"1The object ~s can not be coerced into a characterVThe symbol ~s has a print name that is the wrong length to be coerced into a character@The string ~s is the wrong length to be coerced into a character  MAKE-CHARLISP-INTERNALS  MAKE-CHARLISP-INTERNALS ERRORLISP-INTERNALS `"@ `$@ Fsh @A @A! D@!DDE!F&MAKE-CHAR expected a character, not ~a  CHAR-NAMELISP-INTERNALS  CHAR-NAMELISP-INTERNALSjD