(FILECREATED "25-Jun-86 12:48:44" ("compiled on " {ERIS}SOURCES>LLARRAYELT.;82) "24-Jun-86 17:17:57" tcompl'd in "Xerox Lisp 24-Jun-86 ..." dated "24-Jun-86 17:34:21") (FILECREATED "25-Jun-86 12:46:22" {ERIS}SOURCES>LLARRAYELT.;82 142260 changes to: (VARS LLARRAYELTCOMS \HUNK.PTRSIZES) (FNS STRING-EQUAL-HASHBITS \SETUP.HUNK.TYPENUMBERS \COMPUTE.HUNK.TYPEDECLS \SETUP.TYPENUM.TABLE \ALLOCHUNK \TURN.ON.HUNKING) previous date: "16-Apr-86 17:15:46" {ERIS}SOURCES>LLARRAYELT.;81) AIN D1 (P 1 STBYTE P 0 OFFST I 3 FILE I 2 N I 1 INDEX I 0 APTR) ¥@¥@¡@„jAñ–Al ¿@ÈA@ÊÙ@ÊCdjð¤dlð•¿@È°Edkð²¿Hà¸Bàb¿Ià¹@Èà°.dlð¥dlð²¿Hàà¸Bààb¿Iàà¹@Èàà‹lð‘h…@l IBØýñ–@l ¿Cg @ÉIHØKÉÉ6ºKLMBlJ@(212Q \GETSTREAM 202Q \LISPERROR 166Q \LISPERROR 23Q \LISPERROR) (207Q INPUT) () AOUT D1 (P 1 STBYTE P 0 OFFST I 3 FILE I 2 N I 1 INDEX I 0 APTR) @¥@¡@„jAñ–Al ¿@ÈA@ÊÙ@ÊCdjð¤dlð•¿@È°@dkð²¿Bàb¿Ià¹Hà¸@Èà°)dlð¥dlð²¿Bààb¿Iàà¹Hàà¸@Èàà†¿@l IBØýñ–@l ¿Cg @ÉIHØKÉÉ8ºKLMBlJ@(205Q \GETSTREAM 175Q \LISPERROR 161Q \LISPERROR 23Q \LISPERROR) (202Q OUTPUT) () ARRAY D1 (P 11Q LASTWORD2BASE P 10Q NWORDS P 7 BASE P 3 GCTYPE P 2 TYP P 1 AP P 0 NCELLS I 4 ALIGN I 3 ORIG I 2 INITVAL I 1 TYPE I 0 SIZE) @jØbj@ñ§ddnÿÿñ˜¿@l ¿@aAdgð›¿@lØââ¸j±ÖgðAgð§Adgð™¿@kØâ¸k±ºAgð§Adgð—¿k»l±¤jð§Adgðš¿@à¸k»l±gð”l±…AdgðŸ¿Bµl°ub¿°ögð@lØâââââ¸l°ZAgð“l°P@Að“l°HAd²@dgð²8dlñ”¿l°/lñ—@kØâ¸k°!Akñ˜@lØââ¸j@lØâââââ¸l‚ ZldJÏC¿d@Í¿Cdjð¬dkð¨µk„l ¼dLÏ¿djÍ¿HKhD½dM¿YB¢±ÝdÉHàkÙ OOkÙÐ_¿Jdjð²¿Bjð’±»OBáBØÍ¿OdkÐOÄ±§kð²Bjð’±œOBÍ¿OdkÐOÄ±‹Jdlð²¿Bjð³}OBÌ¿OdlÐOkÙÄ°jlð§Jdlð²¿O¾HdjñNB¿NlÐ¾kÙ°ð¿°Elð²!oB ³6OBíÎ¿OdlÐOkÙÄ°!Jlð²Bjð³OnÿÿÍ¿OdkÐOÄ‚I(1033Q SHOULDNT 745Q FEQP 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) ( 741Q 0.0) ARRAYSIZE D1 (I 0 X) @ÈNIL (3 ARRAYP) () ARRAYTYP D1 (I 0 ARRAY) Q@ÊCdjð“gdlð“gdlð“gdkð“gdlð“gdlð“gdlð“glð“g(116Q SHOULDNT) (112Q BIT 102Q FLOATP 71Q FIXP 60Q CODE 47Q SMALLPOSP 37Q POINTER 26Q DOUBLEPOINTER 15Q BYTE 3 ARRAYP) () ARRAYORIG D1 (I 0 ARRAY) @ÊNIL (3 ARRAYP) () COPYARRAY D1 (P 5 INDEX P 4 NEWARRAY P 3 SIZE P 2 TYPE P 1 ORIG P 0 NHARRAY I 0 ARRAY) o@ ²@ @H @H @ @ @È#KJhI\I]KdjñžLM@M(*¿MkÔ½kÙ°ïJgð²I½Kdjñ²LM@M ¿MkÔ½kÙ°êL(142Q SETD 137Q ELTD 62Q ARRAY 42Q ARRAYTYP 36Q ARRAYORIG 31Q REHASH 24Q \COPYHARRAYP 14Q HASHARRAY 11Q HARRAYSIZE 3 HARRAYP) (115Q DOUBLEPOINTER 46Q ARRAYP) () ELT D1 (P 1 N0 P 0 BASE I 1 N I 0 A) ¥@@ÉA@ÊÙjIñ¨Id@Èýñ¨¿Al ¿I@ÈØY@ÊCdlð¤dlð˜¿HIÐIÐÉdlðž¿HIÐIÐXdÈHÈõdjð¤dlð”¿HIÂdkð–¿HIÐÈdlð²¿HIââââÐÈlIlåÙ kålðHIàÐdÈýÈÑí@l (242Q \LISPERROR 207Q LRSH 42Q \LISPERROR) (3 ARRAYP) () ELTD D1 (P 1 N0 P 0 BASE I 1 N I 0 A) G@@ÊClð²7@ÉA@ÊÙjIñ¨Id@Èýñ¨¿Al ¿I@ÈØYH@ÈZÐJÐIÐIÐÉ@A((53Q \LISPERROR) (3 ARRAYP) () SETA D1 (P 1 N0 P 0 BASE I 2 V I 1 N I 0 A) å@bÊ jð¦@l ¿@ÉA@ÊÙjIñ¨Id@Èýñ¨¿Al ¿I@ÈØY@ÊCdlð¤dlðš¿HIÐIÐBBdlð™HIÐIÐBÌBdjð¤dlð•¿HIBÇdkð—HIÐBÍBdlð²C¿HIââââÐBjð²HIââââÐÈklIlåÙ nÿÿæå°HIââââÐÈklIlåÙ äÍBlð²HIàBíJKÐLÎ¿Lí@l (342Q \LISPERROR 275Q LLSH 242Q LLSH 61Q \LISPERROR 21Q \LISPERROR) (3 ARRAYP) () SETD D1 (P 1 N0 P 0 BASE I 2 V I 1 N I 0 A) X@@ÊClð²G@Ê jð¦@l ¿@ÉA@ÊÙjIñ¨Id@Èýñ¨¿Al ¿I@ÈØYH@ÈZÐJÐIÐIÐBB@AB*(71Q \LISPERROR 31Q \LISPERROR) (3 ARRAYP) () SUBARRAY D1 (P 10Q \INTERRUPTABLE P 3 M1 P 2 N1 P 1 ORIG P 0 LEN I 4 NEWORIG I 3 OLD I 2 M I 1 N I 0 X) ” @@È@ÊABDjJñ•JHkØØºK¡HˆjKñ•KHkØØ»IJñhð´eJKñhð´^KHñhð´WCµl@É¼dL¿KJÙkØ½dMÍ¿@ÊC¾dNÏC¿@ÈJØIÙ_¿dOÍ¿dIÏ¿djÏ¿djÏ ¿djÏ¿NIL (117Q ARRAYP 3 ARRAYP) () HARRAY D1 (I 0 MINKEYS) @g (6 HASHARRAY) (3 ERROR) () HASHARRAY D1 (P 4 NCELLS P 3 LOGSLOTS P 2 PHYSLOTS I 5 REHASH-THRESHOLD I 4 RECLAIMABLE I 3 EQUIVFN I 2 HASHBITSFN I 1 OVERFLOW I 0 MINKEYS) ŸE3 ŸA3 ´ AEñ´EAëb ¿lE•@kÙEë‡@kÙlÛààHdIñ²¿HµiAJà\dnÿýño@ dÔX°ÝEµ&JâJââØ[`Lk ½dM¿JkÙ¾dNÍ¿dD•k„Jê°àjÏ¿dA¿dKÍ¿dKÍ¿djÍ¿dB¿dC ¿(141Q \ALLOCBLOCK 110Q ERROR) (133Q HARRAYPTYPE#) ( 104Q "HARRAY TOO LARGE") HARRAYP D1 (I 0 X) @ gð´@(3 TYPENAME) (6 HARRAYP) () HARRAYPROP D1 (P 5 NEWVALUE P 4 HA P 3 NEWVALP P 2 PROP P 1 HARRAY P 0 NARGS) ØeHjñ´kaHkñ´laHlñ#I¼K“la½Jdgð˜¿K³|L gð²Iµ LÉK”LM¿K“IM¿Jdgð—¿K³OLÈgð²LÉ K›LÈjð²8LM ¿Jdgð²¿LÊjðhðK™LM‘k€jÏ¿gð²LÉK²LÈjðª¿oJ hLM¿LÉYJ'K²IµLJMh¿JM¿(324Q LISTPUT 261Q ERROR 63Q HARRAYSIZE) (231Q HASHBITSFN 175Q RECLAIMABLE 143Q EQUIVFN 126Q NUMKEYS 67Q OVERFLOW 51Q SIZE 35Q HARRAYP) ( 255Q "Can't update this hash array property") HARRAYSIZE D1 (I 0 HARRAY) @ÈNIL (3 HARRAYP) () CLRHASH D1 (L (0 HARRAY) P 4 \INTERRUPTABLE) A@1HÉYIHÈZÐJÐJÐJÐlÐ»Ih¿Ih¿IlÐYdKð´ð¿HdÈÍ¿HjÍ@NIL (3 HARRAYP) () MAPHASH D1 (L (1 MAPHFN 0 HARRAY)) D@!HÉYdHÈZÐJÐJÐJÐlÐ`IÉ]µLðhð´MIÉlA¿IlÐYdKð²â@NIL (34Q \HASH.NULL.VALUE 3 HARRAYP) () GETHASH D1 (P 12Q VALUE P 11Q ABASE P 10Q EQFN P 7 BITS P 6 LIMIT P 5 REPROBE P 4 FIRSTINDEX P 3 SKEY P 2 SLOT P 1 INDEX P 0 HA I 2 DEFAULT I 1 HARRAY I 0 ITEM) ÑA±HÉ_—@kO°@Ò@Ónÿåààà@Óãâææ_HÈå¹HÉ_IÐIÐIÐIÐZÉ_²@JÉ[ð³uHÉ _²@KlOœ°cJÉ²pHÉ _¿I¼OdãæHÈ_¿l?Oñ’Ol?åkä½HÈ¾IMÐÓNåYLð‘hOIÐIÐIÐIÐZÉ»JÉ_²$JÉ[@ðO²Ö@KlO²ÌO`ðhð´OJÉ³ºBNIL (300Q \HASH.NULL.VALUE 3 HARRAYP) () PUTHASH D1 (I 2 HARRAY I 1 VAL I 0 ITEM) @ABAhðA(10Q \HASHACCESS) NIL () REMHASH D1 (I 1 HARRAY I 0 KEY) @hAi(6 \HASHACCESS) NIL () \HASHRECLAIM D1 (P 6 KEY P 5 NUMDELETED P 4 LASTSLOT P 3 \INTERRUPTABLE P 1 SLOT P 0 HA I 0 HARRAY) S@!HÉYIHÈZÐJÐJÐJÐlÐjIÉ^²Nið³N Ii¿Ih¿MkÔ½LIlÐYð²ÛHdÈMÙÍ@(57Q \EQREFCNT1) (3 HARRAYP) () \HASHACCESS D1 (P 15Q \INTERRUPTABLE P 13Q ABASE P 12Q EQFN P 11Q HASHBITSFN P 10Q BITS P 7 LIMIT P 6 REPROBE P 5 FIRSTINDEX P 4 SKEY P 3 SLOT P 2 INDEX P 1 DELSLOT P 0 HA I 3 REMOVE I 2 HARRAY I 1 VAL I 0 ITEM) WBÁHÉ_—@kO°@Ò@Ónÿåààà@Óãâææ_¿OHÈåºHÉ_JÐJÐJÐJÐ[É²@KÉ\ð’±‚HÉ _²@LlO²°nKÉ¢±‹K¹HÉ _¿J½OdãæHÈ_¿l?Oñ’Ol?åkä¾HÈ_¿JNÐÓOåZMð›IµQo °HOJÐJÐJÐJÐ[É²2KÉ\@ðO²Ñ@LlO²Ç C²+Ki¿Kh¿HdÈmÿÔÍ°KÉ¨I‘I»C²hI³œK¹°˜KAµ`iHÈjð²"HÊjð¤H ¿Bµ` b¸h¹±ÿ KIð©HdÈmÿÔÍ¿HdÈkÔÍ¿K@¿KAµ`A(440Q HASHOVERFLOW 426Q \HASHRECLAIM 244Q ERROR) (521Q \HASH.NULL.VALUE 445Q HARRAYP 435Q SYSHASHARRAY 400Q \HASH.NULL.VALUE 3 HARRAYP) ( 241Q "No vacant slot in hasharray") REHASH D1 (I 1 NEWAR I 0 OLDAR) 7A @AHÉYHÈ\ÐLÐLÐLÐºIÉ[˜IÉKA¿IdJð‘AlÐY°è(47Q PUTHASH 3 CLRHASH) (7 HARRAYP) () \COPYHARRAYP D1 (L (1 TARGET 0 SOURCE)) ,A@ÈÍA@ÈÍA@ÉA@ÉA@ÈÍA@ÈHIÍINIL NIL () STRINGHASHBITS D1 (P 3 C P 2 HASHBITS I 0 STRING) yj@jCIdlð²¿IÉ¼IÈkÙXIÈØ½IÊCjð’h°i°lð² IÁÉ\Ê½IÁÊ jðhð¾HkØXMñ˜JI Y°´N•LHÐÈ‚LHÂ[JdnÿåààÐÓZdlÿåáÐÓÐÓº°Ï(121Q MKSTRING) NIL () STRING-EQUAL-HASHBITS D1 (P 3 C P 2 HASHBITS I 0 STRING) |j@jCIdlð²¿IÉ¼IÈkÙXIÈØ½IÊCjð’h°i°lð² IÁÉ\Ê½IÁÊ jðhð¾HkØXMñ˜JI Y°´N•LHÐÈ‚LHÂ[l äJdnÿåààÐÓZdlÿåáÐÓÐÓº°Ì(121Q MKSTRING) NIL () \CODEARRAY D1 (I 1 INITONPAGE I 0 NBYTES) @j@ñ¥@nÿÿñ–@l ¿ldlÏC¿@lØââlAlHdI¿d@Í¿djÏ¿(50Q \ALLOCBLOCK 17Q \LISPERROR) NIL () \FIXCODENUM D1 (P 0 BASE I 2 NUM I 1 BN I 0 CA) @ÉHABlÿåÇHAkÙbHAÂBãäÇBNIL NIL () \FIXCODEPTR D1 (P 2 \INTERRUPTABLE P 1 LO P 0 BASE I 2 PTR I 1 BN I 0 CA) *@ÉBÓB¿HAIlÿåÇ¿HAkÙIãÇ¿HAlÙBÒÇBNIL NIL () \ALLOCBLOCK D1 (P 3 \INTERRUPTABLE P 1 ABLOCK P 0 ARLEN I 3 ALIGN I 2 INITONPAGE I 1 GCTYPE I 0 NCELLS) l@ñj@ñ”@ ¿lb@nÿýñ˜@o ¿Aµjƒið“kb¿BjBñ¤Bl€ñ”B ¿C²jCñ¦Cdl€ñ•¿C ‡kñ£hb€B¿`²@dl@ñ¬ABCµ‚±¤@lØ!HABCµ.HABCµ%l djñ—¿kÙ°ö¿HABCµ hli¿°ÊYkÏð¿IdÈkÙZÐJÐkÏð¿IAÏÑ¿I ¿`²`@ñ´`@Ù†¿¿IlÐY¿`²`kñ´`kÙ†¿I(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 (P 7 PREFIXLEN P 6 REMAINDERLEN P 5 USABLELEN P 4 1STBLOCK.IN.FREECHAIN P 2 ABLOCK P 1 BKTI I 3 ALIGN I 2 INITONPAGE I 1 GCTYPE I 0 ARLEN) øl@ dlñ’¿l"IHó’±à`IÐIÐÉZµIkÔY°ê1JÊnUð²JdÈkÙ[ÐKÐÊnUð¬loJ±›C¡B™@BCAJ €j_¿JÈOÙ]@ýñ³oJid¿J ¿Ojð³JO ¿JOÐOÐºM@Ù^`’lB€jñŸJ@Ð@ÐN †`“Mb¿Ojð“M@ð¥J@ ¿Ji ¿JlÐ@lÙ ¿iŒJÉZdLð¢±ÿE¿h¢±ÿ4Jh(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 (P 3 PREFIXLEN P 2 NEXTFREEBLOCK P 1 FINALPAGE P 0 FINALWORD I 3 ALIGN I 2 INITONPAGE I 1 GCTYPE I 0 ARLEN) PB¢C²@BCA` [jð«K [d²L ¿`@Ð@kÙÐXkÐºHÒáHÓãØY`l€ÙñŸI`ÙkØ dið²¿`dIñ²¿`@ gÁJÎ¿jð´ý°•j ¿`\ãLlÿåáÑ ¿`lØ°Æ(202Q \NEW2PAGE 163Q \MAKEMDSENTRY 137Q \MAKEFREEARRAYBLOCK 111Q \CHECKFORSTORAGEFULL 41Q \MERGEBACKWARD 32Q \ALLOCBLOCK.NEW 22Q \PREFIXALIGNMENT?) (214Q \NxtArrayPage 206Q \NxtArrayPage 167Q \NxtArrayPage 142Q \ArrayFrLst 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)) `DlÐÓâjB²HBÜZjðªIBJÙZÔ¹HJÔ¸A²Hm€åHAkÙØm€åð®Il€HlåÙZÔ¹HJÔ¸Clð²@lÙn€HnÿåXÙZñ–IJÔ¹HJÔINIL NIL () \MAKEFREEARRAYBLOCK D1 (L (1 LENGTH 0 BLOCK)) 3@nª¨Í@AÍ@dÈkÙHIÐIÐnª¨Í@dÈkÙHIÐIÐAÍ@NIL NIL () \DELETEBLOCK? D1 (P 4 FBL P 3 B P 2 F I 0 BASE) `l@Èñ³W@É´S@É@É`@È dlñ’¿lHIÐIÐ@dJð²LÉð”LhÎˆlo hLÉð”LJÎ¿JKÎKJÎh(110Q \MP.ERROR 33Q INTEGERLENGTH) (25Q \FREEBLOCKBUCKETS) ( 105Q "deleting last block # FREEBLOCKLIST") \LINKBLOCK D1 (P 3 FREEBLOCK P 2 FBL I 0 BASE) e`²_l@Èñ—@i ¿°P`@È dlñ’¿lHIÐIÐJÉ[¨@dÎ¿@d°@KÎ¿@KÉÎ¿KÉ@Î¿K@Î¿J@Î¿@id@(141Q \CHECKARRAYBLOCK 34Q INTEGERLENGTH 20Q \CHECKARRAYBLOCK) (26Q \FREEBLOCKBUCKETS 2 \FREEBLOCKBUCKETS) () \MERGEBACKWARD D1 (P 4 SPLIT P 3 PTRAILER P 2 PBASE P 1 PARLEN P 0 ARLEN I 0 BASE) D`@¡h`²@d`ð³d`ðªmþÐ[Êðjð¤@ @jKÈÙ]ÐMÐZdi J J@ (101Q \ARRAYBLOCKMERGER 74Q \DELETEBLOCK? 70Q \CHECKARRAYBLOCK 47Q \LINKBLOCK) (27Q \ARRAYSPACE2 20Q \ARRAYSPACE 11Q \ARRAYMERGING) () \MERGEFORWARD D1 (P 1 NBINUSE P 0 NBASE I 0 BASE) M0`´6@d²2id³*@dÈZÐJÐX`ð³H`ð³HdÊðjðhðYhð ¡I‘hH @ @H h(111Q \ARRAYBLOCKMERGER 104Q \DELETEBLOCK? 100Q \DELETEBLOCK? 67Q \CHECKARRAYBLOCK 20Q \CHECKARRAYBLOCK) (45Q \ArrayFrLst2 36Q \ArrayFrLst 5 \ARRAYMERGING) () \ARRAYBLOCKMERGER D1 (P 4 SHAVEBACK P 3 MINBLOCKSIZE P 2 SECONDBITE P 1 NARLEN P 0 ARLEN I 1 NBASE I 0 BASE) Q@ÈAÈ2nÿÿHÙZIJñ²3nÿÿ¸IJÙY`’lBl[ýñœIKYÙ¼HLÔ¸JLÔºAJÐJÐI ¿j¹@HIØ (116Q \LINKBLOCK 113Q \MAKEFREEARRAYBLOCK 101Q \LINKBLOCK 76Q \MAKEFREEARRAYBLOCK) (36Q \HUNKING?) () \#BLOCKDATACELLS D1 (P 0 TYPENO I 0 DATAWORD) J@Hjð²@djð²6¿l@Òñ³-@mÿÐÈlÙ`®`HààààÐÊPjð`HààààÐÈâµ@ (107Q \ILLEGAL.ARG) (70Q \DTDSpaceBase 51Q \DTDSpaceBase 45Q \HUNKING?) () \RECLAIMARRAYBLOCK D1 (P 0 B I 0 P) c@mþÐ!HÊnUð–HÊðjðšlo hHÊÑdkð²!¿HdÈkÙYÐIÐº@dJð´°¿@lÐb°ðlð”@ ¿HdÈ h(137Q \MERGEFORWARD 134Q \MERGEBACKWARD 131Q \MAKEFREEARRAYBLOCK 121Q \RECLAIMCODEBLOCK 37Q \MP.ERROR) NIL ( 34Q "Bad array block reclaimed--continue with ^N but save state ASAP") \ADVANCE.ARRAY.SEGMENTS D1 (P 0 NCELLSLEFT I 0 NXTPAGE) n@gÁl``Òá`ÓãØÙkÙàààààààl€`ÓlÿåâÙØXñ³`H ¿`YãIlÿåáÑ‚`ÎgÁgÁ@ZãJlÿåáÑ[Î¿KÎj(73Q \MERGEBACKWARD 70Q \MAKEFREEARRAYBLOCK) (133Q \NxtArrayPage 125Q \ArrayFrLst 120Q \ARRAYSPACE2 113Q \ArrayFrLst 77Q \LeastMDSPage 64Q \ArrayFrLst 46Q \ArrayFrLst 24Q \ArrayFrLst 17Q \ArrayFrLst 14Q \NxtArrayPage 5 \ArrayFrLst2) () \BYTELT D1 (I 1 J I 0 A) :@bÊjðž@ÊCjð®@ÊClð¦@l ¿@ÈAñ¦Al ¿@É@ÈAØÂ(55Q \LISPERROR 40Q \LISPERROR) (3 ARRAYP) () \BYTESETA D1 (I 2 V I 1 J I 0 A) I@bÊjðž@ÊCjð®@ÊClð¦@l ¿@ÈAñ¦Al ¿@Ê jð¦@l ¿@É@ÈAØBÇ(73Q \LISPERROR 55Q \LISPERROR 40Q \LISPERROR) (3 ARRAYP) () \WORDELT D1 (I 1 J I 0 A) 4@bÊjð–@ÊCkð¦@l ¿@ÈAñ¦Al ¿@É@ÈAØÐÈ(45Q \LISPERROR 30Q \LISPERROR) (3 ARRAYP) () \ARRAYTYPENAME D1 (L (0 X)) @ÊClð“ggNIL (16Q ARRAYP 12Q CCODEP) () \SHOW.ARRAY.FREELISTSA0001 D1 (NAME ERRORSET P 14Q X P 13Q SAFENTRY P 5 ARLEN P 4 ABLOCK P 3 FBL P 2 TOTAL P 1 N P 0 TABLE F 15Q SIZESLST F 16Q MACROY) Z `W jSH ˜IH âýñIlØàj X€Hd ¿lj_¿¾ONó³e`OÐOÐÉ[µ OkÔ_°è¼JLÈ]ÔºWH Oµ KLÉ\ð²ç°Ü_•MOñ³OdÈkÔÍ¿OdËMÔÌ¿°×OlÐ_¿O_°Åh ¿o ¿h ¿WHOµCh ¿o ¿oJ ¿o ¿oJlØâââââââ ¿h ¿h hci_šo ¿Oƒo ¿l ¿oOÈ ¿o ¿oOË ¿o ¿h ¿OlÐ_¿O_±ÿe(507Q TERPRI 502Q PRIN1 472Q PRINTNUM 456Q PRIN1 446Q PRINTNUM 432Q TAB 424Q PRIN1 411Q PRIN1 370Q TERPRI 363Q TERPRI 356Q PRINTNUM 333Q PRIN1 323Q PRINTNUM 312Q PRIN1 302Q TERPRI 261Q TERPRI 254Q PRIN1 244Q TERPRI 57Q \CLEARCELLS 54Q \#BLOCKDATACELLS 42Q \ALLOCBLOCK 25Q \#BLOCKDATACELLS 17Q \BLOCKDATAP 7 LENGTH) (100Q \FREEBLOCKBUCKETS 46Q \ABSTORAGETABLE 2 \ABSTORAGETABLE) ( 477Q " cells." 463Q (FIX 10Q) 453Q " items; " 437Q (FIX 10Q) 421Q "others " 406Q "le " 340Q (FIX 4) 330Q " total pages: " 317Q (FIX 10Q) 307Q "Total cells free: " 251Q " 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 £g»IcgI K“J(77Q ERROR! 72Q APPLY 47Q \SHOW.ARRAY.FREELISTSA0001 14Q RECLAIMMIN) (63Q RECLAIMMIN 53Q ERROR 44Q INTERNAL 22Q RECLAIMMIN) ( 41Q (\SHOW.ARRAY.FREELISTSA0001)) \CHECKARRAYBLOCK D1 (P 5 ROVER P 4 FBL P 1 TRAILER P 0 ERROR I 2 ONFREELIST I 1 FREE I 0 BASE) ã`´‚±Û@@ÊnUð¥o°}@ÊðjðhðAhðð¥o°jAœ@ kð¥o°[@dÈkÙZÐJÐYÊnUð¥o°B@ÈIÈð¥o°4@ÊðjðhðAhðð¥o°!B´il@Èñ³`@ÉÉ@ð—@ÉÉ@ð®o¸lH@iH`@È dlñ’¿l[ÐKÐLÉ]µ oX°@ð³Mi ¿MÉ]dLÉð²í¿h³¹h(316Q \CHECKARRAYBLOCK 251Q INTEGERLENGTH 236Q \MP.ERROR 63Q \REFCNT) (243Q \FREEBLOCKBUCKETS 2 ARRAYBLOCKCHECKING) ( 302Q "Free block's bucket empty" 225Q "ARRAYBLOCK links fouled" 164Q "ARRAYBLOCK Trailer INUSE bit set wrong" 141Q "ARRAYBLOCK Header and Trailer length don't match" 123Q "ARRAYBLOCK Trailer password wrong" 72Q "Free ARRAYBLOCK with RefCnt not 1" 53Q "ARRAYBLOCK INUSE bit set wrong" 30Q "ARRAYBLOCK Password wrong") \PARSEARRAYSPACE D1 (I 0 FN) *``ð³@``@``@``(47Q \PARSEARRAYSPACE1 34Q \PARSEARRAYSPACE1 22Q \PARSEARRAYSPACE1) (44Q \ArrayFrLst 41Q \ARRAYSPACE 31Q \ArrayFrLst 26Q \ARRAYSPACE2 17Q \ArrayFrLst2 14Q \ARRAYSPACE 5 \ARRAYSPACE2 2 \ArrayFrLst2) () \PARSEARRAYSPACE1 D1 (P 0 ROVER I 2 END I 1 START I 0 FN) KAHdÊðjðhðhðHÊðjðhðhð´HÉ¿@²HdÈHÊðjðhðHÊÑl@¿BHdÈYÐIÐXð²¾h(40Q \CHECKARRAYBLOCK) NIL () \ALLOCHUNK D1 (P 6 STRADDLERS P 5 ONPAGE P 4 HUNKSIZE P 3 HUNK P 2 DTNUMBER P 1 FAILCNT P 0 TYPENUM.TABLE I 3 ALIGN I 2 INITONPAGE I 1 GCTYPE I 0 NCELLS) CµAdjð²:¿`°Gl@ñ³$CAdjð–¿o°kð”o‰Alð´o³ÏoC ¿°Älð“`ŠAkð“`‚jRH@Âº`JààààÐÈâ¼C¢±`JààààÐÈâCÜjð³nLkØbl@ñ²Ð€¿Nd™` hAlð²!Ml ÚLÛLdlñ£¿l<ˆl2ñ¢l2lñ£KƒKN^¿IkÔYdlñ³¿lð²LkØb¿N¢±ÿ}N` ¿±ÿoJ»BžBl€KÓlÿåâÙ]ýñ²œK(344Q \NCONC2 224Q \NCONC2 123Q SHOULDNT 75Q ERROR) (347Q \HUNKREJECTS 341Q \HUNKREJECTS 227Q \HUNKREJECTS 221Q \HUNKREJECTS 160Q \DTDSpaceBase 136Q \DTDSpaceBase 117Q \PTRHUNK.TYPENUM.TABLE 107Q \CODEHUNK.TYPENUM.TABLE 14Q \UNBOXEDHUNK.TYPENUM.TABLE) ( 71Q "Oddball alignment request" 62Q (2) 47Q (2 4 10Q 20Q 40Q 100Q) 36Q (2 4 10Q 20Q 40Q 100Q)) (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 HARRAY HASHARRAY HARRAYP HARRAYPROP HARRAYSIZE CLRHASH MAPHASH GETHASH PUTHASH REMHASH \HASHRECLAIM \HASHACCESS REHASH \COPYHARRAYP STRINGHASHBITS STRING-EQUAL-HASHBITS) ( DECLARE: DONTCOPY (EXPORT (RECORDS HARRAYP)) (RECORDS HASHSLOT) (MACROS \FIRSTINDEX \HASHSLOT \EQHASHINGBITS \REPROBE) (CONSTANTS (CELLSPERSLOT 2)) (GLOBALVARS \HASH.NULL.VALUE SYSHASHARRAY)) ( INITRECORDS HARRAYP) (SYSRECORDS HARRAYP) (VARS (\HASH.NULL.VALUE (QUOTE \Hash\Null\Value\)))) (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) (CONSTANTS * BLOCKGCTYPECONSTANTS) (CONSTANTS * ARRAYCONSTANTS) (CONSTANTS * ARRAYTYPES) (CONSTANTS \MAX.CELLSPERHUNK) (CONSTANTS (\IN.MAKEINIT)) ( RECORDS SEQUENCEDESCRIPTOR ARRAYP ARRAYBLOCK) (GLOBALVARS \NxtArrayPage \FREEBLOCKBUCKETS \HUNKING?)) (GLOBALVARS \ArrayFrLst \ArrayFrLst2 \RECLAIM.COUNTDOWN)) (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 (* "Basic hunking") ( FNS \ALLOCHUNK) (DECLARE: EVAL@COMPILE DONTCOPY (EXPORT (MACROS HUNKSIZEFROMNUMBER)) (CONSTANTS \HUNK.UNBOXEDSIZES \HUNK.CODESIZES \HUNK.PTRSIZES) (GLOBALVARS \HUNKING? \UNBOXEDHUNK.TYPENUM.TABLE \CODEHUNK.TYPENUM.TABLE \PTRHUNK.TYPENUM.TABLE)) (COMS (* "Keep a list of all the hunks rejected due to poor page-straddling alignment, or to code falling off the end of a doublepage" ) (VARS (\HUNKREJECTS)) (GLOBALVARS \HUNKREJECTS))) (COMS (* "for MAKEINIT") (FNS PREINITARRAYS POSTINITARRAYS FILEARRAYBASE FILEBLOCKTRAILER FILECODEBLOCK FILEPATCHBLOCK) (COMS (* "Hunk Initialization") (FNS \SETUP.HUNK.TYPENUMBERS \COMPUTE.HUNK.TYPEDECLS \TURN.ON.HUNKING \SETUP.TYPENUM.TABLE)) (DECLARE: DONTCOPY (ADDVARS (INITVALUES (\NxtArrayPage) (\HUNKING?)) (INITPTRS (\FREEBLOCKBUCKETS) (\ArrayFrLst) (\ArrayFrLst2) (\UNBOXEDHUNK.TYPENUM.TABLE) (\CODEHUNK.TYPENUM.TABLE ) (\PTRHUNK.TYPENUM.TABLE)) (INEWCOMS (FNS \#BLOCKDATACELLS \PREFIXALIGNMENT? \ALLOCBLOCK \ALLOCBLOCK.NEW \MAKEFREEARRAYBLOCK \MERGEBACKWARD \LINKBLOCK \ALLOCHUNK) (FNS PREINITARRAYS POSTINITARRAYS FILEARRAYBASE FILEBLOCKTRAILER FILECODEBLOCK FILEPATCHBLOCK) (FNS \SETUP.HUNK.TYPENUMBERS \COMPUTE.HUNK.TYPEDECLS \TURN.ON.HUNKING \SETUP.TYPENUM.TABLE)) (MKI.SUBFNS ( \IN.MAKEINIT . T) (\ALLOCBLOCK.OLD . NILL) (\MERGEFORWARD . NILL) (\FIXCODENUM . I.FIXUPNUM) ( \FIXCODEPTR . I.FIXUPPTR) (\CHECKARRAYBLOCK . NILL) (\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) ( DONTCOMPILEFNS \SETUP.HUNK.TYPENUMBERS \COMPUTE.HUNK.TYPEDECLS \TURN.ON.HUNKING \SETUP.TYPENUM.TABLE)) )) (COMS (* "Debugging aids") (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS \ArrayFrLst) (CONSTANTS \ArrayBlockPassword) (ADDVARS (DONTCOMPILEFNS \HUNKFIT? \AB.NEXT \AB.BACK))) (FNS \HUNKFIT? \AB.NEXT \AB.BACK)) (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS ( NLAMA) (NLAML) (LAMA HARRAYPROP))))) (/DECLAREDATATYPE (QUOTE HARRAYP) (QUOTE (WORD WORD POINTER FLAG POINTER WORD WORD POINTER POINTER POINTER)) (QUOTE ((HARRAYP 0 (BITS . 15)) (HARRAYP 1 (BITS . 15)) (HARRAYP 2 POINTER) (HARRAYP 2 ( FLAGBITS . 0)) (HARRAYP 4 POINTER) (HARRAYP 6 (BITS . 15)) (HARRAYP 7 (BITS . 15)) (HARRAYP 8 POINTER) (HARRAYP 10 POINTER) (HARRAYP 12 POINTER))) (QUOTE 14)) (ADDTOVAR SYSTEMRECLST (DATATYPE HARRAYP ((NULLSLOTS WORD) (LASTINDEX WORD) (HARRAYPBASE POINTER) ( RECLAIMABLE FLAG) (OVERFLOWACTION POINTER) (NUMSLOTS WORD) (NUMKEYS WORD) (HASHBITSFN POINTER) ( EQUIVFN POINTER) (HASHUSERDATA POINTER)))) (RPAQQ \HASH.NULL.VALUE \Hash\Null\Value\) (RPAQQ \ARRAYMERGING T) (RPAQ? \ABSTORAGETABLE NIL) (RPAQ? ARRAYBLOCKCHECKING) (MOVD? (QUOTE NILL) (QUOTE \RECLAIMCODEBLOCK)) (RPAQQ \HUNKREJECTS NIL) (PUTPROPS LLARRAYELT COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL