(FILECREATED "15-Feb-85 11:23:15" ("compiled on " {ERIS}SOURCES>LLARRAYELT.;71) "15-Feb-85 01:03:36" brecompiled changes: \ALLOCBLOCK.OLD \PREFIXALIGNMENT? \DELETEBLOCK? \MERGEFORWARD in "INTERLISP-D 15-Feb-85 ..." dated "15-Feb-85 01:20:27") (FILECREATED "15-Feb-85 11:21:12" {ERIS}SOURCES>LLARRAYELT.;71 83710 changes to: (VARS LLARRAYELTCOMS) (FNS \ALLOCBLOCK.OLD \PREFIXALIGNMENT? \DELETEBLOCK? \MERGEFORWARD) previous date: "13-Feb-85 16:06:41" {ERIS}SOURCES>LLARRAYELT.;70) AIN D1 (L (3 FILE 2 N 1 INDEX 0 APTR)) @@@jAAl @A@@Cdjdl@EdkHBbI@.dldlHBbI@lh@l IB@l Cg @IHK6KLMBlJ@(212Q \GETSTREAM 202Q \LISPERROR 166Q \LISPERROR 23Q \LISPERROR) (207Q INPUT) () AOUT D1 (L (3 FILE 2 N 1 INDEX 0 APTR)) @@@jAAl @A@@Cdjdl@@dkBbIH@)dldlBbIH@@l IB@l Cg @IHK8KLMBlJ@(205Q \GETSTREAM 175Q \LISPERROR 161Q \LISPERROR 23Q \LISPERROR) (202Q 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(1037Q SHOULDNT 751Q FEQP 651Q \PUTBASEFIXP 465Q \ALLOCBLOCK 442Q \LISPERROR 401Q \ILLEGAL.ARG 26Q \LISPERROR) (305Q BITS 255Q SIGNEDWORD 231Q BIT 221Q FLOATP 204Q FLOATP 170Q FIXP 150Q DOUBLEPOINTER 126Q FLAG 117Q POINTER 76Q WORD 67Q SMALLPOSP 61Q SMALLP 40Q BYTE) ( 745Q 0.0) ARRAYSIZE D1 (L (0 X)) @NIL (3 ARRAYP) () ARRAYTYP D1 (L (0 ARRAY)) Q@Cdjgdl gdlgdkgdlgdlgdlglg(116Q SHOULDNT) (112Q BIT 102Q FLOATP 71Q FIXP 60Q CODE 47Q SMALLPOSP 37Q POINTER 26Q DOUBLEPOINTER 15Q BYTE 3 ARRAYP) () ARRAYORIG D1 (L (0 ARRAY)) @NIL (3 ARRAYP) () COPYARRAY D1 (L (0 ARRAY)) p@d @ @H @H  @ @#JIhH [H\JdjKL@L(*LkԼkٰIgHJdjKL@L LkԼkٰK(143Q SETD 140Q ELTD 63Q ARRAY 43Q ARRAYTYP 37Q ARRAYORIG 33Q REHASH 26Q \COPYHARRAYP 16Q HASHARRAY 13Q HARRAYSIZE 4 HARRAYP) (116Q DOUBLEPOINTER 47Q ARRAYP) () ELT D1 (L (1 N 0 A)) @@A@jIId@Al I@Y@Cdldl HIIdlHIIXdHdjdlHIdkHIdlHIlIl klHId@l (242Q \LISPERROR 207Q LRSH 42Q \LISPERROR) (3 ARRAYP) () ELTD D1 (L (1 N 0 A)) F@@dCl 6A@jIId@Al I@YH@ZJIIA((53Q \LISPERROR) (3 ARRAYP) () SETA D1 (L (2 V 1 N 0 A)) @bd jl @A@jIId@Al I@Y@Cdldl HIIBBdlHIIjB djdlHIBdkHIBBdlCHIBjHIklIl nHIklIl BlHIBJKLL@l (343Q \LISPERROR 276Q LLSH 243Q LLSH 140Q \PUTBASEFIXP 61Q \LISPERROR 21Q \LISPERROR) (3 ARRAYP) () SETD D1 (L (2 V 1 N 0 A)) W@@dCl Fd jl @A@jIId@Al I@YH@ZJIIBBAB*(71Q \LISPERROR 31Q \LISPERROR) (3 ARRAYP) () SUBARRAY D1 (L (4 NEWORIG 3 OLD 2 M 1 N 0 X) P 10Q \INTERRUPTABLE) @@@ABDjJJHkغKHjKKHkػIJheJKh^KHhWCl@dLKJkؽdM@CdNC@JI_dOdIdjdj djNIL (117Q ARRAYP 3 ARRAYP) () CLRHASH D1 (L (0 HARRAY) P 2 \INTERRUPTABLE) :@HYHkdjIhIhIlйkٰHdHj@NIL (3 HARRAYP) () GETHASH D1 (L (1 HARRAY 0 ITEM)) A H_@kO@@_H_OHOIIIIк@J[H _@KlOJKJFIkHkMپNIINقIMYL)OIIIIZ[@O@KlOKJhNIL (3 HARRAYP) () HARRAY D1 (L (0 MINKEYS)) @g (6 HASHARRAY) (3 ERROR) () HASHARRAY D1 (L (3 EQUIVFN 2 HASHBITSFN 1 OVERFLOW 0 MINKEYS)) tl@klHdI\HiAHYdno@ HHZ`Ik dKHkټdLdAdJdJdjdBdC dX(77Q \ALLOCBLOCK 55Q ERROR) (71Q HARRAYPTYPE#) ( 51Q "HARRAY TOO LARGE") HARRAYP D1 (L (0 X)) @ g@(3 TYPENAME) (6 HARRAYP) () HARRAYPROP D1 (L (0 NARGS)) eHj@HkAHl#IKBJdgKsL gI LKLMKIMJdgKFLgL KLM JgLKLML YJ KI LJMh JM oJ h(243Q ERROR 231Q LISTPUT 204Q LISTGET 56Q HARRAYSIZE) (157Q HASHBITSFN 136Q EQUIVFN 121Q NUMKEYS 62Q OVERFLOW 44Q SIZE 32Q HARRAYP) ( 237Q "Can't update this hash array property") HARRAYSIZE D1 (L (0 HARRAY)) @NIL (3 HARRAYP) () MAPHASH D1 (L (1 MAPHFN 0 HARRAY)) 5@1HYH[KKKкI IdJ@IlAlYNIL (3 HARRAYP) () PUTHASH D1 (L (2 HARRAY 1 VAL 0 ITEM) P 14Q \INTERRUPTABLE)  B H_@kO@@_H_OHOJJJJл@K\H _@LlOpKLGKJkHkN_OJJOقJNZMI"o OJJJJ[\KIIA?hL@O@LlOIKK AKoHdmKAAHjB` bh* KIHdmHdkK@KAA(351Q HASHOVERFLOW 177Q ERROR) (356Q HARRAYP 346Q SYSHASHARRAY 3 HARRAYP) ( 306Q "Deleted" 174Q "No vacant slot in hasharray") REHASH D1 (L (1 NEWAR 0 OLDAR)) 7A @AHYH\LLLкI[IKA IdJAlY(47Q PUTHASH 3 CLRHASH) (7 HARRAYP) () \COPYHARRAYP D1 (L (1 TARGET 0 SOURCE)) ,A@A@A@A@A@A@HIINIL NIL () STRINGHASHBITS D1 (L (0 STR)) jd@s JdlJJkYJؼJC!l*`J^N`J_O jhIkYLHJ ZMKIKIHn_n_OOOOk渰(124Q MKSTRING) (67Q \PLISTSPACE 53Q \PNPSPACE) () \CODEARRAY D1 (L (1 INITONPAGE 0 NBYTES)) @j@@n@l ldlC@llAl HdId@dj(50Q \ALLOCBLOCK 17Q \LISPERROR) NIL () \FIXCODENUM D1 (L (2 NUM 1 BN) I 0 CA) @HABlHAkbHABBNIL NIL () \FIXCODEPTR D1 (L (2 PTR 1 BN) P 2 \INTERRUPTABLE I 0 CA) *@BBHAIlǿHAkIǿHAlBBNIL NIL () \ALLOCBLOCK D1 (L (3 ALIGN 2 INITONPAGE 1 GCTYPE 0 NCELLS) P 3 \INTERRUPTABLE) l@j@@ lb@n@o AjikbBjBBlB CjCCdlC khbB`@dl@ABC @l!HABC .HABC %l djkٰHABC hli YkIdkZJkIAѿI ``@ `@IlY``k `kI(420Q \DORECLAIM 353Q \DORECLAIM 316Q \CHECKARRAYBLOCK 254Q \LISPERROR 242Q \ALLOCBLOCK.OLD 225Q RECLAIM 212Q \ALLOCBLOCK.NEW 201Q \ALLOCBLOCK.OLD 152Q \ALLOCHUNK 117Q \ILLEGAL.ARG 74Q \ILLEGAL.ARG 40Q \LISPERROR 14Q \ILLEGAL.ARG) (414Q \RECLAIM.COUNTDOWN 410Q \RECLAIM.COUNTDOWN 403Q \RECLAIM.COUNTDOWN 374Q \RECLAIM.COUNTDOWN 367Q \RECLAIM.COUNTDOWN 347Q \RECLAIM.COUNTDOWN 343Q \RECLAIM.COUNTDOWN 336Q \RECLAIM.COUNTDOWN 327Q \RECLAIM.COUNTDOWN 322Q \RECLAIM.COUNTDOWN 134Q \HUNKING?) ( 35Q "ARRAY STORAGE BLOCK TOO LARGE") \ALLOCBLOCK.OLD D1 (L (3 ALIGN 2 INITONPAGE 1 GCTYPE 0 ARLEN)) l@ dll"IH`IIZIkY1J nUJdk[K nUloJ CB@BCAJ j_JO]@oJid J OjJO JOOкM@^`lBjJ@@N `MbOjM@J@ Ji Jl@l iJZdLEh4Jh(335Q \CLEARCELLS 321Q \CHECKARRAYBLOCK 313Q \MAKEFREEARRAYBLOCK 264Q \MERGEFORWARD 261Q \LINKBLOCK 256Q \MAKEFREEARRAYBLOCK 216Q \MERGEBACKWARD 213Q \MAKEFREEARRAYBLOCK 176Q \DELETEBLOCK? 171Q \CHECKARRAYBLOCK 142Q \PREFIXALIGNMENT? 122Q \MP.ERROR 5 INTEGERLENGTH) (270Q \HUNKING? 236Q \HUNKING? 32Q \FREEBLOCKBUCKETS) ( 116Q "Bad Array Block") \ALLOCBLOCK.NEW D1 (L (3 ALIGN 2 INITONPAGE 1 GCTYPE 0 ARLEN)) `BC@BCA` [jK [dR `@@kXkкHHY`lI`k di#`dI `@ `g]MJjj `\Ll `l(210Q \NEW2PAGE 171Q \MAKEMDSENTRY 137Q \MAKEFREEARRAYBLOCK 111Q \CHECKFORSTORAGEFULL 41Q \MERGEBACKWARD 32Q \ALLOCBLOCK.NEW 22Q \PREFIXALIGNMENT?) (222Q \NxtArrayPage 214Q \NxtArrayPage 175Q \NxtArrayPage 145Q \ArrayFrLst 142Q \VALSPACE 133Q \ArrayFrLst 122Q \NxtArrayPage 103Q \NxtArrayPage 72Q \NxtMDSPage 45Q \ArrayFrLst 16Q \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)) `l@W@S@@`@ dllHII@dHJJhlo hJJHHIIHh(110Q \MP.ERROR 33Q INTEGERLENGTH) (25Q \FREEBLOCKBUCKETS) ( 105Q "deleting last block # FREEBLOCKLIST") \LINKBLOCK D1 (L (0 BASE)) e`_l@@i P`@ dllHIIHY@d@d@I@II@I@H@@id @(141Q \CHECKARRAYBLOCK 34Q INTEGERLENGTH 20Q \CHECKARRAYBLOCK) (26Q \FREEBLOCKBUCKETS 2 \FREEBLOCKBUCKETS) () \MERGEBACKWARD D1 (L (0 BASE)) D0@h`@d`d`mYj@ @jIZJXdi H H@ (101Q \ARRAYBLOCKMERGER 74Q \DELETEBLOCK? 70Q \CHECKARRAYBLOCK 47Q \LINKBLOCK) (27Q \ARRAYSPACE2 20Q \ARRAYSPACE 11Q \ARRAYMERGING) () \MERGEFORWARD D1 (L (0 BASE)) M0`6@d2id *@dZJX`H`HdjhYh IhH @ @H h(111Q \ARRAYBLOCKMERGER 104Q \DELETEBLOCK? 100Q \DELETEBLOCK? 67Q \CHECKARRAYBLOCK 20Q \CHECKARRAYBLOCK) (45Q \ArrayFrLst2 36Q \ArrayFrLst 5 \ARRAYMERGING) () \ARRAYBLOCKMERGER D1 (L (1 NBASE 0 BASE)) Q@A2nHZIJ3nIJY`lBl[IKYټHLԸJLԺAJJI j@HI (116Q \LINKBLOCK 113Q \MAKEFREEARRAYBLOCK 101Q \LINKBLOCK 76Q \MAKEFREEARRAYBLOCK) (36Q \HUNKING?) () \#BLOCKDATACELLS D1 (L (0 DATAWORD)) J@Hj@dj6l@-@ml``HPj`H@ (107Q \ILLEGAL.ARG) (70Q \DTDSpaceBase 51Q \DTDSpaceBase 45Q \HUNKING?) () \RECLAIMARRAYBLOCK D1 (L (0 P)) d@m!H nUHdjlo hdk!HdkYIк@dJ@lbl@ Hd h(140Q \MERGEFORWARD 135Q \MERGEBACKWARD 132Q \MAKEFREEARRAYBLOCK 122Q \RECLAIMCODEBLOCK 41Q \MP.ERROR) NIL ( 36Q "Bad array block reclaimed--continue with ^N but save state ASAP") \ADVANCE.ARRAY.SEGMENTS D1 (L (0 NXTPAGE)) pP`gYIl```kl`lX`H `ZJlт``g[K@\Llj(101Q \MERGEBACKWARD 76Q \MAKEFREEARRAYBLOCK) (142Q \NxtArrayPage 131Q \ArrayFrLst 126Q \VALSPACE 121Q \ArrayFrLst 105Q \LeastMDSPage 72Q \ArrayFrLst 54Q \ArrayFrLst 32Q \ArrayFrLst 25Q \ArrayFrLst 22Q \NxtArrayPage 10Q \ArrayFrLst2 5 \VALSPACE) () \BYTELT D1 (L (1 J 0 A)) :@bdjdCjdCll @AAl @@A(55Q \LISPERROR 40Q \LISPERROR) (3 ARRAYP) () \BYTESETA D1 (L (2 V 1 J 0 A)) I@bdjdCjdCll @AAl @d jl @@AB(73Q \LISPERROR 55Q \LISPERROR 40Q \LISPERROR) (3 ARRAYP) () \WORDELT D1 (L (1 J 0 A)) 4@bdjdCkl @AAl @@A(45Q \LISPERROR 30Q \LISPERROR) (3 ARRAYP) () \ARRAYTYPENAME D1 (L (0 X)) @ClggNIL (16Q ARRAYP 12Q CCODEP) () \SHOW.ARRAY.FREELISTSA0001 D1 (NAME ERRORSET L (0 NIL) F 13Q SIZESLST F 14Q MACROY) d `W jSH IH Ilj 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(521Q TERPRI 514Q PRIN1 504Q PRINTNUM 501Q \GETBASEFIXP 465Q PRIN1 455Q PRINTNUM 441Q TAB 433Q PRIN1 420Q PRIN1 377Q TERPRI 372Q TERPRI 365Q PRINTNUM 342Q PRIN1 332Q PRINTNUM 321Q PRIN1 311Q TERPRI 270Q TERPRI 263Q PRIN1 253Q TERPRI 225Q \PUTBASEFIXP 220Q \GETBASEFIXP 57Q \CLEARCELLS 54Q \#BLOCKDATACELLS 42Q \ALLOCBLOCK 25Q \#BLOCKDATACELLS 17Q \BLOCKDATAP 7 LENGTH) (100Q \FREEBLOCKBUCKETS 46Q \ABSTORAGETABLE 2 \ABSTORAGETABLE) ( 511Q " cells." 472Q (FIX 10Q) 462Q " items; " 446Q (FIX 10Q) 430Q "others " 415Q "le " 347Q (FIX 4) 337Q " total pages: " 326Q (FIX 10Q) 316Q "Total cells free: " 260Q " 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) D@Ub=n 1gHhhTcYog gIcgI KJ(77Q ERROR! 72Q APPLY 47Q \SHOW.ARRAY.FREELISTSA0001 14Q RECLAIMMIN) (63Q RECLAIMMIN 53Q ERROR 44Q INTERNAL 22Q RECLAIMMIN) ( 41Q (\SHOW.ARRAY.FREELISTSA0001)) \CHECKARRAYBLOCK D1 (L (2 ONFREELIST 1 FREE 0 BASE)) ``@d nUojhAhomA@d ko\@dkZJY nUoC@dIo3jhAho!Bel@\@@@@olH@i H`@ dll[K\] oX@Mi M]dLhh(320Q \CHECKARRAYBLOCK 256Q INTEGERLENGTH 243Q \MP.ERROR 66Q \REFCNT) (250Q \FREEBLOCKBUCKETS 2 ARRAYBLOCKCHECKING) ( 304Q "Free block's bucket empty" 232Q "ARRAYBLOCK links fouled" 171Q "ARRAYBLOCK Trailer INUSE bit set wrong" 147Q "ARRAYBLOCK Header and Trailer length don't match" 127Q "ARRAYBLOCK Trailer password wrong" 76Q "Free ARRAYBLOCK with RefCnt not 1" 55Q "ARRAYBLOCK INUSE bit set wrong" 32Q "ARRAYBLOCK Password wrong") \PARSEARRAYSPACE D1 (L (0 FN)) *`Aj@`` @`` @`` (47Q \PARSEARRAYSPACE1 34Q \PARSEARRAYSPACE1 22Q \PARSEARRAYSPACE1) (44Q \ArrayFrLst 41Q \ARRAYSPACE 31Q \ArrayFrLst 26Q \ARRAYSPACE2 17Q \ArrayFrLst2 14Q \ARRAYSPACE 2 \InterfacePage) () \PARSEARRAYSPACE1 D1 (L (2 END 1 START 0 FN)) KAHdjhhHjhhH @HdHjhHl@BHdYIXh(40Q \CHECKARRAYBLOCK) NIL () (PRETTYCOMPRINT LLARRAYELTCOMS) (RPAQQ LLARRAYELTCOMS ((COMS (* ARRAY entries) (FNS AIN AOUT ARRAY ARRAYSIZE ARRAYTYP ARRAYORIG COPYARRAY) (DECLARE: DONTCOPY (MACROS ARRAYSIZE)) (FNS ELT ELTD SETA SETD SUBARRAY)) (COMS (* HASHARRAY entries) (FNS CLRHASH GETHASH HARRAY HASHARRAY HARRAYP HARRAYPROP HARRAYSIZE MAPHASH PUTHASH REHASH \COPYHARRAYP STRINGHASHBITS) (P (MOVD (QUOTE HARRAY) (QUOTE GROWINGHARRAY))) (DECLARE: DONTCOPY (EXPORT (RECORDS HARRAYP)) (RECORDS HASHINDEX HASHSLOT) (MACROS \FIRSTINDEX \HASHINGBITS \REPROBE \NEWREPROBE) (CONSTANTS (CELLSPERSLOT 2))) (INITRECORDS HARRAYP) (SYSRECORDS HARRAYP) (EXPORT (GLOBALVARS SYSHASHARRAY))) (COMS (* System entries for CODE) (FNS \CODEARRAY \FIXCODENUM \FIXCODEPTR )) (COMS (* Internal) (DECLARE: DONTCOPY (MACROS EQPTR BUCKETINDEX FREEBLOCKCHAIN.N) (CONSTANTS \MAXBUCKETINDEX) (* \ADDBASE2 and \ADDBASE4 do \ADDBASE of 2*N and 4*N without boxing) (EXPORT (MACROS \ADDBASE2 \ADDBASE4 HUNKSIZEFROMNUMBER \BYTELT \BYTESETA \WORDELT))) (FNS \ALLOCBLOCK \ALLOCBLOCK.OLD \ALLOCBLOCK.NEW \PREFIXALIGNMENT? \MAKEFREEARRAYBLOCK \DELETEBLOCK? \LINKBLOCK \MERGEBACKWARD \MERGEFORWARD \ARRAYBLOCKMERGER \#BLOCKDATACELLS \RECLAIMARRAYBLOCK \ADVANCE.ARRAY.SEGMENTS) (FNS \BYTELT \BYTESETA \WORDELT) (FNS \ARRAYTYPENAME) (VARS (\ARRAYMERGING T)) (GLOBALVARS \ARRAYMERGING) ( COMS (* for STORAGE) (FNS \SHOW.ARRAY.FREELISTS) (INITVARS (\ABSTORAGETABLE NIL)) (GLOBALVARS \ABSTORAGETABLE) (DECLARE: DONTCOPY (RECORDS SAFTABLE))) (COMS (* Debugging and RDSYS) (FNS \CHECKARRAYBLOCK \PARSEARRAYSPACE \PARSEARRAYSPACE1) (INITVARS (ARRAYBLOCKCHECKING)) (GLOBALVARS ARRAYBLOCKCHECKING)) (P (MOVD? (QUOTE NILL) (QUOTE \RECLAIMCODEBLOCK)))) (COMS (* for MAKEINIT) (FNS PREINITARRAYS POSTINITARRAYS FILEARRAYBASE FILEBLOCKTRAILER FILECODEBLOCK FILEPATCHBLOCK) (DECLARE: DONTCOPY (EXPORT (CONSTANTS * BLOCKGCTYPECONSTANTS) (CONSTANTS * ARRAYCONSTANTS) (CONSTANTS * ARRAYTYPES) (CONSTANTS \MAX.CELLSPERHUNK) (RECORDS SEQUENCEDESCRIPTOR ARRAYP ARRAYBLOCK) (GLOBALVARS \NxtArrayPage \FREEBLOCKBUCKETS \HUNKING?)) (GLOBALVARS \ArrayFrLst \ArrayFrLst2 \RECLAIM.COUNTDOWN) ( ADDVARS (INITVALUES (\NxtArrayPage)) (INITPTRS (\FREEBLOCKBUCKETS) (\ArrayFrLst) (\ArrayFrLst2)) ( INEWCOMS (FNS \#BLOCKDATACELLS \PREFIXALIGNMENT? \ALLOCBLOCK \ALLOCBLOCK.NEW \MAKEFREEARRAYBLOCK \MERGEBACKWARD \LINKBLOCK) (FNS PREINITARRAYS POSTINITARRAYS FILEARRAYBASE FILEBLOCKTRAILER FILECODEBLOCK FILEPATCHBLOCK)) (MKI.SUBFNS (\ALLOCBLOCK.OLD . NILL) (\MERGEFORWARD . NILL) ( \FIXCODENUM . I.FIXUPNUM) (\FIXCODEPTR . I.FIXUPPTR) (\CHECKARRAYBLOCK . NILL) (\HUNKING? PROGN NIL) ( \ARRAYMERGING PROGN NIL)) (EXPANDMACROFNS \ADDBASE2 \ADDBASE4 HUNKSIZEFROMNUMBER BUCKETINDEX FREEBLOCKCHAIN.N) (RDCOMS (FNS \CHECKARRAYBLOCK \PARSEARRAYSPACE \PARSEARRAYSPACE1)) (RD.SUBFNS (EQPTR . EQUAL) (ARRAYBLOCKCHECKING . T)) (RDPTRS (\FREEBLOCKBUCKETS)) (RDVALS (\ArrayFrLst) (\ArrayFrLst2)) ) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS PREINITARRAYS POSTINITARRAYS FILEARRAYBASE FILEBLOCKTRAILER FILECODEBLOCK FILEPATCHBLOCK)))) (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA HARRAYPROP))))) (MOVD (QUOTE HARRAY) (QUOTE GROWINGHARRAY)) (/DECLAREDATATYPE (QUOTE HARRAYP) (QUOTE (WORD WORD POINTER POINTER WORD WORD POINTER POINTER POINTER) )) (ADDTOVAR SYSTEMRECLST (DATATYPE HARRAYP ((NULLSLOTS WORD) (LASTINDEX WORD) (HARRAYPBASE POINTER) ( OVERFLOWACTION POINTER) (NUMSLOTS WORD) (NUMKEYS WORD) (HASHBITSFN POINTER) (EQUIVFN POINTER) ( HASHUSERDATA POINTER)))) (RPAQQ \ARRAYMERGING T) (RPAQ? \ABSTORAGETABLE NIL) (RPAQ? ARRAYBLOCKCHECKING) (MOVD? (QUOTE NILL) (QUOTE \RECLAIMCODEBLOCK)) (PUTPROPS LLARRAYELT COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL