(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "16-Oct-86 21:29:00" ("compiled on " {eris}sources>aprint.\;51) "14-Oct-86 21:06:05" |tcompl'd| |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "16-Oct-86 21:28:06" {eris}sources>aprint.\;51 72857 |changes| |to:| (fns print-circle-enter print-circle-scan print-circle-lookup \\convertnumber) |previous| |date:| "14-Oct-86 20:11:09" {eris}sources>aprint.\;47) 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 jh HWWYWIWWW3HZdj`nhJ_@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 plvlfileflg f 13 *package* f 14 *print-base* f 15 *print-level* f 16 *print-length*) w Ag !BBdiWb jh HWWBiWl hIWIW B j`W HZdj`nhJ_@Hj @(115 \\prindatum 6 \\getstream) (98 \\linelength 87 stream 77 *interlisp-package* 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 jh HWWYWIWWW3@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 plvlfileflg f 12 *package* f 13 *print-base* f 14 *print-level* f 15 *print-length*) ] Ag BBdiWb jh HWWBiWl hIWIWB j`W@Hj @(89 \\prindatum 6 \\getstream) (77 *interlisp-package* 68 readtablep 27 readtablep 22 readtablep 3 output) () print d1 (l (2 rdtbl 1 file 0 x)) !Ag @HB H Hl lI@(15 prin2 6 \\getstream) (19 stream 3 output) () printccode d1 (l (1 file 0 charcode)) -Ag @dj@hi@@ 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*) ;@PmQm@j@hb@bi@cAjAhiAcnil nil () radix d1 (l (0 n) f 1 *print-base*) %Q@!@HhikHHdl$H c(30 \\invalid.radix) nil () spaces d1 (l (1 file 0 n)) OAg 1HZdj`nhJY@HIH @djH Hl lKkٰ(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:@dRlj2@dRlj@4@kH@@g bj@ @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`HA@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@#@3k@@ H@dinj(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 1HgHhd g,V To @UTKJI Tkci H3V Ho h 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 HgH3 H(4 gethash) (11 t2) () print-circle-scan d1 (l (0 object) f 4 *print-array*) t@d@ hi@ @bH H i5T2@ hi(@ 1@d kHg@ HjJKhihIK 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@UJIg hg@ULKg ic Hgio (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տBjb@W@ ZJHAH IAl HIhiWdW)W jjBhiA WBhiBBkbAl( K5@AB @bd3Al W@ Ao @AB k[WAi Ao @A Al) hdkdl\`#l& `A@WZhhhikJJdl$J iW WHI  HIdlT`/l& `A@HIA``hhhii` HIdl@A l@A @d@Aj  qH`_#WdBjO@AjlI_W j]WAdlWA AW[ KLlJA Al Al{ HHA Al} A Al#lN@A Od OA OObY(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 jPl&nil (13 readtablep 3 readtablep) () \\elide.print.tail d1 (l (1 nospacep 0 stream)) !Ahi@ @l lH@ (30 \\sout 26 \\elide.tail.string) (10 stream) () \\elide.tail.string d1 (f 0 *readtable*) P joonil (3 readtablep) ( 18 "--" 13 "...") \\ckposbout d1 (l (1 x 0 stream) f 1 \\thisfilelinelength) &Q@dkQ@ @ @AlH(19 freshline) (24 stream 7 stream) () \\ckpossout d1 (l (1 x 0 stream) f 7 \\thisfilelinelength) `WA@W@ AaHkٻHKHغHCjhi]Kk[JMLKLK¹@ @IlNh(24 freshline) (81 stream 13 stream 7 stringp) () \\convertnumber d1 (l (5 nsb 4 ns 3 rdtbl 2 ignore 1 r 0 n)) >@jopj@hi@j@XDZkٻhAlCDJmZIAܽl M*Ml0+ jhiIlDKk[lQ iMl lA IAYjHDJmZl- Al CLhij@hi@j@^l ANhi{AdlDJmZlxUlDJmZloGAlDJmZlb8DJmZlr DJmZAl l0 l AhiDJmZAl l0 DJmZC 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*)  WW!W@HAId JW `@YhIWll: ZkH `kH h@dW hdI klH W@AWA j@WgWjhs I\I jh^HkXMBNLHLH»AJKlZhilAKhiKl ؀K__ _OOlOh(162 freshline 132 allocstring 116 find-external-symbol 105 find-exact-symbol 93 allocstring 74 rplcharcode 62 allocstring 30 \\litprin.internal 23 package-name-as-symbol) (266 stream 178 readtablep 170 :downcase 151 stream 126 readtablep 87 readtablep 80 *keyword-package* 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*) @AAPEJj.@AEh _mk_i_jOjO_iOji_E,W>(HOCjDjBW>B CuDkOB _BIlOKB _BJlOj@BO0_4_6O0 jh_8O.k_.O6GB _BJlOB AB jA _jOhiOMjOٱFO8O4O.O4O._2JO2IB _BIlOB _BO2lOrHk.@ l.%B _ BIlO B _"Bl.lO"OAjh `Aj@iAjhW@gDO0_8_:O0 jh_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 "