(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "11-Jun-2021 08:53:41" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>APRINT.;12) "10-Jun-2021 20:34:40" recompiled explicitly%: PRINT PRINTCCODE \PRINTCCODE SPACES TERPRI FRESHLINE \PRINT-USING-ADDRESS \ELIDE.PRINT.ELEMENT \ELIDE.PRINT.TAIL \CKPOSBOUT \CKPOSSOUT \LITPRIN \LITPRIN.INTERNAL \PRINSTACKP \PRINSTRING \SOUT in "FULL 10-Jun-2021 ..." dated "10-Jun-2021 20:34:53") (FILECREATED " 9-Jun-2021 22:50:15" {DSK}kaplan>Local>medley3.5>git-medley>sources>APRINT.;11 79264 changes to%: (VARS APRINTCOMS) previous date%: "10-May-2021 15:46:22" {DSK}kaplan>Local>medley3.5>git-medley>sources>APRINT.;10) 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 Hl @(29 \OUTCHAR 21 PRIN2 10 \GETSTREAM) (5 OUTPUT) () PRINTCCODE :D8 (L (1 FILE 0 CHARCODE)) $Ag @dj@@@ (33 \OUTCHAR 28 \ILLEGAL.ARG 10 \GETSTREAM) (5 OUTPUT) () \PRINTCCODE :D8 (L (1 FILE 0 CHARCODE)) $Ag @dj@@@ (33 \OUTCHAR 28 \ILLEGAL.ARG 10 \GETSTREAM) (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)) UAg Hdj`dnhY@HIH @djHl kٰ(77 \OUTCHAR 62 FRESHLINE 10 \GETSTREAM) (50 STREAM 31 \LINELENGTH 19 STREAM 5 OUTPUT) () TERPRI :D8 (L (0 FILE)) @g l h(17 \OUTCHAR 10 \GETSTREAM) (5 OUTPUT) () FRESHLINE :D8 (L (0 STREAM)) l@dB@dlj<@dlj@ <@kH@@g bj@l ih(102 \OUTCHAR 82 GETSTREAM) (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) () 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 10 XCL:*PRINT-STRUCTURE* F 11 *PRINT-ARRAY*) @ Hd@ @ @bh@W@ @ hZIJ@ JKL&Lh[IYH] M iW@ @ @d kNg@ _Nj__OOjOO Ok_(198 PRINT-CIRCLE-SCAN 166 CL:MAKE-ARRAY 150 CL:ARRAY-RANK 142 CL:ARRAY-TOTAL-SIZE 134 PRINT-CIRCLE-ENTER 120 CL:ARRAY-ELEMENT-TYPE 112 CL:ARRAYP 87 PRINT-CIRCLE-SCAN 82 FETCHFIELD 66 CL::STRUCTURE-POINTER-SLOTS 61 CL:TYPE-OF 53 PRINT-CIRCLE-ENTER 27 PRINT-CIRCLE-SCAN 19 PRINT-CIRCLE-ENTER) (160 :DISPLACED-TO 41 CL::STRUCTURE-OBJECT 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 1 *READTABLE* F 2 \THISFILELINELENGTH) @ Q j[RlARA AQ Al< HHA Ao @A Al> .Al{ HHA Al} Al# @A i(154 \PRINTADDR 146 \OUTCHAR 137 \CKPOSBOUT 128 \LITPRIN 118 \CKPOSBOUT 108 \CKPOSBOUT 99 \PRINTADDR 91 \CKPOSSOUT 79 \LITPRIN 69 \OUTCHAR 60 \OUTCHAR 44 FRESHLINE 5 TYPENAME) (52 READTABLEP 32 STREAM 14 READTABLEP) ( 86 " @ ") \ELIDE.PRINT.ELEMENT :D8 (L (0 STREAM)) @ (10 \OUTCHAR 5 \ELIDE.ELEMENT.CHAR) NIL () \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 @ (21 \SOUT 15 \ELIDE.TAIL.STRING 9 \OUTCHAR) NIL () \ELIDE.TAIL.STRING :D8 (F 0 *READTABLE*) P jooNIL (5 READTABLEP) ( 22 "--" 16 "...") \CKPOSBOUT :D8 (L (1 X 0 STREAM) F 0 \THISFILELINELENGTH) Pk@P@ @A (29 \OUTCHAR 21 FRESHLINE) (9 STREAM) () \CKPOSSOUT :D8 (L (1 X 0 STREAM) F 6 \THISFILELINELENGTH) VAl @V@ AQHdj kٻHdj KHl غHdj lD]Kk[JMLKLK¹@I h(129 \OUTCHAR 93 %%ARRAY-TYPE-NUMBER 78 \GETBASEFIXP 65 %%ARRAY-BASE 46 %%ARRAY-OFFSET 28 FRESHLINE 10 \GETBASEFIXP) (16 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 8 \THISFILELINELENGTH F 9 *READTABLE* F 10 *PACKAGE* F 11 *PRINT-CASE* F 12 *PRINT-ESCAPE* F 13 *PRINT-GENSYM*) zWW1W@HAId JW @[jh`KYhI"Wll: ZkH `kH h@dW hdI klH gW@AWA j@W0jhWdgdgWhSI\I jh^HkXMcNLHLH»AJKlAKKlZJgOi_/Kl ԰*Jg laKKlzhl0KhKl9h_K h(372 \OUTCHAR 201 FRESHLINE 166 ALLOCSTRING 146 FIND-EXTERNAL-SYMBOL 133 FIND-EXACT-SYMBOL 119 ALLOCSTRING 93 RPLCHARCODE 77 ALLOCSTRING 34 \LITPRIN.INTERNAL 25 PACKAGE-NAME-AS-SYMBOL) (333 :CAPITALIZE 311 :CAPITALIZE 236 :CAPITALIZE 228 :DOWNCASE 211 READTABLEP 188 STREAM 158 READTABLEP 111 READTABLEP 101 *KEYWORD-PACKAGE* 85 READTABLEP 52 *PACKAGE-FROM-INDEX*) () \LITPRIN.INTERNAL :D8 (L (5 CHECKLENGTH 4 PKGSEPR 3 PKGNAME 2 STREAM 1 RDTBL 0 SYMBOL) F 20 \THISFILELINELENGTH F 21 *PRINT-CASE*) @AA JjE0@AEh _mk_i_jOjO_iOji_E,W((HOCjDrjBW(B CODCKBJ j@BO__O jh_ Ok_OABJ B AB l A _jOOsjOٱlO OOOO_JOIBI BO OBI GODHk@ l.BI h_'A0jh`A]j@iA0jhW*dgdgW*hTO_ _"O jh_$Ok_O"O$O OO O_O_LOlOLOi_&h (169 \OUTCHAR 160 \SOUT 148 \LITPRIN 134 STKNAME 120 RELSTKP 113 \OUTCHAR 105 \PRINTADDR 98 \SOUT 87 \OUTCHAR 71 FRESHLINE 40 STKNAME 29 STKNAME 18 RELSTKP) (79 READTABLEP 59 STREAM) ( 154 "*form*" 127 "released" 92 "