(FILECREATED " 9-Jul-86 15:47:23" ("compiled on " {ERIS}LIBRARY>CMLCHARACTER.;27) " 9-Jul-86 14:49:17" "COMPILE-FILEd" in "Xerox Lisp 30-Jun-86 ..." dated "30-Jun-86 13:37:08") (FILECREATED " 9-Jul-86 15:46:24" {ERIS}LIBRARY>CMLCHARACTER.;27 24963 changes to: (VARS CMLCHARACTERCOMS) (RECORDS CHARACTER) previous date: " 2-Jun-86 10:42:31" {ERIS}LIBRARY>CMLCHARACTER.;25) (RPAQQ CMLCHARACTERCOMS ((COMS (* "Interlisp CHARCODE") (FNS CHARCODE CHARCODE.DECODE) (VARS CHARACTERNAMES CHARACTERSETNAMES) (PROP MACRO CHARCODE SELCHARQ ALPHACHARP DIGITCHARP UCASECODE) ( ALISTS (DWIMEQUIVLST SELCHARQ) (PRETTYEQUIVLST SELCHARQ))) (COMS (* "Common Lisp CHARACTER type") ( DECLARE: EVAL@COMPILE DONTCOPY (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 CL:CHARACTER CHAR-DOWNCASE CHAR-UPCASE DIGIT-CHAR MAKE-CHAR) (FNS CHARACTERP STANDARD-CHAR-P GRAPHIC-CHAR-P STRING-CHAR-P ALPHA-CHAR-P DIGIT-CHAR-P ALPHANUMERICP UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P) (FNS CHAR-INT INT-CHAR CHAR-BITS CHAR-FONT CHAR-CODE CODE-CHAR NAME-CHAR CHAR-NAME) (FNS CHAR-BIT SET-CHAR-BIT) (FNS CHAR-EQUAL CHAR-GREATERP CHAR-LESSP CHAR= CHAR/= CHAR< CHAR> CHAR>= CHAR<= CHAR-NOT-EQUAL CHAR-NOT-GREATERP CHAR-NOT-LESSP) (FNS CHARACTER.READ CHARACTER.PRINT CHARCODE.UNDECODE) (DECLARE: DONTEVAL@LOAD DOCOPY (P (SETTOPVAL (\TYPEGLOBALVARIABLE (QUOTE CHARACTER) T) (NTYPX (CODE-CHAR 0 0 0))) (DEFPRINT (QUOTE CHARACTER) (QUOTE CHARACTER.PRINT)))) (PROP FILETYPE CMLCHARACTER) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML CHARCODE) (LAMA CHAR-NOT-LESSP CHAR-NOT-GREATERP CHAR-NOT-EQUAL CHAR<= CHAR>= CHAR> CHAR< CHAR/= CHAR= CHAR-LESSP CHAR-GREATERP CHAR-EQUAL DIGIT-CHAR))))) CHARCODE D1 (L (0 CHAR)) @ (3 CHARCODE.DECODE) NIL () CHARCODE.DECODE D1 (L (1 NOERROR 0 C)) @µh@A @A @d•d3¿@ kð²@ ³ñAhð´‚±Ïo@ @k dgð²¿@lmÿA d¢±¨mŸågð²@lmÿA d¢±l€Ø@ Q`Yµ.oH [²FHkKkÙHKkØmÿ¸»Hd3 ²'g °#ZdH ¤¿I°Ä3µ:Jb±ÿ/A µA’±ÿ'o@ K3 µ`\µhµ o@ áäg °÷]K •Mµài°ÝL°Ô(422Q STRING-EQUAL 411Q PACK* 400Q ERROR 346Q ERROR 327Q CHARCODE.DECODE 276Q STRING.EQUAL 264Q PACK* 246Q SUBATOM 235Q SUBATOM 222Q STRPOSL 200Q MKSTRING 163Q CHARCODE.DECODE 157Q SUBSTRING 130Q CHARCODE.DECODE 124Q SUBSTRING 104Q NTHCHAR 76Q ERROR 50Q CHCON1 40Q NCHARS 22Q CHARCODE.DECODE 14Q CHARCODE.DECODE) (406Q Q 357Q CHARACTERSETNAMES 261Q Q 206Q CHARACTERNAMES 144Q # 110Q ^) ( 374Q "BAD CHARACTERSET SPECIFICATION" 342Q "BAD CHARACTER SPECIFICATION" 216Q (, - "." "|") 72Q "BAD CHARACTER SPECIFICATION") (RPAQQ CHARACTERNAMES (("Page" 12) ("Form" 12) ("FF" 12) ("Rubout" 127) ("Del" 127) ("Null" 0) ( "Escape" 27) ("Esc" 27) ("Bell" 7) ("Tab" 9) ("Backspace" 8) ("Bs" 8) ("Newline" 13) ("CR" 13) ("EOL" 13) ("Tenexeol" 31) ("Space" 32) ("Sp" 32) ("Linefeed" 10) ("LF" 10) ("Return" 13))) (RPAQQ CHARACTERSETNAMES (("Greek" 38) ("Cyrillic" 39) ("Hira" 36) ("Hiragana" 36) ("Kata" 37) ( "Katakana" 37) ("Kanji" 48))) (PUTPROPS CHARCODE MACRO (DEFMACRO (C) (KWOTE (CHARCODE.DECODE C T)))) (PUTPROPS SELCHARQ MACRO (F (CONS (QUOTE SELECTQ) (CONS (CAR F) (MAPLIST (CDR F) (FUNCTION (LAMBDA (I) (COND ((CDR I) (CONS (CHARCODE.DECODE (CAAR I)) (CDAR I))) (T (CAR I)))))))))) (PUTPROPS ALPHACHARP MACRO ((CHAR) ((LAMBDA (UCHAR) (DECLARE (LOCALVARS UCHAR)) (AND (IGEQ UCHAR ( CHARCODE A)) (ILEQ UCHAR (CHARCODE Z)))) (LOGAND CHAR 95)))) (PUTPROPS DIGITCHARP MACRO (LAMBDA (CHAR) (AND (IGEQ CHAR (CHARCODE 0)) (ILEQ CHAR (CHARCODE 9))))) (PUTPROPS UCASECODE MACRO (OPENLAMBDA (CHAR) (COND ((AND (IGEQ CHAR (CHARCODE a)) (ILEQ CHAR (CHARCODE z))) (LOGAND CHAR 95)) (T CHAR)))) (ADDTOVAR DWIMEQUIVLST (SELCHARQ . SELECTQ)) (ADDTOVAR PRETTYEQUIVLST (SELCHARQ . SELECTQ)) (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)) CL:CHARACTER D1 (L (0 OBJECT)) .@d “¿@°3 ‘@@d§¿@dlð˜ µ @o (53Q ERROR 41Q INT-CHAR 36Q CHARCODE.DECODE 4 CHARACTERP) NIL ( 50Q "Illegal Common Lisp Character specification") CHAR-DOWNCASE D1 (L (0 CHAR)) @d š¿@ l Ô (20Q CODE-CHAR 12Q CHAR-CODE 4 UPPER-CASE-P) NIL () CHAR-UPCASE D1 (L (0 CHAR)) @d š¿@ màÔ (20Q CODE-CHAR 12Q CHAR-CODE 4 LOWER-CASE-P) NIL () DIGIT-CHAR D1 (L (0 -args-)) KekalHñ’l ‚laºlHñ‘j‚lajð´(J3 ´#JIó´l Ió¤Jl ó§Il0Ô Il ÕlAÔ (110Q CODE-CHAR 75Q CODE-CHAR) NIL () MAKE-CHAR D1 (L (2 FONT 1 BITS 0 CHAR)) A”Ajð´ B”Bjð´@NIL NIL () CHARACTERP D1 (L (0 X)) @`ðNIL (4 CHARACTERTYPE#) () 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)) =@ÓHãYjð³IlåYl ñ´$Ilðhð´HlÿåXl ðµHlåXl ñ´HlðhðNIL (3 CHARACTER) () STRING-CHAR-P D1 (L (0 CHAR)) iNIL NIL () ALPHA-CHAR-P D1 (L (0 CHAR) P 0 CODE F 1 \ALPHACHARSETS) 8@ÓlAHñ§HlZñhðµ#laHñ§HlzñhðµHlÿñ´Hl Q´H (65Q GRAPHIC-CHAR-P 55Q RSH) (3 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) () ALPHANUMERICP D1 (L (0 CHAR)) @ µ @ hðhð(11Q DIGIT-CHAR-P 3 ALPHA-CHAR-P) 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 (L (0 CHAR)) @ µ@ (11Q LOWER-CASE-P 3 UPPER-CASE-P) NIL () CHAR-INT D1 (L (0 CHAR)) @ (3 CHAR-CODE) NIL () INT-CHAR D1 (L (0 INTEGER)) @ (3 CODE-CHAR) NIL () CHAR-BITS D1 (L (0 CHAR)) jNIL NIL () CHAR-FONT D1 (L (0 CHAR)) jNIL NIL () CHAR-CODE D1 (L (0 CHAR)) @ÓNIL (3 CHARACTER) () CODE-CHAR D1 (L (2 FONT 1 BITS) I 0 CODE) 'A”Ajð´ B”Bjð´@3 ´j@ó¬o@ó´l@ÑhNIL NIL ( 32Q 200000Q) 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)) CHAR-NAME D1 (L (0 CHAR) P 0 CODE) @Ó1`Yµ.hµm@ ³fHãºHlÿåXJjð²3dlñ³!okHl@ä dHð¤¿I°Æ°ÈoH `[µJ oH dJð¤¿K°â°çh(153Q CONCAT 150Q OCTALSTRING 140Q OCTALSTRING 124Q CONCAT 121Q OCTALSTRING 71Q CONCAT 66Q ALLOCSTRING 25Q GRAPHIC-CHAR-P) (130Q CHARACTERSETNAMES 12Q CHARACTERNAMES 3 CHARACTER) ( 144Q "-" 115Q "0," 56Q "^") CHAR-BIT D1 (L (1 NAME 0 CHAR)) oAoh (17Q ERROR) NIL ( 10Q " not supported." 3 "Bit ") SET-CHAR-BIT D1 (L (2 NEWVALUE 1 NAME 0 CHAR)) oAoh (17Q ERROR) NIL ( 10Q " not supported." 3 "Bit ") CHAR-EQUAL D1 (L (0 -args-)) e eka1Hl2 NdMó²¿Oºgj¼»gIJ °5a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(134Q \LISPERROR 50Q CL:MAPCAR) (42Q CHAR-UPCASE 34Q CHAR=) () CHAR-GREATERP D1 (L (0 -args-)) e eka1Hl2 NdMó²¿Oºgj¼»gIJ °5a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(134Q \LISPERROR 50Q CL:MAPCAR) (42Q CHAR-UPCASE 34Q CHAR>) () CHAR-LESSP D1 (L (0 -args-)) e eka1Hl2 NdMó²¿Oºgj¼»gIJ °5a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(134Q \LISPERROR 50Q CL:MAPCAR) (42Q CHAR-UPCASE 34Q CHAR<) () CHAR= D1 (L (0 N)) (eHlJIó³kaÓJaÓð¡hJkÔZ°èiNIL (31Q CHARACTER 23Q 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) () CHAR-NOT-EQUAL D1 (L (0 -args-)) e eka1Hl2 NdMó²¿Oºgj¼»gIJ °5a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(134Q \LISPERROR 50Q CL:MAPCAR) (42Q CHAR-UPCASE 34Q CHAR/=) () CHAR-NOT-GREATERP D1 (L (0 -args-)) e eka1Hl2 NdMó²¿Oºgj¼»gIJ °5a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(134Q \LISPERROR 50Q CL:MAPCAR) (42Q CHAR-UPCASE 34Q CHAR<=) () CHAR-NOT-LESSP D1 (L (0 -args-)) e eka1Hl2 NdMó²¿Oºgj¼»gIJ °5a_¿OµOh__¿NkÔ^°ÐO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(134Q \LISPERROR 50Q CL:MAPCAR) (42Q CHAR-UPCASE 34Q CHAR>=) () CHARACTER.READ D1 (L (0 STREAM) F 3 *READTABLE*) E@ !SÉ@ º¹JlÿñœIÉ€–JIÉ€µj‚IJÂl åjð¡HŽkH @ (102Q INT-CHAR 76Q CHARCODE.DECODE 73Q CONCAT 70Q RSTRING 64Q ALLOCSTRING 20Q PEEKCCODE 3 READCCODE) (12Q READTABLEP) () CHARACTER.PRINT D1 (L (1 STREAM 0 CHAR) P 7 *PRINT-ESCAPE* F 10Q \THISFILELINELENGTH F 11Q *READTABLE*) n@Óa@ ¹W²IµKkAÈlØØWñ”A ¿AWÊ¼[É ºKLlJ¿AÉ ½Al\lM¿IµAÉ ¾AHlNiœIA ¿°õ °µIA °å(151Q \PRINDATUM 137Q NCHARS 131Q \SOUT 43Q FRESHLINE 13Q CHAR-NAME) (3 CHARACTER) () CHARCODE.UNDECODE D1 (I 0 CODE) @ (6 CHAR-NAME 3 INT-CHAR) NIL () (SETTOPVAL (\TYPEGLOBALVARIABLE (QUOTE CHARACTER) T) (NTYPX (CODE-CHAR 0 0 0))) (DEFPRINT (QUOTE CHARACTER) (QUOTE CHARACTER.PRINT)) (PUTPROPS CMLCHARACTER FILETYPE COMPILE-FILE) (PUTPROPS CMLCHARACTER COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP