(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "20-Oct-86 22:57:28" ("compiled on " {ERIS}SOURCES>APRINT.;52) "19-Oct-86 18:07:50" "COMPILE-FILEd" in "Xerox Lisp 19-Oct-86 ..." dated "19-Oct-86 23:28:21") (FILECREATED "20-Oct-86 22:38:32" {ERIS}SOURCES>APRINT.;52 67955 previous date%: "16-Oct-86 21:28:06" {ERIS}SOURCES>APRINT.;51) (RPAQQ APRINTCOMS ((COMS (* ; "User-level print functions") (FNS PRIN1 PRIN2 PRIN3 PRIN4 PRINT PRINTCCODE PRINTLEVEL RADIX SPACES TERPRI FRESHLINE DEFPRINT LINELENGTH)) (INITVARS (PLVLFILEFLG NIL) (\LINELENGTH 82) (\FLOATFORMAT T) (PRXFLG NIL) (*PRINT-BASE* 10) (*READ-BASE* 10) (*PRINT-RADIX* NIL) (*PRINT-ESCAPE* T) (*PRINT-CASE* (QUOTE :UPCASE)) (*PRINT-GENSYM* T) (*PRINT-LEVEL* NIL) ( *PRINT-LENGTH* NIL) (*PRINT-PRETTY* NIL) (*PRINT-CIRCLE* NIL) (*PRINT-ARRAY* NIL) ( *PRINT-CIRCLE-HASHTABLE* NIL) (*PACKAGE* NIL) (*KEYWORD-PACKAGE* NIL) (*INTERLISP-PRIN1-CASE* (QUOTE :UPCASE)) (\DEFPRINTFNS NIL)) (COMS (* ; "PRINT internals") (FNS PRINT-CIRCLE-LOOKUP PRINT-CIRCLE-LABEL-P PRINT-CIRCLE-SCAN PRINT-CIRCLE-ENTER) (FNS \PRINDATUM \ELIDE.PRINT.ELEMENT \ELIDE.ELEMENT.CHAR \ELIDE.PRINT.TAIL \ELIDE.TAIL.STRING \CKPOSBOUT \CKPOSSOUT \CONVERTNUMBER \LITPRIN \LITPRIN.INTERNAL \SYMBOL.ESCAPE.COUNT \NUMERIC.PNAMEP \PRINSTACKP \PRINTADDR \PRINSTRING \SOUT \OUTCHAR \FILEOUTCHARFN \TTYOUTCHARFN) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS .FILELINELENGTH.) ( EXPORT (MACROS .SPACECHECK. \CHECKRADIX))) (FNS \INVALID.RADIX) (SPECVARS \THISFILELINELENGTH)) (COMS (* ; "Internal printing") (FNS \MAPPNAME \MAPPNAME.INTERNAL PNAMESTREAMP) (DECLARE%: DONTCOPY ( RESOURCES \MAPPNAMESTREAM) (MACROS PNAMESTREAMP)) (INITRESOURCES \MAPPNAMESTREAM) (INITVARS ( \PNAMEDEVICE (NCREATE (QUOTE FDEV) (\GETDEVICEFROMHOSTNAME (QUOTE NULL) T)))) (GLOBALVARS \PNAMEDEVICE )) (COMS (* ; "Obsolete") (FNS \MAPCHARS)) (DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (SYSSPECVARS *PRINT-BASE* *READ-BASE* *PRINT-RADIX* *PRINT-ESCAPE* *PRINT-CASE* *PRINT-GENSYM* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-ARRAY* *PACKAGE*))) (COMS (* ; "PRINTNUM and friends") (FNS PRINTNUM FLTFMT \CHECKFLTFMT) (MACROS NUMFORMATCODE) (INITVARS ( NILNUMPRINTFLG))) (LOCALVARS . T) (GLOBALVARS \LINELENGTH \FLOATFORMAT PRXFLG \DEFPRINTFNS) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PRINT-CIRCLE-ENTER PRINT-CIRCLE-SCAN PRINT-CIRCLE-LABEL-P))))) PRIN1 D1 (L (1 FILE 0 X) P 8 \THISFILELINELENGTH P 7 *PRINT-RADIX* P 6 *PRINT-ESCAPE* P 5 *PRINT-CASE* P 4 *PRINT-LENGTH* P 3 *PRINT-LEVEL* F 9 *READTABLE* F 10 \TERM.OFD F 11 PLVLFILEFLG F 12 *PRINT-CASE* F 13 *PRINT-LEVEL* F 14 *PRINT-LENGTH* F 15 *INTERLISP-PRIN1-CASE*) V Ag !WÊ jðhðµ HWðµWY´WI´WWµW3HÈZdjð”¿`‡nÿÿð‘h€J_@Hj@(82 \PRINDATUM 6 \GETSTREAM) (65 \LINELENGTH 54 STREAM 14 READTABLEP 3 OUTPUT) () PRIN2 D1 (L (2 RDTBL 1 FILE 0 X) P 9 \THISFILELINELENGTH P 8 *PACKAGE* P 7 *PRINT-LENGTH* P 6 *PRINT-LEVEL* P 5 *PRINT-RADIX* P 4 *PRINT-ESCAPE* P 3 *READTABLE* F 10 *READTABLE* F 11 \TERM.OFD F 12 *PACKAGE* F 13 PLVLFILEFLG F 14 *PRINT-BASE* F 15 *PRINT-LEVEL* F 16 *PRINT-LENGTH* F 17 *INTERLISP-PACKAGE*) v Ag !B•Bdið’¿WbÊ jðhðµ HWðµW¹BiWl ðhðI´WI´W BÊ jð¢W"W HÈZdjð”¿`‡nÿÿð‘h€J_@Hj@(114 \PRINDATUM 6 \GETSTREAM) (97 \LINELENGTH 86 STREAM 68 READTABLEP 27 READTABLEP 22 READTABLEP 3 OUTPUT) () PRIN3 D1 (L (1 FILE 0 X) P 7 \THISFILELINELENGTH P 6 *PRINT-RADIX* P 5 *PRINT-ESCAPE* P 4 *PRINT-CASE* P 3 *PRINT-LENGTH* P 2 *PRINT-LEVEL* F 8 *READTABLE* F 9 \TERM.OFD F 10 PLVLFILEFLG F 11 *PRINT-CASE* F 12 *PRINT-LEVEL* F 13 *PRINT-LENGTH* F 14 *INTERLISP-PRIN1-CASE*) <Ag WÊ jðhðµ HWðµWY´WI´WWµW3@Hj@(56 \PRINDATUM 6 \GETSTREAM) (14 READTABLEP 3 OUTPUT) () PRIN4 D1 (L (2 RDTBL 1 FILE 0 X) P 8 \THISFILELINELENGTH P 7 *PACKAGE* P 6 *PRINT-LENGTH* P 5 *PRINT-LEVEL* P 4 *PRINT-RADIX* P 3 *PRINT-ESCAPE* P 2 *READTABLE* F 9 *READTABLE* F 10 \TERM.OFD F 11 *PACKAGE* F 12 PLVLFILEFLG F 13 *PRINT-BASE* F 14 *PRINT-LEVEL* F 15 *PRINT-LENGTH* F 16 *INTERLISP-PACKAGE*) \ Ag B•Bdið’¿WbÊ jðhðµ HWðµW¹BiWl ðhðI´WI´WBÊ jð¢W W@Hj@(88 \PRINDATUM 6 \GETSTREAM) (68 READTABLEP 27 READTABLEP 22 READTABLEP 3 OUTPUT) () PRINT D1 (L (2 RDTBL 1 FILE 0 X)) !Ag @HBHÉ ¹Hl lI@(15 PRIN2 6 \GETSTREAM) (19 STREAM 3 OUTPUT) () PRINTCCODE D1 (L (1 FILE 0 CHARCODE)) -Ag @d›¿j@ñ‘h€i‘@ƒ@ HÉ ºHIlJ(26 \ILLEGAL.ARG 6 \GETSTREAM) (33 STREAM 3 OUTPUT) () PRINTLEVEL D1 (L (1 CDRVAL 0 CARVAL) F 0 *PRINT-LEVEL* F 1 *PRINT-LENGTH*) ;@µPµmÿQµmÿ@²j@ñœh‹b¿@b¿°ãi´@c¿AœjAñ‘h€i´Ac¿NIL NIL () RADIX D1 (L (0 N) F 1 *PRINT-BASE*) %Q@²!@H‘h€iªkHñ¦Hdl$ñ”¿H c¿(30 \INVALID.RADIX) NIL () SPACES D1 (L (1 FILE 0 N)) OAg 1HÈZdjð”¿`‡nÿÿð‘h€JYŸ@HÈØIñ”H ¿@djñ´HÉ »Hl lK¿kÙ°ê(50 FRESHLINE 6 \GETSTREAM) (61 STREAM 40 STREAM 24 \LINELENGTH 13 STREAM 3 OUTPUT) () TERPRI D1 (L (0 FILE)) @g HÉ ¹Hl lIh(6 \GETSTREAM) (13 STREAM 3 OUTPUT) () FRESHLINE D1 (L (0 STREAM)) e@dÃ²:¿@dÊRlåjð²2¿@dÊRlåjð³¿@ÉÉ4@kH‘@ˆ@g bÈjð³@É @l lHih(68 GETSTREAM) (83 STREAM 73 STREAM 65 OUTPUT 48 FDEV 43 STREAM 28 STREAM 12 STREAM 4 STREAM) () DEFPRINT D1 (L (1 FN 0 TYPE)) 1@d3 ” b`HµAš@A`¿H` ¿°æ(41 DREMOVE 7 \TYPENAMEFROMNUMBER) (44 \DEFPRINTFNS 38 \DEFPRINTFNS 31 \DEFPRINTFNS 27 \DEFPRINTFNS 12 \DEFPRINTFNS) () LINELENGTH D1 (L (1 FILE 0 N)) 6Ag HÈ@²#@3™k@ñ•@ ¿H@dið”¿nÿÿjØÍ¿(30 \ILLEGAL.ARG 6 \GETSTREAM) (36 STREAM 13 STREAM 3 OUTPUT) () (RPAQ? PLVLFILEFLG NIL) (RPAQ? \LINELENGTH 82) (RPAQ? \FLOATFORMAT T) (RPAQ? PRXFLG NIL) (RPAQ? *PRINT-BASE* 10) (RPAQ? *READ-BASE* 10) (RPAQ? *PRINT-RADIX* NIL) (RPAQ? *PRINT-ESCAPE* T) (RPAQ? *PRINT-CASE* (QUOTE :UPCASE)) (RPAQ? *PRINT-GENSYM* T) (RPAQ? *PRINT-LEVEL* NIL) (RPAQ? *PRINT-LENGTH* NIL) (RPAQ? *PRINT-PRETTY* NIL) (RPAQ? *PRINT-CIRCLE* NIL) (RPAQ? *PRINT-ARRAY* NIL) (RPAQ? *PRINT-CIRCLE-HASHTABLE* NIL) (RPAQ? *PACKAGE* NIL) (RPAQ? *KEYWORD-PACKAGE* NIL) (RPAQ? *INTERLISP-PRIN1-CASE* (QUOTE :UPCASE)) (RPAQ? \DEFPRINTFNS NIL) PRINT-CIRCLE-LOOKUP D1 (L (0 OBJECT) F 4 *PRINT-CIRCLE-NUMBER* F 5 *PRINT-CIRCLE-HASHTABLE* F 6 *READTABLE*) l@U 1Hgð¢Hµhd gð²,VÊ To@»UºT¹KJI¿TkÔc¿i H3²VÊ Hoh o (105 CL:ERROR 97 CL:VALUES 93 CONCAT 85 CHARACTER 69 CL:VALUES 58 CL::PUTHASH 46 CONCAT 38 CHARACTER 21 CL:VALUES 4 GETHASH) (79 READTABLEP 32 READTABLEP 25 T2 11 T1) ( 102 "Print-circle-lookup hashtable error!" 90 "#" 43 "=") PRINT-CIRCLE-LABEL-P D1 (L (0 OBJECT) F 1 *PRINT-CIRCLE-HASHTABLE*) @Q HgðµH3 ´H(4 GETHASH) (11 T2) () PRINT-CIRCLE-SCAN D1 (L (0 OBJECT) F 4 *PRINT-ARRAY*) t@dÃ²¿@ ‘h€i´@ @b¿¿°ãH ´H ið´5T´2@ ‘h€i´(@ 1@d kó˜¿Hg@¹Hj»ºJKó‘h€i‘hIK¶ ¿KkÔ»°ë(107 PRINT-CIRCLE-SCAN 86 CL:MAKE-ARRAY 74 CL:ARRAY-RANK 66 CL:ARRAY-TOTAL-SIZE 56 PRINT-CIRCLE-ENTER 44 CL:ARRAY-ELEMENT-TYPE 38 CL:ARRAYP 22 PRINT-CIRCLE-SCAN 11 PRINT-CIRCLE-ENTER) (82 :DISPLACED-TO 4 LISTP) () PRINT-CIRCLE-ENTER D1 (L (0 OBJECT) F 5 *PRINT-CIRCLE-HASHTABLE* F 6 THERE-ARE-CIRCLES) A@U AHµ@ºU¹JIghgð²@¼U»LKg¿icHgð‘io (62 CL:ERROR 42 CL::PUTHASH 22 CL::PUTHASH 4 CL:GETHASH) (51 T2 39 T2 27 T1 19 T1) ( 59 "Print-circle-enter hashtable error!") \PRINDATUM D1 (L (2 CPL 1 STREAM 0 X) P 9 *PRINT-ESCAPE* P 8 *PRINT-LEVEL* F 10 *READTABLE* F 11 *PRINT-LENGTH* F 12 *PRINT-CIRCLE-HASHTABLE* F 13 *PRINT-LEVEL* F 14 \THISFILELINELENGTH F 15 *PRINT-BASE* F 16 *PRINT-RADIX*) « @dlð–¿@A dlð¢±Õ¿B£jb¿@W@ Z¸J¹H²AH ¿I–Al ¿H˜I‘h€i’±›Wd³»W²)WÊ jð¯j°Bñ‘h€i´çA WBñ‘h€i³óB»BkÔb¿Al( ¿Kµ5@AB¿@bd²3¿Al ¿W²ã@ ²ÝAo ¿@AB°kÔ[Wñ²ÇAi ŽžAo ¿@A ¿Al) hdkð¥dlð²\¿`µ#l& `µA@WZŸhŽh¿°îh¿°ßiªkJñ¦Jdl$ñ”¿J iW ´WHI H¿I¿dlð²T¿`µ/l& `µA@HIAÉ`ð²`ŸhŽh¿°âh¿°Ói‘i‚` H¿I¿dlð–¿@A lð•@A @dÃ—¿@Aj qH`_²#Wd”BµjÙO¹@AjlI_µ‚±“WÊ jð³]W²AdÈlØWñ–¿A ¿AWÊ¼[É ºKLlJ¿AÉ ½Al Al{ H•HA ¿Al} AÉ ¾Al#lN¿@A ´þOd¿ OA O´èOb±ýY(666 \PRINDATUM 646 \PRINTADDR 626 \CKPOSBOUT 619 \LITPRIN 612 \CKPOSBOUT 605 \CKPOSBOUT 599 \PRINTADDR 594 \CKPOSSOUT 585 \LITPRIN 538 FRESHLINE 458 TYPENAME 454 PRINT-INSTANCE 440 \PRINSTACKP 430 \PRINSTRING 408 \CKPOSSOUT 405 \CONVERT.FLOATING.NUMBER 356 CONCAT 348 ALLOCSTRING 320 \CKPOSSOUT 317 \CONVERTNUMBER 304 \INVALID.RADIX 260 CONCAT 252 ALLOCSTRING 229 \CKPOSBOUT 222 \PRINDATUM 216 \CKPOSSOUT 206 \ELIDE.PRINT.TAIL 191 \PRINDATUM 184 \CKPOSSOUT 174 PRINT-CIRCLE-LABEL-P 165 \CKPOSBOUT 149 \PRINDATUM 138 \CKPOSBOUT 113 \ELIDE.PRINT.ELEMENT 65 \CKPOSBOUT 56 \CKPOSSOUT 41 \MVLIST 38 PRINT-CIRCLE-LOOKUP 12 \LITPRIN) (630 STREAM 567 STREAM 553 STREAM 545 READTABLEP 524 STREAM 508 READTABLEP 465 \DEFPRINTFNS 446 T 417 \\NUMSTR1.GLOBALRESOURCE 412 \\NUMSTR.GLOBALRESOURCE 402 \FLOATFORMAT 392 \\NUMSTR.GLOBALRESOURCE 385 \\NUMSTR1.GLOBALRESOURCE 378 PRXFLG 372 \PNAMEDEVICE 367 STREAM 351 \\NUMSTR1.GLOBALRESOURCE 341 \\NUMSTR.GLOBALRESOURCE 329 \\NUMSTR1.GLOBALRESOURCE 324 \\NUMSTR.GLOBALRESOURCE 284 \\NUMSTR.GLOBALRESOURCE 277 \\NUMSTR1.GLOBALRESOURCE 255 \\NUMSTR1.GLOBALRESOURCE 245 \\NUMSTR.GLOBALRESOURCE 92 READTABLEP) ( 591 " @ " 213 " . " 181 ". ") \ELIDE.PRINT.ELEMENT D1 (L (0 STREAM)) @HÉ ºHIlJ(3 \ELIDE.ELEMENT.CHAR) (10 STREAM) () \ELIDE.ELEMENT.CHAR D1 (F 0 *READTABLE*) PÊ jð§PÊl&NIL (13 READTABLEP 3 READTABLEP) () \ELIDE.PRINT.TAIL D1 (L (1 NOSPACEP 0 STREAM)) !A‘h€i²@É @l lH@ (30 \SOUT 26 \ELIDE.TAIL.STRING) (10 STREAM) () \ELIDE.TAIL.STRING D1 (F 0 *READTABLE*) PÊ jð¤ooNIL (3 READTABLEP) ( 18 "--" 13 "...") \CKPOSBOUT D1 (L (1 X 0 STREAM) F 1 \THISFILELINELENGTH) &Q²@dÈkØQñ–¿@ ¿@É @AlH(19 FRESHLINE) (24 STREAM 7 STREAM) () \CKPOSSOUT D1 (L (1 X 0 STREAM) F 7 \THISFILELINELENGTH) `W²AÈ@ÈØWñ”@ ¿AaHÈkÙ»HÉ¼KHÈØºHÊCjð‘h€i]¿KkØ[Jñ³M•LKÐÈ‚LKÂ¹@É ¾@IlN°Þh(24 FRESHLINE) (81 STREAM 13 STREAM 7 STRINGP) () \CONVERTNUMBER D1 (L (5 NSB 4 NS 3 RDTBL 2 IGNORE 1 R 0 N)) >@jð”opj@ó‘h€i‘@ƒj@ÙX¹DÈZkÙ»h¼Alð’CµDJmÿÔZIAÜ½l Mñ²*Ml0°+Ê jð¡h€i²ßIlñ²ÙDKkÔ[lQ¿i¼°ÊMl ÙlAØ¿IAÛYjð²·H›DJmÿÔZl-¿Al ð’±¥C¢± L‘h€i¢±—j@ñ‘h€i‘@‚j@Ù^l ó¨ANó‘h€i²{Adlðš¿DJmÿÔZlx°Ulð™DJmÿÔZlo°GAlð™DJmÿÔZlb°8DJmÿÔZlr¿DJmÿÔZAl l0Ø¿l Aó‘h€i²DJmÿÔZAl Ûl0Ø¿DJmÿÔZCÊ¿DJKE(315 SUBSTRING 307 RPLCHARCODE 290 RPLCHARCODE 263 RPLCHARCODE 257 IMOD 244 RPLCHARCODE 137 RPLCHARCODE 115 RPLCHARCODE 100 RPLCHARCODE) (301 READTABLEP 73 READTABLEP 33 STRINGP 30 STRINGP) ( 7 "0") \LITPRIN D1 (L (1 STREAM 0 X) F 10 \THISFILELINELENGTH F 11 *READTABLE* F 12 *PACKAGE* F 13 *PRINT-ESCAPE* F 14 *PRINT-CASE* F 15 *PRINT-GENSYM* F 16 *KEYWORD-PACKAGE*) W¢±„W!Wµ@HAId’ JW `@ÁÊ¶Yð“h¹°àIµW²Ùll: ZkHÊ¿°ÃW ðŸkHÊ ºh¹°¯@dW ”¿h¹°¢dI ð‘klHÊ º°ŠW²@ÁÉÊAÈØWñ”A ¿j@Wgð´WÊjðhðs IÁÉ\Ê½IÁÊ jðhð^¿HkØXMñ³BN•LHÐÈ‚LHÂ»AJ²KlZó‘h€ilAKó‘h€i”Kl Ø€K_¿_É _¿OOlO°¹h(161 FRESHLINE 131 ALLOCSTRING 115 FIND-EXTERNAL-SYMBOL 104 FIND-EXACT-SYMBOL 92 ALLOCSTRING 74 RPLCHARCODE 62 ALLOCSTRING 30 \LITPRIN.INTERNAL 23 PACKAGE-NAME-AS-SYMBOL) (265 STREAM 177 READTABLEP 169 :DOWNCASE 150 STREAM 125 READTABLEP 86 READTABLEP 68 READTABLEP 34 *PACKAGE-FROM-INDEX*) () \LITPRIN.INTERNAL D1 (L (5 CHECKLENGTH 4 PKGSEPR 3 PKGNAME 2 STREAM 1 RDTBL 0 CL:SYMBOL) F 31 \THISFILELINELENGTH F 32 *PRINT-CASE*) ¼@ÁÉÊAÊAÊ‡óPE¤Jjð³.@AEhð_mÿð™k_¿i_¿°jOñ™jOÙ_¿i»ˆOjð£i_¿E²,W>²(HOCµ‚±¥jDµ‚±•jBÈØØØØW>ñ”B ¿CµuDµkO²BÉ _¿BIlO¿K¢±ÅBÉ _¿BJlO¿j@BO0ÁÉ_4Ê_6¿O0ÁÊ jðhð_8¿O.kØ_.O6ñ²GBÉ _¿BJlOB ¿°’AB¿°‡È±ÿjA _¿jOñ‘h€i”O±ÿMjOÙ±ÿFO8—O4O.ÐÈ„O4O.Â_2Jð¥O2Ið²BÉ _¿BIlO¿BÉ _¿BO2lO±ÿrHkð².@ l.ð²%BÉ _ ¿BIlO ¿BÉ _"¿Bl.lO"O²AÊjðhð´ `É¼AÉ½j@iAÊjðhð´W@gðDO0ÁÉ_8Ê_:¿O0ÁÊ jðhð_<¿O.kØ_.O:ñ’±ÆO<—O8O.ÐÈ„O8O.Â_6¿O²oL²O6lÿñ‘h€i˜O6LO6Âð²6O6lÿñ²MÉ€œO6MÉ€ µjƒMO6Â^l@åjð³0O2§Nl$åjð³%BÉ _$¿BIlO$¿BÉ _&¿BO6lO&°8BO4²O6lZó‘h€iŸlAO6ó‘h€i•O6l ØO6_,¿_*É _(¿O*O,lO(¿h_2¿±ÿ3h(571 GETHASH 362 CHCON1 265 \SYMBOL.ESCAPE.COUNT 250 \LITPRIN.INTERNAL 242 \SOUT 126 FRESHLINE 42 \SYMBOL.ESCAPE.COUNT) (674 STREAM 619 STREAM 602 STREAM 566 CHARTABLE 557 CHARTABLE 456 :DOWNCASE 442 READTABLEP 432 READTABLEP 425 ARRAYP 422 UPPERCASEARRAY 410 READTABLEP 388 STREAM 371 STREAM 337 STREAM 320 STREAM 256 STRINGP 225 STREAM 163 STREAM 141 STREAM 112 STREAM 18 READTABLEP 11 READTABLEP) () \SYMBOL.ESCAPE.COUNT D1 (L (2 INEXACTOK 1 RDTBL 0 CL:SYMBOL) F 14 *READ-BASE*) 3j@jdiAÊ‡AÊAÊjðhð´ `ÉAÉY IÁÉ_Ê_¿IÁÊ jðhð_¿Mjð‘h½HkØXOñ’±‹O–OHÐÈƒOHÂ_¿O²Olÿñ‘h€i™OOOÂð²:Olÿñ²OÉ€OOÉ€ µ j„OOÂ_l@åjð³"L¨Ol$åjð³JkÔºM´OMð¤ONð˜KkÔ»h¼±ÿ}B´ûJKÕkó´ômþJjð²:@ÁÉÊdjð•¿M³êjkð—Ol.ð‘k@AÊ jð¢Wl ²àM³ÅmÿMœJdKÕkó–¿mþKÙJ(280 \NUMERIC.PNAMEP 159 GETHASH) (266 READTABLEP 154 CHARTABLE 144 CHARTABLE 43 READTABLEP 37 ARRAYP 34 UPPERCASEARRAY 22 READTABLEP 15 READTABLEP 8 READTABLEP) () \NUMERIC.PNAMEP D1 (L (1 RADIX 0 CL:SYMBOL) F 11 *READTABLE* F 12 *READ-BASE*) YgAµWÊ jð¢Wl lÙlAØ2j@B Ndlð²#¿NÉ_¿NÈkÙ]NÈØ_¿NÊCjð’h°!i°lð²6NÁÉ_Ê_¿NÁÊ jðhð_¿MkØ]Oñ²K¦J´‚±ÊHgðhðN ^°šO–OMÐÈƒOMÂ_¿lAOñ²Ql0Oñ²8Ol-ð§Odl+ð–¿g±—l.ðJ•L´hºj¹i±…Ol/ð´nHgð´vhOl9ñ‘h€i´Zi»g°bOlzñ³KlaOñ‘h€i—Ol Ù_OlZñ‘h€i²0OIñ‘h€i²iºHgð¥Hgð‘i¼g°Hgð¦Hgð²ðhOl_ð¦Ol^ð´ôh¸±ÿ(137 MKSTRING) (320 FIRST 314 LETTER 308 LETTER 301 FIRST 295 LETTER 241 DIGIT 220 FIRST 188 SIGN 129 SIGN 10 READTABLEP 2 FIRST) () \PRINSTACKP D1 (L (1 STREAM 0 X) F 3 \THISFILELINELENGTH F 4 *READTABLE*) ¥S²5@d ”¿l° lð›@ ÁÉÊlAÈlØØSñ”A ¿ATÊHÉ ºHIlJoA @A AÉ Al/lH@d –¿o° blð•@A ‡oA ¿AÉ Al>lH(145 \SOUT 136 \LITPRIN 124 STKNAME 113 RELSTKP 91 \PRINTADDR 86 \SOUT 52 FRESHLINE 25 STKNAME 16 STKNAME 7 RELSTKP) (150 STREAM 95 STREAM 68 STREAM 58 READTABLEP 39 STREAM) ( 141 "*form*" 119 "released" 82 "