(FILECREATED "25-Jul-86 23:30:14" ("compiled on " {ERIS}LIBRARY>CMLCHARACTER.;28) "23-Jul-86 04:26:56" "COMPILE-FILEd" in "Xerox Lisp 23-Jul-86 ..." dated "23-Jul-86 04:52:47") (FILECREATED "25-Jul-86 23:29:47" {ERIS}LIBRARY>CMLCHARACTER.;28 25935 changes to: ( OPTIMIZERS OPT-CHAR-CODE OPT-CODE-CHAR) (VARS CMLCHARACTERCOMS) previous date: " 9-Jul-86 15:46:24" {ERIS}LIBRARY>CMLCHARACTER.;27) (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 (GLOBALVARS \CHARHI) (\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)) (OPTIMIZERS OPT-CHAR-CODE OPT-CODE-CHAR)) (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 (I 0 CHAR) @ (3 CHARCODE.DECODE) NIL () CHARCODE.DECODE D1 (P 5 PAIR P 3 POS P 2 X P 0 STR I 1 NOERROR I 0 C) *@µh@A @A @d²3³@³Ahð´‚±åo@ @ kð”@ @k dgð²¿@lmÿA d¢±²mŸågð²@lmÿA d¢±—l€Ø@ `Iµ1oH K²FHkKkÙHKkØmÿ¸»Hd3 ²&g °"ZH žJ3µCJA IY°´A XµA’±ÿ!o@ K3 µ`Lµhµ o@ áäg °÷]K •Mµßi°ÜL\°Ó(434Q STRING-EQUAL 423Q PACK* 412Q ERROR 354Q ERROR 334Q CHARCODE.DECODE 322Q CHARCODE.DECODE 303Q STRING.EQUAL 272Q PACK* 254Q SUBATOM 243Q SUBATOM 225Q STRPOSL 200Q MKSTRING 163Q CHARCODE.DECODE 157Q SUBSTRING 130Q CHARCODE.DECODE 124Q SUBSTRING 104Q NTHCHAR 76Q CHCON1 67Q NCHARS 62Q ERROR 22Q CHARCODE.DECODE 14Q CHARCODE.DECODE) (420Q Q 365Q CHARACTERSETNAMES 267Q Q 206Q CHARACTERNAMES 144Q # 110Q ^) ( 406Q "BAD CHARACTERSET SPECIFICATION" 350Q "BAD CHARACTER SPECIFICATION" 221Q (%, - "." "|") 56Q "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 GLOBALVARS \CHARHI) (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)) OPT-CHAR-CODE D1 (L (2 A0092 1 A0091 0 A0090)) @ggHohNIL (13Q \DTEST 10Q \LOLOC) ( 20Q ((QUOTE CHARACTER))) (LET* ((A0094 (QUOTE CHAR-CODE)) (A0095 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0097 (CONS (FUNCTION OPT-CHAR-CODE) (GET A0094 A0095)))) (PUTPROP A0094 A0095 A0097)) OPT-CODE-CHAR D1 (L (2 A0100 1 A0099 0 A0098)) *@AH¹HZd»J´J¼K«L©oIhµgNIL (47Q COMPILER:PASS) ( 36Q (LAMBDA (C) (DECLARE (LOCALVARS C)) (AND (LEQ C (SUB1 CHAR-CODE-LIMIT)) (\VAG2 \CHARHI C)))) (LET* ((A0103 (QUOTE CODE-CHAR)) (A0104 (QUOTE COMPILER:OPTIMIZER-LIST)) (A0106 (CONS (FUNCTION OPT-CODE-CHAR) (GET A0103 A0104)))) (PUTPROP A0103 A0104 A0106)) 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-DOWNCASE D1 (I 0 CHAR) "@ ²@Ól ÔHnÿÿóhð´lHÑ@(3 UPPER-CASE-P) (11Q CHARACTER) () CHAR-UPCASE D1 (I 0 CHAR) "@ ²@ÓmàÔHnÿÿóhð´lHÑ@(3 LOWER-CASE-P) (11Q CHARACTER) () DIGIT-CHAR D1 (L (0 -args-)) `eka1lHñ’l ‚laºlHñ‘j‚lajð´=J3 ´8JIó´3l Ió¥Jl ó³Il0Ô[nÿÿóhð´lKÑIl ÕlAÔ\nÿÿóhð´lLÑNIL NIL () MAKE-CHAR D1 (L (2 FONT 1 BITS 0 CHAR)) A”Ajð´ B”Bjð´@NIL NIL () CHARACTERP D1 (L (0 X)) @l ðNIL NIL () STANDARD-CHAR-P D1 (I 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 (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) () 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 (I 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 (I 0 CHAR) @ µ@ (11Q LOWER-CASE-P 3 UPPER-CASE-P) NIL () CHAR-INT D1 (I 0 CHAR) @ÓNIL (3 CHARACTER) () INT-CHAR D1 (I 0 INTEGER) @Hnÿÿóhð´lHÑNIL NIL () CHAR-BITS D1 (L (0 CHAR)) jNIL NIL () CHAR-FONT D1 (L (0 CHAR)) jNIL NIL () CHAR-CODE D1 (I 0 CHAR) @ÓNIL (3 CHARACTER) () CODE-CHAR D1 (I 2 FONT I 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 (P 4 X P 2 CSET P 0 CODE I 0 CHAR) ‡@Ó`Yµ0hµu@ ³nHãHlÿåXJjð²3dlñ³!okHl@ä dHð¤¿I°Ä°ÆoH `KµJ oH \dJð¥¿K[°à°äh(161Q CONCAT 156Q OCTALSTRING 145Q OCTALSTRING 126Q CONCAT 123Q OCTALSTRING 73Q CONCAT 70Q ALLOCSTRING 25Q GRAPHIC-CHAR-P) (132Q CHARACTERSETNAMES 12Q CHARACTERNAMES 3 CHARACTER) ( 152Q "-" 117Q "0," 60Q "^") 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 ") 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 (P 2 I P 0 N) (eHlJIó³kaÓJaÓð¡hJkÔZ°èiNIL (31Q CHARACTER 23Q CHARACTER) () CHAR/= D1 (P 4 J P 2 I P 0 N) >eHkJIó³/HJkØLKó³JaÓLaÓð‘h†LkÔ\°èi¡hJkÔZ°ÑiNIL (44Q CHARACTER 36Q CHARACTER) () CHAR< D1 (P 2 J P 0 N) *eHlJdIó‘ikÙaÓJaÓýó¡hJkÔZ°äNIL (34Q CHARACTER 26Q CHARACTER) () CHAR> D1 (P 2 J P 0 N) )eHlJdIó‘ikÙaÓJaÓó¡hJkÔZ°åNIL (34Q CHARACTER 26Q CHARACTER) () CHAR>= D1 (P 2 J P 0 N) *eHlJdIó‘ikÙaÓJaÓýó‘hJkÔZ°äNIL (34Q CHARACTER 26Q CHARACTER) () CHAR<= D1 (P 2 J P 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 (P 0 NEXTCHAR I 0 STREAM F 3 *READTABLE*) G@ !SÉ@ º¹JlÿñžIÉ€˜JIÉ€ µj‚IJÂl åjð¡HŽkH @ (104Q INT-CHAR 100Q CHARCODE.DECODE 75Q CONCAT 72Q RSTRING 66Q ALLOCSTRING 42Q GETHASH 20Q PEEKCCODE 3 READCCODE) (12Q READTABLEP) () CHARACTER.PRINT D1 (P 7 *PRINT-ESCAPE* P 6 PNAME P 0 N I 1 STREAM I 0 CHAR F 10Q \THISFILELINELENGTH F 11Q *READTABLE*) p@ÓQ@ W²NµKkAÈlØØWñ”A ¿AWÊ»ZÉ ¹JKlI¿AÉ ¼Al\lL¿NµAÉ ½AHlMiœNA ¿°õ °µNA °å(153Q \PRINDATUM 141Q NCHARS 133Q \SOUT 45Q 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