(FILECREATED "28-Oct-85 21:29:36" ("compiled on " {ERIS}LIBRARY>CMLCHARACTER.;18) "17-Oct-85 18:58:44" recompiled changes: STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P ALPHANUMERICP CHAR-CODE CHAR= CHAR/= CHAR< CHAR> CHAR>= CHAR<= NAME-CHAR DIGIT-CHAR CHAR-NAME CHARACTER.PRINT CHARCODE.UNDECODE in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 19:19:58") (FILECREATED "28-Oct-85 21:29:14" {ERIS}LIBRARY>CMLCHARACTER.;18 13279 changes to: (FNS CHAR-NAME NAME-CHAR DIGIT-CHAR STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P ALPHANUMERICP CHAR-CODE CHAR= CHAR/= CHAR< CHAR> CHAR>= CHAR<= CHARACTER.PRINT CHARCODE.UNDECODE) (VARS CMLCHARACTERCOMS) previous date: "23-Oct-85 15:07:57" {ERIS}LIBRARY>CMLCHARACTER.;14) STANDARD-CHAR-P D1 (L (0 CHAR)) @ÓohðhðNIL (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) @ µ @ hðhð(11Q DIGIT-CHAR-P 3 ALPHA-CHAR-P) NIL () CODE-CHAR D1 (L (2 FONT 1 BITS 0 CODE)) 'A”Ajð´ B”Bjð´@3 ´j@ó¬o@ó´l@ÑhNIL NIL ( 32Q 200000Q) CHAR-EQUAL D1 (L (0 \CL:LAMBDA.ARGCNT) P 4 CNT P 3 FN P 2 CHARS P 1 CHAR) q ekHñ˜oH ¿@1Hl2 NdMó²¿Oºgj¼»gIJ °4a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\lPñ–hl4 ¿µìLK(147Q \LISPERROR 64Q CL:MAPCAR 17Q ERROR) (56Q CHAR-UPCASE 50Q CHAR=) ( 13Q "Too few args") CHAR-FONT D1 (L (0 CHAR)) jNIL NIL () CHAR-GREATERP D1 (L (0 \CL:LAMBDA.ARGCNT) P 4 CNT P 3 FN P 2 CHARS P 1 CHAR) q ekHñ˜oH ¿@1Hl2 NdMó²¿Oºgj¼»gIJ °4a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\lPñ–hl4 ¿µìLK(147Q \LISPERROR 64Q CL:MAPCAR 17Q ERROR) (56Q CHAR-UPCASE 50Q CHAR>) ( 13Q "Too few args") CHAR-LESSP D1 (L (0 \CL:LAMBDA.ARGCNT) P 4 CNT P 3 FN P 2 CHARS P 1 CHAR) q ekHñ˜oH ¿@1Hl2 NdMó²¿Oºgj¼»gIJ °4a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\lPñ–hl4 ¿µìLK(147Q \LISPERROR 64Q CL:MAPCAR 17Q ERROR) (56Q CHAR-UPCASE 50Q CHAR<) ( 13Q "Too few args") 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) +@ ’@°@d3 ®§@dlðš¿@ µ @o (50Q ERROR 36Q INT-CHAR 33Q CHARCODE.DECODE 3 CHARACTERP) NIL ( 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-CHARA0001 D1 (NAME ERRORSET F 0 NAME) P h(6 INT-CHAR 3 CHARCODE.DECODE) NIL () NAME-CHAR D1 (I 0 NAME) o (6 NAME-CHARA0001) NIL ( 3 (NAME-CHARA0001)) DIGIT-CHAR D1 (L (0 \CL:LAMBDA.ARGCNT) P 3 FONT P 2 RADIX P 1 WEIGHT) bekHñ˜oH ¿Hlñ˜oH ¿@!lHñ’l €AºlHñ‘j€B[jð´(J3 ´#JIó´l Ió¤Jl ó§Il0Ô Il ÕlAÔ (137Q CODE-CHAR 124Q CODE-CHAR 35Q ERROR 17Q ERROR) NIL ( 31Q "Too many args" 13Q "Too few args") CHAR-NAME D1 (L (0 CHAR) F 2 CHARACTERNAMES) @ÓRYµhdHð¤¿I°ðNIL (3 CHARACTER) () CHAR-NOT-EQUAL D1 (L (0 \CL:LAMBDA.ARGCNT) P 4 CNT P 3 FN P 2 CHARS P 1 CHAR) q ekHñ˜oH ¿@1Hl2 NdMó²¿Oºgj¼»gIJ °4a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\lPñ–hl4 ¿µìLK(147Q \LISPERROR 64Q CL:MAPCAR 17Q ERROR) (56Q CHAR-UPCASE 50Q CHAR/=) ( 13Q "Too few args") CHAR-NOT-GREATERP D1 (L (0 \CL:LAMBDA.ARGCNT) P 4 CNT P 3 FN P 2 CHARS P 1 CHAR) q ekHñ˜oH ¿@1Hl2 NdMó²¿Oºgj¼»gIJ °4a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\lPñ–hl4 ¿µìLK(147Q \LISPERROR 64Q CL:MAPCAR 17Q ERROR) (56Q CHAR-UPCASE 50Q CHAR<=) ( 13Q "Too few args") CHAR-NOT-LESSP D1 (L (0 \CL:LAMBDA.ARGCNT) P 4 CNT P 3 FN P 2 CHARS P 1 CHAR) q ekHñ˜oH ¿@1Hl2 NdMó²¿Oºgj¼»gIJ °4a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\lPñ–hl4 ¿µìLK(147Q \LISPERROR 64Q CL:MAPCAR 17Q ERROR) (56Q CHAR-UPCASE 50Q CHAR>=) ( 13Q "Too few args") 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) f@l0Hñhð´Hl9ñhð³@l_ålAHñhð´HlZñhð•k@ RHµ@ló³!o@l@ä Yd@ð¥¿HX°Ük@ (143Q ALLOCSTRING 115Q CONCAT 112Q CHARCODE.UNDECODE 60Q ALLOCSTRING) NIL ( 103Q "^") (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-EQUAL CHAR-FONT CHAR-GREATERP CHAR-LESSP 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-NOT-EQUAL CHAR-NOT-GREATERP CHAR-NOT-LESSP CHAR-INT CHAR-DOWNCASE CHAR-UPCASE CHAR-BIT SET-CHAR-BIT CHARACTERP) (FNS CHARACTER.PRINT CHARCODE.UNDECODE) (P (SETTOPVAL (\TYPEGLOBALVARIABLE ( QUOTE CHARACTER)) (NTYPX (CODE-CHAR 0 0 0)))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA DIGIT-CHAR CHAR<= CHAR>= CHAR> CHAR< CHAR/= CHAR= CHAR-NOT-LESSP CHAR-NOT-GREATERP CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-EQUAL))))) (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)) (SETTOPVAL (\TYPEGLOBALVARIABLE (QUOTE CHARACTER)) (NTYPX (CODE-CHAR 0 0 0))) (PUTPROPS CMLCHARACTER COPYRIGHT ("Xerox Corporation" 1985)) NIL