(FILECREATED " 1-Aug-85 23:03:00" ("compiled on " {ERIS}LIBRARY>CMLCHARACTER.;9) "28-Jul-85 01:39:50" recompiled changes: CHAR-DOWNCASE CHAR-UPCASE CHARACTERP CHARACTER.PRINT in "INTERLISP-D 28-Jul-85 ..." dated "28-Jul-85 01:53:53") (FILECREATED " 1-Aug-85 23:02:41" {ERIS}LIBRARY>CMLCHARACTER.;9 10256 changes to: (VARS CMLCHARACTERCOMS) (FNS CHARACTERP CHAR-DOWNCASE CHAR-UPCASE CHARACTER.PRINT) previous date: "18-Jul-85 21:38:58" {ERIS}LIBRARY>CMLCHARACTER.;6) STANDARD-CHAR-P D1 (L (0 CHAR)) @ÓoNIL (3 CHARACTER) ( 10Q (41Q 42Q 43Q 45Q 47Q 50Q 51Q 52Q 53Q 54Q 55Q 56Q 57Q 60Q 61Q 62Q 63Q 64Q 65Q 66Q 67Q 70Q 71Q 72Q 73Q 74Q 75Q 76Q 77Q 100Q 101Q 102Q 103Q 104Q 105Q 106Q 107Q 110Q 111Q 112Q 113Q 114Q 115Q 116Q 117Q 120Q 121Q 122Q 123Q 124Q 125Q 126Q 127Q 130Q 131Q 132Q 133Q 134Q 135Q 136Q 137Q 140Q 141Q 142Q 143Q 144Q 145Q 146Q 147Q 150Q 151Q 152Q 153Q 154Q 155Q 156Q 157Q 160Q 161Q 162Q 163Q 164Q 165Q 166Q 167Q 170Q 171Q 172Q 173Q 174Q 175Q 176Q 40Q 15Q)) GRAPHIC-CHAR-P D1 (L (0 CHAR)) %@ÓlÿåHló´l€HóµHlÿðhð´Hl óNIL (3 CHARACTER) () STRING-CHAR-P D1 (L (0 CHAR)) iNIL NIL () ALPHA-CHAR-P D1 (P 0 CODE I 0 CHAR F 1 \ALPHACHARSETS) 8@ÓlAHñ§HlZñhðµ#laHñ§HlzñhðµHlÿñ´Hl Q´H (65Q GRAPHIC-CHAR-P 55Q RSH) (3 CHARACTER) () ALPHANUMERICP D1 (I 0 CHAR F 0 X) P µ P hðhð(11Q DIGIT-CHAR-P 3 ALPHA-CHAR-P) NIL () CODE-CHAR D1 (L (2 FONT 1 BITS 0 CODE) F 0 \CHARHI) &A”Ajð´B”Bjð´@3 ´j@ó«o@ó´P@ÑhNIL NIL ( 32Q 200000Q) CHAR-FONT D1 (L (0 CHAR)) jNIL NIL () CHAR-BITS D1 (L (0 CHAR)) jNIL NIL () CHAR-CODE D1 (L (0 CHAR)) @ÓNIL (3 CHARACTER) () MAKE-CHAR D1 (L (2 FONT 1 BITS 0 CHAR)) A”Ajð´ B”Bjð´@NIL NIL () CL:CHARACTER D1 (I 0 OBJECT) +@d`ð³d3 ®§@dlðš¿@ µ @o (50Q ERROR 36Q INT-CHAR 33Q CHARCODE.DECODE) (5 CHARACTERTYPE#) ( 45Q "Illegal Common Lisp Character specification") CHAR= D1 (L (0 N)) 'eHlJIó³@ÓJaÓð¡hJkÔZ°éiNIL (30Q CHARACTER 22Q CHARACTER) () CHAR/= D1 (L (0 N)) <eHk"JIó³-HJkؼ»LKó³JaÓLaÓð‘h†LkÔ\°èi¡hJkÔZ°ÓiNIL (43Q CHARACTER 35Q CHARACTER) () CHAR< D1 (L (0 N)) *eHlJdIó‘ikÙaÓJaÓýó¡hJkÔZ°äNIL (34Q CHARACTER 26Q CHARACTER) () CHAR> D1 (L (0 N)) )eHlJdIó‘ikÙaÓJaÓó¡hJkÔZ°åNIL (34Q CHARACTER 26Q CHARACTER) () CHAR>= D1 (L (0 N)) *eHlJdIó‘ikÙaÓJaÓýó‘hJkÔZ°äNIL (34Q CHARACTER 26Q CHARACTER) () CHAR<= D1 (L (0 N)) )eHlJdIó‘ikÙaÓJaÓó‘hJkÔZ°åNIL (34Q CHARACTER 26Q CHARACTER) () DIGIT-CHAR-P D1 (L (1 RADIX 0 CHAR)) MAµl @Ól0Ióhð´8Hl ó”Il9ó«Il0ÕZHýó´$JlaIó¤ImàÔ¹lAIóhð´IlAÕl ÔZAýó´JNIL (10Q CHARACTER) () INT-CHAR D1 (I 0 INTEGER) @ (3 CODE-CHAR) NIL () UPPER-CASE-P D1 (L (0 CHAR)) @ÓlAHó§HlZóhðµ Hlÿó´hNIL (3 CHARACTER) () LOWER-CASE-P D1 (L (0 CHAR)) @ÓlaHó§Hlzóhðµ Hlÿó´hNIL (3 CHARACTER) () BOTH-CASE-P D1 (I 0 CHAR) @ µ@ (11Q LOWER-CASE-P 3 UPPER-CASE-P) NIL () NAME-CHAR D1 (I 0 NAME) @ (6 INT-CHAR 3 CHARCODE.DECODE) NIL () DIGIT-CHAR D1 (I 2 FONT I 1 RADIX I 0 WEIGHT) 0B”Bjð´)A ´#A@ó´l @ó¤Al ó§@l0Ô @l ÕlAÔ (55Q CODE-CHAR 42Q CODE-CHAR 12Q INTEGERP) NIL () CHAR-NAME D1 (I 0 CHAR) @Ó (7 CHARCODE.UNDECODE) (3 CHARACTER) () CHAR-INT D1 (I 0 CHAR) @ (3 CHAR-CODE) NIL () CHAR-DOWNCASE D1 (I 0 CHAR) @ š@ l Ô @(16Q CODE-CHAR 10Q CHAR-CODE 3 UPPER-CASE-P) NIL () CHAR-UPCASE D1 (I 0 CHAR) @ š@ màÔ @(16Q CODE-CHAR 10Q CHAR-CODE 3 LOWER-CASE-P) NIL () CHAR-BIT D1 (I 1 NAME I 0 CHAR) oAoh (17Q ERROR) NIL ( 10Q " not supported." 3 "Bit ") SET-CHAR-BIT D1 (I 2 NEWVALUE I 1 NAME I 0 CHAR) oAoh (17Q ERROR) NIL ( 10Q " not supported." 3 "Bit ") CHARACTERP D1 (L (0 X)) @`ðNIL (4 CHARACTERTYPE#) () CHARACTER.PRINT D1 (I 0 CHAR F 0 \CML.READPREFIX) Po@Ó h(17Q CONCAT 14Q CHARCODE.UNDECODE) (10Q CHARACTER) ( 4 "\") CHARCODE.UNDECODE D1 (P 1 X I 0 CODE F 2 CHARACTERNAMES) š@l0Hñhð´Hl9ñhð³@l_ålAHñhð´HlZñhð•k@ RHµ@dló³"¿o@l@ä Yd@ð¥¿HX°Úlÿó²@l o@ncå @lóžo@lå k@ (227Q ALLOCSTRING 221Q CONCAT 216Q CHARCODE.UNDECODE 175Q CONCAT 172Q CHARCODE.UNDECODE 156Q CHARSET.UNDECODE 153Q RSH 117Q CONCAT 114Q CHARCODE.UNDECODE 60Q ALLOCSTRING) NIL ( 207Q "#" 162Q "-" 105Q "^") (PRETTYCOMPRINT CMLCHARACTERCOMS) (RPAQQ CMLCHARACTERCOMS ((RECORDS CHARACTER) (INITVARS (\CODE-CHAR-HASH (HASHARRAY 512))) (ADDVARS ( \ALPHACHARSETS 38 39 36 37)) (CONSTANTS (CHAR-CODE-LIMIT 65536) (CHAR-FONT-LIMIT 1) (CHAR-BITS-LIMIT 1 ) (CHAR-CONTROL-BIT 0) (CHAR-META-BIT 0) (CHAR-SUPER-BIT 0) (CHAR-HYPER-BIT 0)) (FNS STANDARD-CHAR-P GRAPHIC-CHAR-P STRING-CHAR-P ALPHA-CHAR-P ALPHANUMERICP CODE-CHAR CHAR-FONT CHAR-BITS CHAR-CODE MAKE-CHAR CL:CHARACTER CHAR= CHAR/= CHAR< CHAR> CHAR>= CHAR<= DIGIT-CHAR-P INT-CHAR UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P NAME-CHAR DIGIT-CHAR CHAR-NAME CHAR-INT CHAR-DOWNCASE CHAR-UPCASE CHAR-BIT SET-CHAR-BIT CHARACTERP) (FNS CHARACTER.PRINT CHARCODE.UNDECODE) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CHAR<= CHAR>= CHAR> CHAR< CHAR/= CHAR=))))) (ACCESSFNS CHARACTER ((CODE (\LOLOC (\DTEST DATUM (QUOTE CHARACTER))))) (CREATE (\VAG2 \CHARHI CODE)) (INIT (DEFPRINT (QUOTE CHARACTER) (QUOTE CHARACTER.PRINT)))) (DEFPRINT (QUOTE CHARACTER) (QUOTE CHARACTER.PRINT)) (RPAQ? \CODE-CHAR-HASH (HASHARRAY 512)) (ADDTOVAR \ALPHACHARSETS 38 39 36 37) (RPAQQ CHAR-CODE-LIMIT 65536) (RPAQQ CHAR-FONT-LIMIT 1) (RPAQQ CHAR-BITS-LIMIT 1) (RPAQQ CHAR-CONTROL-BIT 0) (RPAQQ CHAR-META-BIT 0) (RPAQQ CHAR-SUPER-BIT 0) (RPAQQ CHAR-HYPER-BIT 0) (CONSTANTS (CHAR-CODE-LIMIT 65536) (CHAR-FONT-LIMIT 1) (CHAR-BITS-LIMIT 1) (CHAR-CONTROL-BIT 0) ( CHAR-META-BIT 0) (CHAR-SUPER-BIT 0) (CHAR-HYPER-BIT 0)) (PUTPROPS CMLCHARACTER COPYRIGHT ("Xerox Corporation" 1985)) NIL