(FILECREATED "18-OCT-83 17:52:50" ("compiled on " {INDIGO}SOURCES>BLOCKLOOKUP.;3) "12-OCT-83 13:52:28" recompiled exprs: \AddBlockEntry \BlockFromList \BlockFull \ClearBlock \DeleteNthEntry \FindEntryIndex \FreeEntryIndex \GetNthEntry \GrowBlock \ListFromBlock \MakeBlock \NextBlockSize \PrintBlock \PutNthEntry in WORK dated "12-OCT-83 19:52:21") (FILECREATED "18-OCT-83 17:52:33" {INDIGO}SOURCES>BLOCKLOOKUP.;3 7891 changes to: (FNS \AddBlockEntry \FreeEntryIndex \MakeBlock) previous date: "25-MAY-83 17:18:24" {IVY}LISP>BLOCKLOOKUP.;4) \AddBlockEntry D1 (I 2 freeIndex I 1 ENTRY I 0 BLOCK) 1B¦@ b¿@µbB —@B b€@BlØÐhÎ@BÐA@(33Q \GrowBlock 25Q \BlockFull 16Q \MakeBlock 5 \FreeEntryIndex) NIL NIL \BlockFromList D1 (P 0 item I 2 block I 1 extractFn I 0 lst) /Bµ@ b¿@° °ùdBA•HkA€H µëB(46Q \AddBlockEntry 22Q \ClearBlock 11Q \MakeBlock 6 LENGTH) NIL NIL \BlockFull D1 (I 1 freeIndex I 0 BLOCK) A¦@ b¿@AlØÐÉið(5 \FreeEntryIndex) NIL NIL \ClearBlock D1 (L (0 block)) j@dHÐÉ HÐh¿HlØ¸°íNIL NIL NIL \DeleteNthEntry D1 (I 1 N I 0 BLOCK) "@ lÙAHðª@AÐ@HÐÉ¿@HÐh@(3 \FreeEntryIndex) NIL NIL \FindEntryIndex D1 (L (1 BLOCK 0 KEY)) A´jAHÐÉY¡h@Ið‘HHlØ¸°ìNIL NIL NIL \FreeEntryIndex D1 (L (0 block)) @²j@HÐÉ¡HHlØ¸°ójNIL NIL NIL \GetNthEntry D1 (L (1 WORDNUMBER 0 BLOCK)) @AÐÉNIL NIL NIL \GrowBlock D1 (I 1 freeIndex I 0 BLOCK F 3 \BlockIncrement) /Aµ@ bSØ !Ajº¹JIñ³HJÐ@JÐÉ¿JlØZ°ìH(15Q \MakeBlock 6 \FreeEntryIndex) NIL NIL \ListFromBlock D1 (I 1 freeIndex I 0 block) 8A¦@ b¿@dŸµAlÙj2IHñ‘J@IÐÉ¼KµLh[ºIlØY°èL&»°ö(5 \FreeEntryIndex) NIL NIL \MakeBlock D1 (P 1 BLOCK P 0 size I 0 numPointers) @ Hi YdhÎIHkÙàÐiÎI(13Q \ALLOCBLOCK 3 \NextBlockSize) NIL NIL \NextBlockSize D1 (L (0 length) F 0 \InitBlockSize F 1 \BlockIncrement) @”Pd@ñ‘PQ@PÙQÛkØÚØNIL NIL NIL \PrintBlock D1 (P 1 I I 1 freeIndex I 0 BLOCK) 1Aµ@ blÙjIdHñ‘h ¿k ¿@IÐÉ ¿IlØY°ã(47Q PRINT 36Q SPACES 31Q PRIN1 6 \FreeEntryIndex) NIL NIL \PutNthEntry D1 (L (2 VAL 1 NTHWORD 0 BLOCK)) @AÐBBNIL NIL NIL (PRETTYCOMPRINT BLOCKLOOKUPCOMS) (RPAQQ BLOCKLOOKUPCOMS ((VARS \BlockIncrement \InitBlockSize) (MACROS \GetNthEntry \PutNthEntry \WordFromPtrIndex) (FNS \AddBlockEntry \BlockFromList \BlockFull \ClearBlock \DeleteNthEntry \FindEntryIndex \FreeEntryIndex \GetNthEntry \GrowBlock \ListFromBlock \MakeBlock \NextBlockSize \PrintBlock \PutNthEntry))) (RPAQQ \BlockIncrement 8) (RPAQQ \InitBlockSize 8) (PUTPROPS \GetNthEntry MACRO ((BLOCK WORDNUMBER) (* WORDNUMBER is used for position rather than the entry number) (\GETBASEPTR BLOCK WORDNUMBER))) (PUTPROPS \PutNthEntry MACRO ((BLOCK NTHWORD VAL) (* Store VAL in position NTHWORD) (\RPLPTR BLOCK NTHWORD VAL))) (PUTPROPS \WordFromPtrIndex MACRO ((ptrIndex) (LLSH ptrIndex 1))) (PUTPROPS BLOCKLOOKUP COPYRIGHT ("Xerox Corporation" 1983)) NIL