(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "16-Oct-86 18:49:04" ("compiled on " {eris}sources>llarrayelt.\;88) "14-Oct-86 21:06:05" |recompiled| |changes:| \\fixcodenum \\fixcodeptr \\prefixalignment? |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "16-Oct-86 18:10:20" {eris}sources>llarrayelt.\;88 148357 |changes| |to:| (fns \\fixcodenum \\fixcodeptr \\prefixalignment?) (vars llarrayeltcoms) |previous| |date:| "15-Oct-86 16:43:02" {eris}sources>llarrayelt.\;86) ain d1 (l (3 file 2 n 1 index 0 aptr)) @@hi@jAAl @A@@Cdjdl@EdkHBbI@.dldlHBbI@lh@l IB@l Cg @IHK6KLMBlJ@(142 \\getstream 134 \\lisperror 122 \\lisperror 23 \\lisperror) (160 fdev 155 stream 139 input) () aout d1 (l (3 file 2 n 1 index 0 aptr)) @@hi@jAAl @A@@Cdjdl@@dkBbIH@)dldlBbIH@@l IB@l Cg @IHK8KLMBlJ@(137 \\getstream 129 \\lisperror 117 \\lisperror 23 \\lisperror) (155 fdev 150 stream 134 output) () array d1 (l (4 align 3 orig 2 initval 1 type 0 size)) & @jbj@ddn@l @aAdg@ljgAgAdg@kkAgAdgkljAdg@kl glAdgBlubg@llZAglP@AlHAd@dg8dll/l@kk!Ak@lj@ll ZldJCd@Cdjdkkl dLdjHKhD dMYBdHk OOk_JdjBjOBBOdkOıkBjOBOdkOıJdlBjOjB OdlOkİjlJdl OHdjNBNlоkٰEl!oB 6OBOdlOkİ!JlBjOnOdkOĂI(546 shouldnt 492 feqp 428 \\putbasefixp 309 \\allocblock 290 \\lisperror 257 \\illegal.arg 22 \\lisperror) (325 arrayp 197 bits 173 signedword 153 bit 145 floatp 132 floatp 120 fixp 104 doublepointer 86 flag 79 pointer 62 word 55 smallposp 49 smallp 32 byte) ( 488 0.0) arraysize d1 (l (0 x)) @nil (3 arrayp) () arraytyp d1 (l (0 array)) T@Cdjgdl gdlgdkgdlgdlgdlglg(81 shouldnt) (77 bit 69 floatp 60 fixp 51 code 42 smallposp 34 pointer 25 doublepointer 16 byte 6 arrayp 3 arrayp) () arrayorig d1 (l (0 array)) @nil (6 arrayp 3 arrayp) () copyarray d1 (l (0 array)) u@d @ @H @H  @ @#JIhH [H\JdjKL@L LkԼkٰIgHJdjKL@L LkԼkٰK(104 setd 101 eltd 70 seta 67 elt 51 array 35 arraytyp 31 arrayorig 27 rehash 22 \\copyharrayp 14 hasharray 11 harraysize 4 harrayp) (83 doublepointer 39 arrayp) () elt d1 (l (1 n 0 a)) @@A@jII@hiAl I@Y@Cdldl HIIdlHIIXdHdjdlHIdkHIdlHIlIl klHId@l (179 \\lisperror 152 lrsh 45 \\lisperror) (59 arrayp 51 arrayp 30 arrayp 14 arrayp 7 arrayp 3 arrayp) () eltd d1 (l (1 n 0 a)) ^@@dCl I@A@jII@hiAl I@YH@ZJIIA (91 elt 59 \\lisperror) (74 arrayp 65 arrayp 44 arrayp 28 arrayp 21 arrayp 8 arrayp 3 arrayp) () seta d1 (l (2 v 1 n 0 a)) @bd j@l @A@jII@hiAl I@Y@Cdldl HIIBBdlHIIjB djdlHIBdkHIBBdlCHIBjHIklIl nHIklIl BlHIBJKLL@l (249 \\lisperror 212 llsh 185 llsh 118 \\putbasefixp 65 \\lisperror 22 \\lisperror) (79 arrayp 71 arrayp 50 arrayp 34 arrayp 27 arrayp 9 arrayp 3 arrayp) () setd d1 (l (2 v 1 n 0 a)) t@@dCl ^@d j@l @A@jII@hiAl I@YH@ZJIIBBAB (113 seta 78 \\lisperror 35 \\lisperror) (93 arrayp 84 arrayp 63 arrayp 47 arrayp 40 arrayp 22 arrayp 8 arrayp 3 arrayp) () subarray d1 (l (4 neworig 3 old 2 m 1 n 0 x) p 8 \\interruptable) @@@ABDjJJHkغKHjKKHkػIJhirJKhiiKHhi`Cl@dLKJkؽdM@CdNC@JI_dOdIdjdj djnil (127 arrayp 113 arrayp 94 arrayp 87 arrayp 13 arrayp 7 arrayp 3 arrayp) () harray d1 (l (0 minkeys)) @g (6 hasharray) (3 error) () hasharray d1 (l (5 rehash-threshold 4 reclaimable 3 equivfn 2 hashbitsfn 1 overflow 0 minkeys)) E3 A3 AEEAb lE@kE@klHdIHiAHZdno@ dXE&HHY`Jk dKHkټdLdDkHjdAdIdIdjdBdC (97 \\allocblock 72 error) (91 |HARRAYPTYPE#|) ( 68 "HARRAY TOO LARGE") harrayp d1 (l (0 x)) @@nil (3 harrayp) () harrayprop d1 (l (0 nargs)) eHjkaHklaHl#IKlaJdgKL gILKLMKIMJdgKjLgL KLdjGM JdgLjhKLMkjg)LKLdj𫿿oJ hML YJ'KILJMh JM (255 listput 212 error 53 harraysize) (241 harrayp 226 harrayp 217 harrayp 197 harrayp 187 harrayp 180 hashbitsfn 167 harrayp 154 harrayp 146 reclaimable 136 harrayp 127 harrayp 117 harrayp 110 equivfn 104 harrayp 94 numkeys 76 harrayp 68 harrayp 57 overflow 41 size 29 harrayp) ( 208 "Can't update this hash array property") harraysize d1 (l (0 harray)) @nil (6 harrayp 3 harrayp) () clrhash d1 (l (0 harray) p 4 \\interruptable) P@1HYIHZJJJlлIhIhIlYdKHHHj@nil (73 harrayp 64 harrayp 60 harrayp 21 harrayp 10 harrayp 3 harrayp) () maphash d1 (l (1 maphfn 0 harray)) N@!HYdHZJJJl`I]hiMLhMIlAIlYdK@nil (34 \\hash.null.value 18 harrayp 10 harrayp 3 harrayp) () gethash d1 (l (3 returnmvs 2 default 1 harray 0 item))  A H_@kO@@n@_HH_IIIIZ_"@J[H _"@KlOtJCBH _IOdH_l?OOl?kHIMNYLo OIIIIZ_+J[@O@KlOC#O`hOi JC|Bh O`hO(254 cl:values 238 cl:values 180 shouldnt) (260 \\hash.null.value 227 \\hash.null.value 160 harrayp 136 harrayp 120 harrayp 87 harrayp 54 harrayp 46 harrayp 10 harrayp 3 harrayp) ( 177 "Hashing in full hash table") puthash d1 (l (2 harray 1 val 0 key)) @ABAh A(8 \\hashaccess) nil () remhash d1 (l (1 harray 0 key)) @hAi (6 \\hashaccess) nil () \\hashreclaim d1 (l (0 harray) p 3 \\interruptable) g@!HYIHZJJJljI^hiNiN hiIiIhMkԽLIlYHHM@(57 \\eqrefcnt1) (93 harrayp 89 harrayp 21 harrayp 10 harrayp 3 harrayp) () \\hashaccess d1 (l (3 remove 2 harray 1 val 0 item) p 13 \\interruptable) B H_@kO@@n@_OHH_JJJJ[d#@K\H _@LlOvKH _JOdH_l?OOl?kH_JNOZMIVo MOJJJJ[d7\@O@LlO C0KiKhHHmIIChIKKA`iHj%HjH B` bh KIHHmHHkK@KA`A(321 hashoverflow 311 \\hashreclaim 186 error) (382 \\hash.null.value 363 harrayp 359 harrayp 347 harrayp 343 harrayp 326 harrayp 318 syshasharray 301 harrayp 291 harrayp 283 \\hash.null.value 248 harrayp 244 harrayp 160 harrayp 136 harrayp 120 harrayp 90 harrayp 57 harrayp 49 harrayp 10 harrayp 3 harrayp) ( 183 "No vacant slot in hasharray") rehash d1 (l (1 newar 0 oldar)) =A @AHYH\LLLкI[IKA IdJAlY(45 puthash 3 clrhash) (21 harrayp 14 harrayp 7 harrayp) () \\copyharrayp d1 (l (1 target 0 source)) PA@A@A@A@A@A@HIInil (67 harrayp 63 harrayp 55 harrayp 51 harrayp 43 harrayp 39 harrayp 31 harrayp 27 harrayp 19 harrayp 15 harrayp 7 harrayp 3 harrayp) () stringhashbits d1 (l (0 string)) wj@j3IdlIIkXIؼICjhil I[I jhHkXLJI YMKHKHJdndlӺ(81 mkstring) nil () string-equal-hashbits d1 (l (0 string)) zj@j3IdlIIkXIؼICjhil I[I jhHkXLJI YMKHKHl JdndlӺ(81 mkstring) nil () \\codearray d1 (l (1 initonpage 0 nbytes)) @j@@n@l ldlC@llAl HdId@dj(40 \\allocblock 15 \\lisperror) nil () \\fixcodenum d1 (l (3 mask 2 num 1 bn 0 ca)) @HABlHAkbHABBnil (3 arrayp) () \\fixcodeptr d1 (l (3 mask 2 ptr 1 bn 0 ca) p 2 \\interruptable) -@BBHAIlǿHAkIǿHAlBBnil (3 arrayp) () \\allocblock d1 (l (3 align 2 initonpage 1 gctype 0 ncells) p 3 \\interruptable) l@j@@ lb@n@o AjikbBjBBlB CjCCdlC khihbB`@l@hi@ABC @l!HABC -HABC $l djkٰHABC hl YkIdkZJkIAѿI ``@ `@IlY``k `kI(279 \\doreclaim 242 \\doreclaim 213 \\checkarrayblock 179 \\lisperror 170 \\allocblock.old 157 reclaim 146 \\allocblock.new 137 \\allocblock.old 114 \\allochunk 79 \\illegal.arg 60 \\illegal.arg 32 \\lisperror 12 \\illegal.arg) (275 \\reclaim.countdown 271 \\reclaim.countdown 266 \\reclaim.countdown 259 \\reclaim.countdown 254 \\reclaim.countdown 238 \\reclaim.countdown 234 \\reclaim.countdown 229 \\reclaim.countdown 222 \\reclaim.countdown 217 \\reclaim.countdown 96 \\hunking?) ( 29 "ARRAY STORAGE BLOCK TOO LARGE") \\allocblock.old d1 (l (3 align 2 initonpage 1 gctype 0 arlen)) l@ dll"IH`IIZhiJ1J nUJdk[K nUloJ CB@BCAJ j_JO]@oJid J OjJO JOOкM@^`lBjJ@@N `MbOjM@J@ Ji Jl@l iJZdLEhhiJIkYh(222 \\clearcells 210 \\checkarrayblock 204 \\makefreearrayblock 181 \\mergeforward 178 \\linkblock 175 \\makefreearrayblock 143 \\mergebackward 140 \\makefreearrayblock 127 \\deleteblock? 122 \\checkarrayblock 99 \\prefixalignment? 83 \\mp.error 5 integerlength) (185 \\hunking? 159 \\hunking? 26 \\freeblockbuckets) ( 79 "Bad Array Block") \\allocblock.new d1 (l (3 align 2 initonpage 1 gctype 0 arlen)) PBC@BCA` [jK [dL `@@kXkкHHY`lI`k di`dI`@ g Jjj `\Ll `l(130 \\new2page 115 \\makemdsentry 95 \\makefreearrayblock 73 \\checkforstoragefull 33 \\mergebackward 26 \\allocblock.new 18 \\prefixalignment?) (140 |\\NxtArrayPage| 134 |\\NxtArrayPage| 119 |\\NxtArrayPage| 98 |\\ArrayFrLst| 91 |\\ArrayFrLst| 82 |\\NxtArrayPage| 67 |\\NxtArrayPage| 58 |\\NxtMDSPage| 37 |\\ArrayFrLst| 14 |\\ArrayFrLst|) () \\prefixalignment? d1 (l (4 base 3 gctype 2 align 1 initonpage 0 arlen)) `DljBHBZjIBJZԹHJԸAHmHAkmIlHlZԹHJԸCl@lnHnXZIJԹHJInil nil () \\makefreearrayblock d1 (l (1 length 0 block)) 3@n@A@dkHIIn@dkHIIA@nil nil () \\deleteblock? d1 (l (0 base)) dl@hiX@S@@`@ dllHII@dHJJhlo hJJHHIIHh(76 \\mp.error 31 integerlength) (25 \\freeblockbuckets) ( 73 "deleting last block # FREEBLOCKLIST") \\linkblock d1 (l (0 base)) e`_l@@i P`@ dllHIIHY@d@d@I@II@I@H@@id @(97 \\checkarrayblock 28 integerlength 16 \\checkarrayblock) (22 \\freeblockbuckets 2 \\freeblockbuckets) () \\mergebackward d1 (l (0 base)) H0@h`hi@d`d`mYj@ @jIZJXdi H H@ (69 \\arrayblockmerger 64 \\deleteblock? 60 \\checkarrayblock 43 \\linkblock) (27 \\arrayspace2 20 \\arrayspace 9 \\arraymerging) () \\mergeforward d1 (l (0 base)) S0`hi7@d4id ,@dZJX`H`HdjhYhi IhH @ @H h(79 \\arrayblockmerger 74 \\deleteblock? 70 \\deleteblock? 61 \\checkarrayblock 20 \\checkarrayblock) (41 |\\ArrayFrLst2| 34 |\\ArrayFrLst| 5 \\arraymerging) () \\arrayblockmerger d1 (l (1 nbase 0 base)) Q@A2nHZIJ3nIJY`lBl[IKYټHLԸJLԺAJJI j@HI (78 \\linkblock 75 \\makefreearrayblock 65 \\linkblock 62 \\makefreearrayblock) (30 \\hunking?) () \\#blockdatacells d1 (l (0 dataword)) N@Hj@dj:l@hi-@ml``HPj`H@ (75 \\illegal.arg) (60 |\\DTDSpaceBase| 45 |\\DTDSpaceBase| 41 \\hunking?) () \\reclaimarrayblock d1 (l (0 p)) k@m!H nUhiHjhilo hHdk!HdkYIк@dJ@lbl@ Hd h(103 \\mergeforward 100 \\mergebackward 97 \\makefreearrayblock 89 \\reclaimcodeblock 39 \\mp.error) nil ( 36 "Bad array block reclaimed--continue with ^N but save state ASAP") \\advance.array.segments d1 (l (0 nxtpage)) r@g l```kl`lXhi`H `YIlт`g g @ZJl[Kj(63 \\mergebackward 60 \\makefreearrayblock) (95 |\\NxtArrayPage| 89 |\\ArrayFrLst| 84 \\arrayspace2 79 |\\ArrayFrLst| 67 |\\LeastMDSPage| 56 |\\ArrayFrLst| 38 |\\ArrayFrLst| 20 |\\ArrayFrLst| 15 |\\ArrayFrLst| 12 |\\NxtArrayPage| 5 |\\ArrayFrLst2|) () \\bytelt d1 (l (1 j 0 a)) T@bdj@dCj@dCl@l @AAl @@A(65 \\lisperror 49 \\lisperror) (76 arrayp 70 arrayp 54 arrayp 35 arrayp 22 arrayp 9 arrayp 3 arrayp) () \\byteseta d1 (l (2 v 1 j 0 a)) h@bdj@dCj@dCl@l @AAl @d j@l @@AB(84 \\lisperror 65 \\lisperror 49 \\lisperror) (95 arrayp 89 arrayp 71 arrayp 54 arrayp 35 arrayp 22 arrayp 9 arrayp 3 arrayp) () \\wordelt d1 (l (1 j 0 a)) G@bdj@dCk@l @AAl @@A(50 \\lisperror 34 \\lisperror) (61 arrayp 55 arrayp 39 arrayp 21 arrayp 9 arrayp 3 arrayp) () \\arraytypename d1 (l (0 x)) @Clggnil (17 arrayp 13 ccodep 3 arrayp) () \\show.array.freelistsa0001 d1 (name errorset l (0 nil) f 11 sizeslst f 12 macroy) l `W jSH hiIH hiIlj XHd lj_ONl`OO[ Ok_JL]ԺWH O KL\_MOOdkOlOl M Ol_O_h o h WH OCh o oJ o oJl h h hci_o Oo l oO o oOl o h Ol_O_b(345 terpri 340 prin1 332 printnum 329 \\getbasefixp 317 prin1 309 printnum 297 tab 291 prin1 280 prin1 263 terpri 258 terpri 253 printnum 234 prin1 226 printnum 217 prin1 209 terpri 192 terpri 187 prin1 179 terpri 157 \\putbasefixp 152 \\getbasefixp 55 \\clearcells 52 \\#blockdatacells 42 \\allocblock 25 \\#blockdatacells 15 \\blockdatap 7 length) (72 \\freeblockbuckets 46 \\abstoragetable 2 \\abstoragetable) ( 337 " cells." 322 (fix 8) 314 " items; " 302 (fix 8) 288 "others " 277 "le " 239 (fix 4) 231 " total pages: " 222 (fix 8) 214 "Total cells free: " 184 " variable-datum free list: ") \\show.array.freelists d1 (p 3 resetstate p 2 macroy p 0 oldvalue i 0 sizeslst f 4 resetvarslst f 5 storage.arraysizes) H@UbAn 1gHhhTcYog higIcgI KJ(67 error! 62 apply 39 \\show.array.freelistsa0001 12 reclaimmin) (55 reclaimmin 47 error 36 internal 18 reclaimmin) ( 33 (\\show.array.freelistsa0001)) \\checkarrayblock d1 (l (2 onfreelist 1 free 0 base)) ``@d nUojhAhio{A@d koj@dkZJY nUoQ@dIoAjhAhio-Bhill@d@@hi@@hiolH@i H`@ dll[K\] oX@Mi M]dLhh(224 \\checkarrayblock 190 integerlength 179 \\mp.error 56 \\refcnt) (184 \\freeblockbuckets 2 arrayblockchecking) ( 212 "Free block's bucket empty" 170 "ARRAYBLOCK links fouled" 125 "ARRAYBLOCK Trailer INUSE bit set wrong" 105 "ARRAYBLOCK Header and Trailer length don't match" 89 "ARRAYBLOCK Trailer password wrong" 64 "Free ARRAYBLOCK with RefCnt not 1" 47 "ARRAYBLOCK INUSE bit set wrong" 26 "ARRAYBLOCK Password wrong") \\parsearrayspace d1 (l (0 fn)) *``@`` @`` @`` (39 \\parsearrayspace1 28 \\parsearrayspace1 18 \\parsearrayspace1) (36 |\\ArrayFrLst| 33 \\arrayspace 25 |\\ArrayFrLst| 22 \\arrayspace2 15 |\\ArrayFrLst2| 12 \\arrayspace 5 \\arrayspace2 2 |\\ArrayFrLst2|) () \\parsearrayspace1 d1 (l (2 end 1 start 0 fn)) KAHdjhiHjhiH @HdHjhHl@BHdYIXh(32 \\checkarrayblock) nil () \\allochunk d1 (l (3 align 2 initonpage 1 gctype 0 ncells)) CAdj>`Kl@(CAdjokoAlohioC l`Ak`jRH@º`JChi`JCjyLkbl@̀Nd` hAl,Ml LLlhil