(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "22-Nov-93 14:57:28" ("compiled on " {DSK}export>lispcore>sources>CLTL2>APRINT.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "11-Oct-93 16:04:23" "{Pele:mv:envos}Sources>CLTL2>APRINT.;1" 100667 changes to%: (VARS APRINTCOMS) (FUNCTIONS \PRINDATUM-LISTP) previous date%: " 4-Jan-92 15:40:50" {DSK}usr>users>sybalsky>cltl2>sources>APRINT.;1) PRIN1 :D8 (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*) b Ag !W jh HWWYWIWWW3HZdj`nhJ_@Hj @(94 \PRINDATUM 10 \GETSTREAM) (75 \LINELENGTH 62 STREAM 20 READTABLEP 5 OUTPUT) () PRIN2 :D8 (L (2 RDTBL 1 FILE 0 X) P 8 \THISFILELINELENGTH P 7 *PACKAGE* P 6 *PRINT-LENGTH* P 5 *PRINT-LEVEL* P 4 *PRINT-ESCAPE* P 3 *READTABLE* F 9 *READTABLE* F 10 \TERM.OFD F 11 PLVLFILEFLG F 12 *PACKAGE* F 13 *PRINT-LEVEL* F 14 *PRINT-LENGTH*) Ag !BBdiWb jh HWWBiIWIWBj`WHZdj`nhJ_@Hj @(126 \PRINDATUM 10 \GETSTREAM) (107 \LINELENGTH 94 STREAM 82 *INTERLISP-PACKAGE* 71 READTABLEP 35 READTABLEP 28 READTABLEP 5 OUTPUT) () PRIN3 :D8 (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*) DAg W jh HWWYWIWWW3@Hj @(64 \PRINDATUM 10 \GETSTREAM) (20 READTABLEP 5 OUTPUT) () PRIN4 :D8 (L (2 RDTBL 1 FILE 0 X) P 7 \THISFILELINELENGTH P 6 *PACKAGE* P 5 *PRINT-LENGTH* P 4 *PRINT-LEVEL* P 3 *PRINT-ESCAPE* P 2 *READTABLE* F 8 *READTABLE* F 9 \TERM.OFD F 10 PLVLFILEFLG F 11 *PACKAGE* F 12 *PRINT-LEVEL* F 13 *PRINT-LENGTH*) dAg BBdiWb jh HWWBiIWIWBj`W@Hj @(96 \PRINDATUM 10 \GETSTREAM) (82 *INTERLISP-PACKAGE* 71 READTABLEP 35 READTABLEP 28 READTABLEP 5 OUTPUT) () PRINT :D8 (L (2 RDTBL 1 FILE 0 X)) )Ag @HB H(Hl lI@(21 PRIN2 10 \GETSTREAM) (27 STREAM 5 OUTPUT) () PRINTCCODE :D8 (L (1 FILE 0 CHARCODE)) 1Ag @dj@@@ H(HIlJ(28 \ILLEGAL.ARG 10 \GETSTREAM) (37 STREAM 5 OUTPUT) () PRINTLEVEL :D8 (L (1 CDRVAL 0 CARVAL) F 0 *PRINT-LEVEL* F 1 *PRINT-LENGTH*) 4@@b@bPmQm@j@h@cAjAhAcNIL NIL () RADIX :D8 (L (0 N) F 1 *PRINT-BASE*) %Q@!@HdkHHdl$H c(30 \INVALID.RADIX) NIL () SPACES :D8 (L (1 FILE 0 N)) ]Ag !Hdj`dnhY@HIH @djH(Hl lJkٰ(62 FRESHLINE 10 \GETSTREAM) (75 STREAM 50 STREAM 31 \LINELENGTH 19 STREAM 5 OUTPUT) () TERPRI :D8 (L (0 FILE)) !@g H(Hl lIh(10 \GETSTREAM) (19 STREAM 5 OUTPUT) () FRESHLINE :D8 (L (0 STREAM)) w@dB@dlj<@dlj@ <@kH@@g bj@(@l lHih(82 GETSTREAM) (101 STREAM 89 STREAM 77 OUTPUT 58 FDEV 51 STREAM 34 STREAM 16 STREAM 6 STREAM) () DEFPRINT :D8 (L (1 FN 0 TYPE)) ?@d3 b`HA@A`H` (53 DREMOVE 9 \TYPENAMEFROMNUMBER) (58 \DEFPRINTFNS 48 \DEFPRINTFNS 39 \DEFPRINTFNS 33 \DEFPRINTFNS 16 \DEFPRINTFNS) () LINELENGTH :D8 (L (1 FILE 0 N)) @Ag H@'@3k@@ H@dinj(38 \ILLEGAL.ARG 10 \GETSTREAM) (46 STREAM 19 STREAM 5 OUTPUT) () ALPHANUMCHARARRAY :D8 NIL |ngjd lZlAIH"lzlaIH(l9l0IH/``Ik IkY`Il IkY`Il IkY(115 SETA 95 SETA 75 SETA 14 ARRAY) (107 ALPHANUMCHARARRAY 87 ALPHANUMCHARARRAY 68 ALPHANUMCHARARRAY 62 ALPHANUMCHARARRAY 19 ALPHANUMCHARARRAY 7 BYTE) () PRINT-CIRCLE-LOOKUP :D8 (L (0 OBJECT) F 1 *PRINT-CIRCLE-NUMBER* F 2 *PRINT-CIRCLE-HASHTABLE* F 3 *READTABLE*) @R HgHhd$g/S Qo @RQ Qkci$H3 S Ho h$o (124 CL:ERROR 109 CONCAT 98 CHARACTER 67 CL::PUTHASH 59 CONCAT 48 CHARACTER 6 GETHASH) (90 READTABLEP 40 READTABLEP 31 T2 15 T1) ( 119 "Print-circle-lookup hashtable error!" 104 "#" 54 "=") PRINT-CIRCLE-LABEL-P :D8 (L (0 OBJECT) F 1 *PRINT-CIRCLE-HASHTABLE*) @Q HgH3 H(6 GETHASH) (15 T2) () PRINT-CIRCLE-SCAN :D8 (L (0 OBJECT) F 11 XCL:*PRINT-STRUCTURE* F 12 *PRINT-ARRAY*)  @ Hd@ @ @bh@Yjh`I@ HdAW@ @ h[JK@ KLM&Mh\JZ^ N iW}@ r@ _@d kOg@ _Oj__OO;OO Ok_(245 PRINT-CIRCLE-SCAN 212 CL:MAKE-ARRAY 195 CL:ARRAY-RANK 185 CL:ARRAY-TOTAL-SIZE 175 PRINT-CIRCLE-ENTER 157 CL:ARRAY-ELEMENT-TYPE 149 CL:ARRAYP 125 PRINT-CIRCLE-SCAN 120 FETCHFIELD 104 CL::STRUCTURE-POINTER-SLOTS 99 CL:TYPE-OF 91 PRINT-CIRCLE-ENTER 70 PRINT-CIRCLE-ENTER 27 PRINT-CIRCLE-SCAN 19 PRINT-CIRCLE-ENTER) (206 :DISPLACED-TO 78 CL::STRUCTURE-OBJECT 60 *PACKAGE-FROM-INDEX* 41 LITATOM 10 LISTP) () PRINT-CIRCLE-ENTER :D8 (L (0 OBJECT) F 0 *PRINT-CIRCLE-HASHTABLE* F 1 THERE-ARE-CIRCLES) F@P @Pg hdg@Pg icgio (67 CL:ERROR 44 CL::PUTHASH 20 CL::PUTHASH 6 CL:GETHASH) (53 T2 39 T2 28 T1 15 T1) ( 62 "Print-circle-enter hashtable error!") \PRINDATUM :D8 (L (2 CPL 1 STREAM 0 OBJECT) F 4 *PRINT-LENGTH* F 5 *READTABLE* F 6 *PRINT-CIRCLE-HASHTABLE* F 7 *PRINT-BASE* F 8 *PRINT-LEVEL* F 9 *PRINT-ESCAPE* F 10 *PRINT-RADIX*) O@dldl@A dl@BjbV@ ZJHAH IAl HIWhT#U jjBA TBBBkbAl( K?@AB @bd=Al V@ Ao @AB 'k[TAi Ao @A Al) hdkdl`Nl `7A@WZdkJJdl$J iU jWhhW Wl hUHI  HIdln`?l `(A@HIA ``ihh` HIl@A @d @A @AB @d@Aj AB (588 \PRINT-USING-DEFPRINT 580 PRINT-INSTANCE 562 CL::PRINT-STRUCTURE-INSTANCE 547 \PRINSTRING 538 STRINGP 530 \PRINSTACKP 504 \CKPOSSOUT 499 \CONVERT.FLOATING.NUMBER 438 CONCAT 426 ALLOCSTRING 390 \CKPOSSOUT 385 \CONVERTNUMBER 327 \INVALID.RADIX 297 CONCAT 285 ALLOCSTRING 256 \CKPOSBOUT 247 \PRINDATUM 239 \CKPOSSOUT 224 \ELIDE.PRINT.TAIL 208 \PRINDATUM 199 \CKPOSSOUT 186 PRINT-CIRCLE-LABEL-P 176 \CKPOSBOUT 158 \PRINDATUM 145 \CKPOSBOUT 123 \ELIDE.PRINT.ELEMENT 79 \CKPOSBOUT 68 \CKPOSSOUT 51 \MVLIST 46 PRINT-CIRCLE-LOOKUP 19 \LITPRIN) (570 T 553 CL::STRUCTURE-OBJECT 517 \\NUMSTR1.GLOBALRESOURCE 510 \\NUMSTR.GLOBALRESOURCE 494 \FLOATFORMAT 486 \\NUMSTR.GLOBALRESOURCE 477 \\NUMSTR1.GLOBALRESOURCE 466 PRXFLG 458 \PNAMEDEVICE 451 STREAM 431 \\NUMSTR1.GLOBALRESOURCE 417 \\NUMSTR.GLOBALRESOURCE 403 \\NUMSTR1.GLOBALRESOURCE 396 \\NUMSTR.GLOBALRESOURCE 360 \\NUMSTR.GLOBALRESOURCE 351 \\NUMSTR1.GLOBALRESOURCE 334 READTABLEP 290 \\NUMSTR1.GLOBALRESOURCE 276 \\NUMSTR.GLOBALRESOURCE 104 READTABLEP) ( 234 " . " 194 ". ") \PRINT-USING-DEFPRINT :D8 (L (2 CPL 1 STREAM 0 X) P 3 *PRINT-ESCAPE* P 2 *PRINT-LEVEL* F 4 *PRINT-LEVEL*) W@ `HTdBjH@AjlIX @AB  HdHA H HAB (84 \PRINDATUM 70 \PRINDATUM 50 \PRINT-USING-ADDRESS 5 TYPENAME) (10 \DEFPRINTFNS) () \PRINT-USING-ADDRESS :D8 (L (2 CPL 1 STREAM 0 X) F 6 *READTABLE* F 7 \THISFILELINELENGTH) @ QV jw@ WlAWA AVZ(JKlIA(Al 6Al{ HHA Al} A(Al#lM@A i(190 \PRINTADDR 165 \CKPOSBOUT 156 \LITPRIN 146 \CKPOSBOUT 136 \CKPOSBOUT 127 \PRINTADDR 119 \CKPOSSOUT 107 \LITPRIN 53 FRESHLINE 27 CL::CHECK-READABLY 5 TYPENAME) (172 STREAM 87 STREAM 71 STREAM 61 READTABLEP 40 STREAM 14 READTABLEP) ( 114 " @ ") \ELIDE.PRINT.ELEMENT :D8 (L (0 STREAM)) @H(HIlJ(5 \ELIDE.ELEMENT.CHAR) (14 STREAM) () \ELIDE.ELEMENT.CHAR :D8 (F 0 *READTABLE*) P jPl&NIL (17 READTABLEP 5 READTABLEP) () \ELIDE.PRINT.TAIL :D8 (L (1 NOSPACEP 0 STREAM)) #A@(@l lH@ (32 \SOUT 26 \ELIDE.TAIL.STRING) (8 STREAM) () \ELIDE.TAIL.STRING :D8 (F 0 *READTABLE*) P jooNIL (5 READTABLEP) ( 22 "--" 16 "...") \CKPOSBOUT :D8 (L (1 X 0 STREAM) F 1 \THISFILELINELENGTH) *Qk@Q@ @(@AlH(21 FRESHLINE) (28 STREAM 9 STREAM) () \CKPOSSOUT :D8 (L (1 X 0 STREAM) F 7 \THISFILELINELENGTH) WAl @W@ AaHdj kٻHdj KHl غHdj lD]Kk[JMLKLK¹@(@IlNh(95 %%ARRAY-TYPE-NUMBER 80 \GETBASEFIXP 67 %%ARRAY-BASE 48 %%ARRAY-OFFSET 30 FRESHLINE 11 \GETBASEFIXP) (130 STREAM 17 STREAM) () \CONVERTNUMBER :D8 (L (5 NSB 4 NS 3 RDTBL 2 IGNORE 1 R 0 N)) Lj@@j@XYDl [kټh]CDKm[JA_l OKOl0L jh]Al DLk\l. iAlIlDLk\lQ iOl lA JAZjHDKm[l- CNMAl Il AIAdlDKm[lxSlDKm[loEAlDKm[lb6DKm[lr DKm[l0Al l ADKm[l0Al DKm[C DKLE (329 SUBSTRING 319 RPLCHARCODE 298 RPLCHARCODE 273 RPLCHARCODE 254 RPLCHARCODE 161 RPLCHARCODE 137 RPLCHARCODE 119 RPLCHARCODE 90 RPLCHARCODE 22 \GETBASEFIXP) (311 READTABLEP 62 READTABLEP) () \LITPRIN :D8 (L (1 STREAM 0 X) F 13 \THISFILELINELENGTH F 14 *READTABLE* F 15 *PRINT-CASE* F 16 *PACKAGE* F 17 *PRINT-ESCAPE* F 18 *PRINT-GENSYM* F 19 *PRINT-CIRCLE-HASHTABLE*) M W"WaW @HAId JW @[jh`KYhIQW$W&-@ ^NMAM Lg@ ll: ZkH `kH he@dW hUdI klH 6W1@AW@WA A j@ I[I jhWgi^i_W dgh^_rdgWdgi_ZgPhLdgWdg𒿰1g-h_'gh^_@W i_i_OONO`_HkXLoMKHKHºOHJlAOJj9OJdkOOOJl ԺidlONOJl պilih_A(_AJlOh(436 \MVLIST 431 \SYMBOL.ESCAPE.COUNT 319 CL:READTABLE-CASE 269 FRESHLINE 262 \PNAME-CONTAINS-NO-EOL 215 ALLOCSTRING 195 FIND-EXTERNAL-SYMBOL 181 FIND-EXACT-SYMBOL 166 ALLOCSTRING 140 RPLCHARCODE 124 ALLOCSTRING 114 RETFROM 100 \CKPOSSOUT 83 \MVLIST 78 PRINT-CIRCLE-LOOKUP 34 \LITPRIN.INTERNAL 25 PACKAGE-NAME-AS-SYMBOL) (571 STREAM 463 ALPHANUMCHARARRAY 415 :INVERT 401 :CAPITALIZE 391 :UPCASE 379 :DOWNCASE 366 :CAPITALIZE 353 :DOWNCASE 341 :UPCASE 325 :PRESERVE 303 :CAPITALIZE 254 STREAM 237 STREAM 207 READTABLEP 158 READTABLEP 148 *KEYWORD-PACKAGE* 132 READTABLEP 108 \LITPRIN 52 *PACKAGE-FROM-INDEX*) () \LITPRIN.INTERNAL :D8 (L (5 CHECKLENGTH 4 PKGSEPR 3 PKGNAME 2 STREAM 1 RDTBL 0 SYMBOL) F 38 \THISFILELINELENGTH F 39 *PRINT-CASE*) l&@AA@JjE8@AEh _O_Nmki_jNjNپiNji_EEWLAHNCjDj\BWL@WLLB B CfDZKB(_BJlOj@BO._2_4O. jh_6O,k_,O4MB(_BJlOB AB l \A _jOOAjOٱ:O6O2O,O2O,_0JO0IB(_BIlOB(_BO0lOhOB(_ BIlO 6O3Hk$@ l.B(_"BIlO"h_A]j@iWNg`%O._8_:O. jh_6O6l ԰,l*OBB(_&BIlO&OFO2O>O6l _6iWOSO6lMɀO6Mɀ jMO6_Jl@j!O0OJl$jB(_(BIlO(h_>B(_*BO6lO*h_0h(793 GETHASH 515 CL:READTABLE-CASE 422 CHCON1 295 \SYMBOL.ESCAPE.COUNT 286 \GETBASEFIXP 276 \LITPRIN.INTERNAL 266 \SOUT 165 FRESHLINE 158 \PNAME-CONTAINS-NO-EOL 53 \MVLIST 48 \SYMBOL.ESCAPE.COUNT) (851 STREAM 828 STREAM 786 CHARTABLE 774 CHARTABLE 724 STREAM 677 STREAM 595 :INVERT 587 :UPCASE 569 :DOWNCASE 554 :DOWNCASE 536 :UPCASE 521 :PRESERVE 476 ALPHANUMCHARARRAY 470 :CAPITALIZE 456 READTABLEP 433 STREAM 393 STREAM 367 STREAM 348 STREAM 247 STREAM 183 STREAM 149 STREAM 131 STREAM 22 READTABLEP 13 READTABLEP) () \PNAME-CONTAINS-NO-EOL :D8 (L (1 WITHIN 0 A)) LAnj@jDJ]J jh_IkYN OMIMI¼KHLl hKkԻiNIL NIL () \SYMBOL.ESCAPE.COUNT :D8 (L (2 INEXACTOK 1 RDTBL 0 SYMBOL) F 18 *READ-BASE*) A AA ghij@jdiAAAXN__N jh_ Ojh_Mk]OO OMOM_HOdlHOBOl!OɀOOɀ jOO_"l@j-OO"l$j!Ok_OOOOO/Ok_h_IoLjOdlz(laOJiRBOOkmi>OlZ5lAO,Ki%i OjJ@djO6mJkOl.m=@A jW$l OmmjOOdOkmOՁO_LOi$O(384 \NUMERIC.PNAMEP 172 GETHASH 14 CL:READTABLE-CASE 5 READTABLE-CASEARRAY) (368 READTABLEP 165 CHARTABLE 152 CHARTABLE 54 READTABLEP 45 READTABLEP 36 READTABLEP 19 :INVERT) () \NUMERIC.PNAMEP :D8 (L (1 RADIX 0 SYMBOL) F 20 *READTABLE* F 21 *READ-BASE*) gAW( jW*l lAIl Ժh[\]^__j@BOd POdj _Odj k_Ol _Odj lD!d3@vO__O jh_Ok_O[OLKHghMHij@2O d |O dj1 +O _'OOOOO_lAObl0OJOl-Odl+gl.KOhMi_ji]Ol/HghOl9igOlzlaOOl _OlZpOJMiHgHgMi_Gl IjNHgHgOlE!OlSOlFOlDOlLpigOl_Ol^Vh_"O dj k_O l _$O dj lD!d3@*O _"_$O  jh_&Ok_O$iO _ FO&O"OO"Ol.h(671 MKSTRING 609 %%ARRAY-TYPE-NUMBER 591 \GETBASEFIXP 575 %%ARRAY-OFFSET 269 MKSTRING 259 %%ARRAY-BASE 237 STRINGP 131 %%ARRAY-TYPE-NUMBER 113 \GETBASEFIXP 97 %%ARRAY-OFFSET 77 %%ARRAY-BASE 60 STRINGP) (532 LETTER 484 FIRST 475 LETTER 449 FIRST 441 LETTER 393 DIGIT 370 FIRST 326 SIGN 199 SIGN 17 READTABLEP 4 FIRST) () \PRINSTACKP :D8 (L (1 STREAM 0 X) F 3 \THISFILELINELENGTH F 4 *READTABLE*) SHkll k@d l d3@@ lkASA ATH(HIlJoA @A A(Al/lH@d o bd3@@A oA A(Al>lH(185 \SOUT 173 \LITPRIN 159 STKNAME 145 RELSTKP 119 \PRINTADDR 112 \SOUT 71 FRESHLINE 40 STKNAME 29 STKNAME 18 RELSTKP) (192 STREAM 125 STREAM 91 STREAM 79 READTABLEP 59 STREAM) ( 179 "*form*" 152 "released" 106 "