(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "29-Oct-86 22:02:38" ("compiled on " {ERIS}SOURCES>APRINT.;54) "21-Oct-86 04:13:01" recompiled changes%: PRINT-CIRCLE-SCAN \PRINDATUM \PRINT-USING-DEFPRINT \PRINT-USING-ADDRESS in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "29-Oct-86 22:01:59" {ERIS}SOURCES>APRINT.;54 69744 changes to%: (VARS APRINTCOMS) (FNS PRINT-CIRCLE-SCAN \PRINDATUM \PRINT-USING-DEFPRINT \PRINT-USING-ADDRESS \PRINDATUM-LISTP) (FUNCTIONS \PRINDATUM-LISTP) previous date%: "29-Oct-86 21:53:22" {ERIS}SOURCES>APRINT.;53) 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) () 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-SCANA0001 D1 (L (0 DESCRIPTOR) F 0 OBJECT) @P (7 PRINT-CIRCLE-SCAN 4 FETCHFIELD) NIL () PRINT-CIRCLE-SCAN D1 (I 0 OBJECT F 6 CL::*PRINT-STRUCTURE* F 7 *PRINT-ARRAY*) ‚@QHdÃ²¿@ «@ @b°åhÃ²V´ù@ ³òg@ HY ´ÞI ið´ÖW´Ò@ ³Ë@ º@ kó˜Jg@€@»Jj½¼LMó´¬KM¶ ¿MkÔ½°ð(121 PRINT-CIRCLE-SCAN 103 CL:MAKE-ARRAY 92 CL:ARRAY-RANK 87 CL:ARRAY-TOTAL-SIZE 81 PRINT-CIRCLE-ENTER 69 CL:ARRAY-ELEMENT-TYPE 63 CL:ARRAYP 57 CL:MAPCAR 54 CL::STRUCTURE-POINTER-SLOTS 51 CL:TYPE-OF 42 PRINT-CIRCLE-ENTER 21 PRINT-CIRCLE-SCAN 15 PRINT-CIRCLE-ENTER) (99 :DISPLACED-TO 47 PRINT-CIRCLE-SCANA0001 33 CL::STRUCTURE-OBJECT 8 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 OBJECT) F 4 *PRINT-LENGTH* F 5 *PRINT-CIRCLE-HASHTABLE* F 6 *READTABLE* F 7 *PRINT-LEVEL* F 8 *PRINT-RADIX* F 9 *PRINT-BASE*) Ä@dlð–¿@A dlð¢±Ã@B£jb¿U@ Z¸J¹H²AH ¿I–Al ¿H–I´‚±ŽWµh»T²VÊ jðªjŽBñ³íA TBñ²øB»BkÔb¿Al( ¿Kµ4@AB¿@bd²1¿Al ¿U²ä@ ²ÞAo ¿@AB°kÔ[Tñ²ÉAi ŽžAo ¿@A ¿Al) hdkð¥dlð²Y¿`µLl& `µ;A@WZdœ¿kJñ¦Jdl$ñ”¿J iW´VHI H¿I¿h¿°Åh¿°¶dlð²R¿`µ1l& `µ A@HIAÉ`ð²`³i°h¿°àh¿°Ñ` H¿I¿dlð–¿@A lð•@A @dÃ—¿@ABÃ–@Aj@AB(449 \PRINT-USING-DEFPRINT 442 PRINT-INSTANCE 431 CL::PRINT-STRUCTURE-INSTANCE 417 \PRINSTACKP 407 \PRINSTRING 385 \CKPOSSOUT 382 \CONVERT.FLOATING.NUMBER 335 CONCAT 327 ALLOCSTRING 285 \CKPOSSOUT 282 \CONVERTNUMBER 270 \INVALID.RADIX 242 CONCAT 234 ALLOCSTRING 211 \CKPOSBOUT 204 \PRINDATUM 198 \CKPOSSOUT 188 \ELIDE.PRINT.TAIL 174 \PRINDATUM 167 \CKPOSSOUT 157 PRINT-CIRCLE-LABEL-P 149 \CKPOSBOUT 133 \PRINDATUM 122 \CKPOSBOUT 102 \ELIDE.PRINT.ELEMENT 63 \CKPOSBOUT 54 \CKPOSSOUT 39 \MVLIST 36 PRINT-CIRCLE-LOOKUP 12 \LITPRIN) (435 T 423 CL::STRUCTURE-OBJECT 394 \\NUMSTR1.GLOBALRESOURCE 389 \\NUMSTR.GLOBALRESOURCE 379 \FLOATFORMAT 373 \\NUMSTR.GLOBALRESOURCE 366 \\NUMSTR1.GLOBALRESOURCE 357 PRXFLG 351 \PNAMEDEVICE 346 STREAM 330 \\NUMSTR1.GLOBALRESOURCE 320 \\NUMSTR.GLOBALRESOURCE 307 \\NUMSTR.GLOBALRESOURCE 300 \\NUMSTR1.GLOBALRESOURCE 294 \\NUMSTR1.GLOBALRESOURCE 289 \\NUMSTR.GLOBALRESOURCE 237 \\NUMSTR1.GLOBALRESOURCE 227 \\NUMSTR.GLOBALRESOURCE 86 READTABLEP) ( 195 " . " 164 ". ") \PRINT-USING-DEFPRINT D1 (L (2 CPL 1 STREAM 0 X) P 3 *PRINT-ESCAPE* P 2 *PRINT-LEVEL* F 4 *PRINT-LEVEL*) N@ `H²Td”BµjÙH¹@AjlIXµ @AB´Hd›¿HA H´ HAB(75 \PRINDATUM 63 \PRINDATUM 45 \PRINT-USING-ADDRESS 3 TYPENAME) (6 \DEFPRINTFNS) () \PRINT-USING-ADDRESS D1 (L (2 CPL 1 STREAM 0 X) F 6 *READTABLE* F 7 \THISFILELINELENGTH) œ@ QVÊ jð³_W²AdÈlØWñ–¿A ¿AVÊ»ZÉ ¹JKlI¿AÉ ¼Al °,Al{ ¿H•HA ¿Al} ¿AÉ ½Al#lM¿@A i(152 \PRINTADDR 131 \CKPOSBOUT 124 \LITPRIN 116 \CKPOSBOUT 108 \CKPOSBOUT 101 \PRINTADDR 95 \CKPOSSOUT 86 \LITPRIN 40 FRESHLINE 3 TYPENAME) (136 STREAM 68 STREAM 54 STREAM 46 READTABLEP 26 STREAM 10 READTABLEP) ( 92 " @ ") \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 "