From 43251b18be05a287c3745f8b6be99911b8163693 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 23 Feb 2026 22:29:49 -0800 Subject: [PATCH] HASHOVERFLOW moved to LLARRAYELT --- sources/MACHINEINDEPENDENT | 376 +++++++++++++++++++++----------- sources/MACHINEINDEPENDENT.LCOM | Bin 42862 -> 47054 bytes 2 files changed, 252 insertions(+), 124 deletions(-) diff --git a/sources/MACHINEINDEPENDENT b/sources/MACHINEINDEPENDENT index 67e15d34..31804af4 100644 --- a/sources/MACHINEINDEPENDENT +++ b/sources/MACHINEINDEPENDENT @@ -1,14 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Sep-2025 12:51:06"  -{DSK}kaplan>Local>medley3.5>working-medley>sources>MACHINEINDEPENDENT.;39 119579 +(FILECREATED "22-Feb-2026 13:55:06" {WMEDLEY}MACHINEINDEPENDENT.;40 125302 :EDIT-BY rmk :CHANGES-TO (VARS MACHINEINDEPENDENTCOMS) - :PREVIOUS-DATE "18-Jan-2024 10:40:56" -{DSK}kaplan>Local>medley3.5>working-medley>sources>MACHINEINDEPENDENT.;38) + :PREVIOUS-DATE "29-Sep-2025 12:51:06" {WMEDLEY}MACHINEINDEPENDENT.;39) (PRETTYCOMPRINT MACHINEINDEPENDENTCOMS) @@ -19,9 +17,6 @@ (INITVARS (*COMPILED-EXTENSIONS* (LIST FASL.EXT COMPILE.EXT] (COMS (* ;  "random machine-independent utilities") - (FNS DMPHASH HASHOVERFLOW) - (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS HASHOVERFLOW.ARRAYTEST - HASHOVERFLOW.UPDATEARRAY)) (FNS BKBUFS CHANGENAME CHNGNM CLBUFS DEFINE FNS.PUTDEF EQMEMB EQUALN FNCHECK FNTYP1 LCSKIP MAPRINT MKLIST NAMEFIELD NLIST PRINTBELLS PROMPTCHAR RAISEP READFILE READLINE REMPROPLIST RESETBUFS TAB UNSAVED1 WRITEFILE CLOSE-AND-MAYBE-DELETE @@ -485,104 +480,6 @@ (DEFINEQ -(DMPHASH - [NLAMBDA L (* rmk%: " 6-Apr-84 14:30") - (MAPC L (FUNCTION (LAMBDA (ARRAYNAME) - (DECLARE (SPECVARS ARRAYNAME)) - (ERSETQ (PROG ((A (EVALV ARRAYNAME 'DMPHASH)) - AP) - [PRINT (LIST 'RPAQ ARRAYNAME - (COND - [(LISTP A) - (SETQ AP (CAR A)) - (LIST 'CONS [LIST 'HARRAY (HARRAYSIZE AP) - (KWOTE (HARRAYPROP - AP - 'OVERFLOW] - (KWOTE (CDR A] - (T (LIST 'HASHARRAY (HARRAYSIZE A) - (KWOTE (HARRAYPROP AP 'OVERFLOW] - (MAPHASH (OR AP A) - (FUNCTION (LAMBDA (VAL ITEM) - (PRINT (LIST 'PUTHASH (KWOTE ITEM) - (KWOTE VAL) - ARRAYNAME]) - -(HASHOVERFLOW - [LAMBDA (HARRAY) (* ; "Edited 26-Feb-91 13:16 by jds") - - (* ;; "Should be called from PUTHASH on hash overflow, but for implementations where PUTHASH calls ERRORX directly, may be called from ERRORX2 when the offender is a listp. HARRAY is guaranteed to be either HARRAYP or (LIST HARRAYP)") - - (PROG ((OLDARRAY (HASHOVERFLOW.ARRAYTEST HARRAY)) - NEWARRAY NEWSIZE OLDNUMKEYS OVACTION NEWOVFLW) - [COND - ((LISTP HARRAY) - (SETQ OVACTION (CDR HARRAY)) - - (* ;; "Get OVERFLOW method from original HARRAY since it would erroneously be ERROR if we got the method from the coerced OLDARRAY") - - (SETQ NEWOVFLW 'ERROR)) - (T (SETQ OVACTION (SETQ NEWOVFLW (HARRAYPROP OLDARRAY 'OVERFLOW] - (SETQ OLDNUMKEYS (HARRAYPROP OLDARRAY 'NUMKEYS)) - - (* ;; "Compute the new array size:") - - [SETQ NEWSIZE (SELECTQ OVACTION - (NIL - (* ;; "SIZE*1.5 --- favor to bbn, since pdp-11 doesnt have floatng point, and LRSH on other systems might be faster than IQUOTIENT") - - (* ;; - "[32749 IS THE BIGGEST PRIME < 32765, THE LIMIT ON ARRAY SIZES]") - - [IMAX (+ OLDNUMKEYS 3) - (IMIN 32749 (+ OLDNUMKEYS (LRSH (CL:1+ OLDNUMKEYS) - 1]) - (ERROR (do (ERRORX (LIST 26 HARRAY)))) - (if (FLOATP OVACTION) - then [IMAX (+ OLDNUMKEYS 3) - (IMIN 32760 (FIXR (FTIMES OLDNUMKEYS OVACTION] - elseif (FIXP OVACTION) - then (IMAX (+ OLDNUMKEYS 3) - (IMIN 32749 (+ OLDNUMKEYS OVACTION))) - elseif [AND (FNTYP OVACTION) - (NUMBERP (SETQ OVACTION (APPLY* OVACTION HARRAY] - then (if (FLOATP OVACTION) - then (* ; - "recompute NUMKEYS since OVACTION might have removed keys") - [IMAX (+ (SETQ OLDNUMKEYS (HARRAYPROP OLDARRAY - 'NUMKEYS)) - 3) - (IMIN 32749 (FIXR (FTIMES OLDNUMKEYS - OVACTION] - else OVACTION) - else (* ; "Default: multiply by 1.5") - (SETQ OLDNUMKEYS (HARRAYPROP OLDARRAY 'NUMKEYS)) - (IMAX (+ OLDNUMKEYS 3) - (IMIN 32749 (+ OLDNUMKEYS (LRSH (CL:1+ OLDNUMKEYS) - 1] - [SETQ NEWARRAY (REHASH OLDARRAY (HASHARRAY NEWSIZE NEWOVFLW (HARRAYPROP OLDARRAY - 'HASHBITSFN) - (HARRAYPROP OLDARRAY 'EQUIVFN] - (HASHOVERFLOW.UPDATEARRAY HARRAY NEWARRAY OLDARRAY) - (RETURN HARRAY]) -) -(DECLARE%: EVAL@COMPILE DONTCOPY -(DECLARE%: EVAL@COMPILE - -[PROGN (PUTPROPS HASHOVERFLOW.ARRAYTEST MACRO [(HARRAY) - (CAR (OR (LISTP HARRAY) - (ERRORX (LIST 27 HARRAY]) - (PUTPROPS HASHOVERFLOW.ARRAYTEST DMACRO ((HARRAY) - (\DTEST HARRAY 'HARRAYP)))] - -[PROGN (PUTPROPS HASHOVERFLOW.UPDATEARRAY MACRO ((HARRAY NEWARRAY OLDARRAY) - (FRPLACA HARRAY NEWARRAY))) - (PUTPROPS HASHOVERFLOW.UPDATEARRAY DMACRO ((HARRAY NEWARRAY OLDARRAY) - (\COPYHARRAYP NEWARRAY OLDARRAY)))] -) -) -(DEFINEQ - (BKBUFS [LAMBDA (BUFS ID) (* DD%: " 6-Oct-81 15:34") (PROG (L S) @@ -2494,24 +2391,255 @@ This has little hope of working any more.") (LOCALVARS . T) ) +(PRETTYCOMPRINT MACHINEINDEPENDENTCOMS) + +(RPAQQ MACHINEINDEPENDENTCOMS + ([COMS (* ; " %"File loader%"") + (FNS LOAD? FILESLOAD DOFILESLOAD FINDFILE-WITH-EXTENSIONS READ-FILECREATED) + (INITVARS (*COMPILED-EXTENSIONS* (LIST FASL.EXT COMPILE.EXT] + (COMS (* ; + "random machine-independent utilities") + (FNS BKBUFS CHANGENAME CHNGNM CLBUFS DEFINE FNS.PUTDEF EQMEMB EQUALN FNCHECK FNTYP1 + LCSKIP MAPRINT MKLIST NAMEFIELD NLIST PRINTBELLS PROMPTCHAR RAISEP READFILE + READLINE REMPROPLIST RESETBUFS TAB UNSAVED1 WRITEFILE CLOSE-AND-MAYBE-DELETE + UNSAFE.TO.MODIFY) + (VARS UNSAFE.TO.MODIFY.FNS) + (INITVARS (OK.TO.MODIFY.FNS)) + [COMS (* ; + "FILEDATE, for finding out the creation date of source files, from the compiled files.") + (FNS FILEDATE COMPILEFILETYPE) + + (* ;; "FASL isn't loaded when MACHINEINDEPENDENT is, so we have to fake the FASL checker for now. It's defined in FASLOAD.") + + (P (MOVD? 'NILL 'FASL-FILEDATE] + (P (MOVD? 'CL:FMAKUNBOUND 'UNDOABLY-FMAKUNBOUND)) + (* ; + "used in FNS.PUTDEF before CMLUNDO loaded") + ) + (COMS (* ; + "Functions for retrieving and remembering FILEMAPs and file reader environments") + (FNS FILEMAP \PARSE-FILE-HEADER GET-ENVIRONMENT-AND-FILEMAP + LOOKUP-ENVIRONMENT-AND-FILEMAP GET-FILEMAP-FROM-FILECREATED \FILEMAP-HASHOVERFLOW + FLUSHFILEMAPS LISPSOURCEFILEP LISPFILETYPE GETFILEMAP PUTFILEMAP UPDATEFILEMAP) + [INITVARS (*FILEMAP-LIMIT* 20) + (*FILEMAP-VERSIONS* 2) + (*FILEMAP-HASH* (HASHARRAY *FILEMAP-LIMIT* (FUNCTION \FILEMAP-HASHOVERFLOW) + (FUNCTION STRING-EQUAL-HASHBITS) + (FUNCTION STRING.EQUAL] + (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS FILEMAPHASH) + (GLOBALVARS *FILEMAP-LIMIT* *FILEMAP-VERSIONS* *FILEMAP-HASH*))) + (COMS (* * LVLPRINT) + (FNS LVLPRINT LVLPRIN1 LVLPRIN2 LVLPRIN LVLPRIN0)) + (COMS (* ; "used by PRINTOUT") + (FNS FLUSHRIGHT PRINTPARA PRINTPARA1)) + (COMS (* ; "SUBLIS and friends") + (FNS SUBLIS SUBPAIR DSUBLIS)) + [COMS (* * CONSTANTS) + (FNS CONSTANTOK) + (P (MOVD? 'EVQ 'CONSTANT) + (MOVD? 'EVQ 'DEFERREDCONSTANT) + (MOVD? 'EVQ 'LOADTIMECONSTANT] + (COMS (* * SCRATCHLIST) + (PROP MACRO SCRATCHLIST ADDTOSCRATCHLIST) + (PROP INFO SCRATCHLIST)) + (GLOBALVARS SYSFILES LOADOPTIONS LISPXCOMS CLISPTRANFLG COMMENTFLG HISTSTR4 LISPXREADFN + REREADFLG HISTSTR0 CTRLUFLG NOLINKMESS PROMPTCHARFORMS PROMPT#FLG FILERDTBL SPELLINGS2 + USERWORDS BELLS CLISPARRAY) + (FNS NLAMBDA.ARGS) + [DECLARE%: + DONTEVAL@LOAD DOCOPY (* ; + "initialization of variables used in many places") + (ADDVARS (CLISPARRAY) + (CLISPFLG) + (CTRLUFLG) + (EDITCALLS) + (EDITHISTORY) + (EDITUNDOSAVES) + (EDITUNDOSTATS) + (GLOBALVARS) + (LCASEFLG) + (LISPXBUFS) + (LISPXCOMS) + (LISPXFNS) + (LISPXHIST) + (LISPXHISTORY) + (LISPXPRINTFLG) + (NOCLEARSTKLST) + (NOFIXFNSLST) + (NOFIXVARSLST) + (P.A.STATS) + (PROMPTCHARFORMS) + (READBUF) + (READBUFSOURCE) + (REREADFLG) + (RESETSTATE) + (SPELLSTATS1)) + (INITVARS (CHCONLST '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL + NIL NIL NIL)) + (CHCONLST1 '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL + NIL NIL)) + (CHCONLST2 '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL + NIL NIL)) + (CLEARSTKLST T) + (CLISPTRANFLG 'CLISP% ) + (HISTSTR0 "") + (HISTSTR2 "repeat") + (HISTSTR3 "from event:") + (HISTSTR4 "ignore") + (LISPXREADFN 'READ) + (USEMAPFLG T)) + (P [MAPC '((APPLY BLKAPPLY) + (SETTOPVAL SETATOMVAL) + (GETTOPVAL GETATOMVAL) + (APPLY* BLKAPPLY*) + (RPLACA FRPLACA) + (RPLACD FRPLACD) + (STKNTH FSTKNTH) + (STKNAME FSTKNAME) + (CHARACTER FCHARACTER) + (STKARG FSTKARG) + (CHCON DCHCON) + (UNPACK DUNPACK) + (ADDPROP /ADDPROP) + (ATTACH /ATTACH) + (DREMOVE /DREMOVE) + (DSUBST /DSUBST) + (NCONC /NCONC) + (NCONC1 /NCONC1) + (PUT /PUT) + (PUTPROP /PUTPROP) + (PUTD /PUTD) + (REMPROP /REMPROP) + (RPLACA /RPLACA) + (RPLACD /RPLACD) + (SET /SET) + (SETATOMVAL /SETATOMVAL) + (SETTOPVAL /SETTOPVAL) + (SETPROPLIST /SETPROPLIST) + (SET SAVESET) + (PRINT LISPXPRINT) + (PRIN1 LISPXPRIN1) + (PRIN2 LISPXPRIN2) + (SPACES LISPXSPACES) + (TAB LISPXTAB) + (TERPRI LISPXTERPRI) + (PRINT SHOWPRINT) + (PRIN2 SHOWPRIN2) + (PUTHASH /PUTHASH) + '* + (FNCLOSER /FNCLOSER) + (FNCLOSERA /FNCLOSERA) + (FNCLOSERD /FNCLOSERD) + (EVQ DELFILE) + (NILL SMASHFILECOMS) + (PUTASSOC /PUTASSOC) + (LISTPUT1 PUTL) + (NILL I.S.OPR) + (NILL RESETUNDO) + (NILL LISPXWATCH) + 'ADDSTATS + (NILL FREEVARS) + 'USEDFREE + (COPYBYTES COPYCHARS)) + (FUNCTION (LAMBDA (X) + (MOVD? (CAR X) + (CADR X] + [MAPC '((TIME PRIN1 LISPXPRIN1) + (TIME SPACES LISPXSPACES) + (TIME PRINT LISPXPRINT) + (DEFC PRINT LISPXPRINT) + (DEFC PUTD /PUTD) + (DEFC PUTPROP /PUTPROP) + (DOLINK FNCLOSERD /FNCLOSERD) + (DOLINK FNCLOSERA /FNCLOSERA) + (DEFLIST PUTPROP /PUTPROP) + (SAVEDEF1 PUTPROP /PUTPROP) + (MKSWAPBLOCK PUTD /PUTD)) + (FUNCTION (LAMBDA (X) + (AND (CCODEP (CAR X)) + (APPLY 'CHANGENAME X] + (MAPC '[[EVALQT (LAMBDA NIL (PROG (TEM) + (RESETRESTORE NIL 'RESET) + LP + (PROMPTCHAR '_ T) + (LISPX (LISPXREAD T T)) + (GO LP] + [LISPX (LAMBDA (LISPXX) + (PRINT [AND LISPXX (PROG (LISPXLINE LISPXHIST TEM) + (RETURN (COND ((AND (NLISTP LISPXX) + (SETQ LISPXLINE + (READLINE T NIL + T))) + (APPLY LISPXX (CAR + LISPXLINE + ))) + (T (EVAL LISPXX] + T T] + [LISPXREAD (LAMBDA (FILE RDTBL) + (COND [READBUF (PROG1 (CAR READBUF) + (SETQ READBUF (CDR READBUF)))] + (T (READ FILE RDTBL] + [LISPXREADP (LAMBDA (FLG) + (COND ((AND READBUF (SETQ READBUF (LISPXREADBUF READBUF))) + T) + (T (READP T FLG] + [LISPXUNREAD (LAMBDA (LST) + (SETQ READBUF (APPEND LST (CONS HISTSTR0 READBUF] + [LISPXREADBUF (LAMBDA (RDBUF) + (PROG NIL LP (COND ((NLISTP RDBUF) + (RETURN NIL)) + ((EQ (CAR RDBUF) + HISTSTR0) + (SETQ RDBUF (CDR RDBUF)) + (GO LP)) + (T (RETURN RDBUF] + [LISPX/ (LAMBDA (X) + X] + [LOWERCASE (LAMBDA (FLG) + (PROG1 LCASEFLG + (RAISE (NULL FLG)) + (RPAQ LCASEFLG FLG))] + [FILEPOS (LAMBDA (STR FILE) + (PROG NIL LP (COND ((EQ (PEEKC FILE) + (NTHCHAR STR 1)) + (RETURN T))) + (READC FILE) + (GO LP] + (FILEPKGCOM (NLAMBDA NIL NIL] + (FUNCTION (LAMBDA (L) + (OR (GETD (CAR L)) + (PUTD (CAR L) + (CADR L] + (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA RESETBUFS + FILESLOAD) + (NLAML FILEMAP) + (LAMA READFILE NLIST))) + (LOCALVARS . T))) +(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS + +(ADDTOVAR NLAMA RESETBUFS FILESLOAD) + +(ADDTOVAR NLAML FILEMAP) + +(ADDTOVAR LAMA READFILE NLIST) +) (DECLARE%: DONTCOPY - (FILEMAP (NIL (12643 26068 (LOAD? 12653 . 14504) (FILESLOAD 14506 . 14795) (DOFILESLOAD 14797 . 22423) - (FINDFILE-WITH-EXTENSIONS 22425 . 25624) (READ-FILECREATED 25626 . 26066)) (26185 31506 (DMPHASH -26195 . 27789) (HASHOVERFLOW 27791 . 31504)) (32262 64370 (BKBUFS 32272 . 33391) (CHANGENAME 33393 . -33654) (CHNGNM 33656 . 35504) (CLBUFS 35506 . 36779) (DEFINE 36781 . 37505) (FNS.PUTDEF 37507 . 40922) - (EQMEMB 40924 . 41106) (EQUALN 41108 . 41937) (FNCHECK 41939 . 43946) (FNTYP1 43948 . 44045) (LCSKIP -44047 . 44891) (MAPRINT 44893 . 45839) (MKLIST 45841 . 45991) (NAMEFIELD 45993 . 47518) (NLIST 47520 - . 47855) (PRINTBELLS 47857 . 47983) (PROMPTCHAR 47985 . 49875) (RAISEP 49877 . 50138) (READFILE 50140 - . 52484) (READLINE 52486 . 57926) (REMPROPLIST 57928 . 58816) (RESETBUFS 58818 . 59268) (TAB 59270 . -59866) (UNSAVED1 59868 . 60973) (WRITEFILE 60975 . 62717) (CLOSE-AND-MAYBE-DELETE 62719 . 63063) ( -UNSAFE.TO.MODIFY 63065 . 64368)) (66589 71430 (FILEDATE 66599 . 69531) (COMPILEFILETYPE 69533 . 71428) -) (71796 98999 (FILEMAP 71806 . 72276) (\PARSE-FILE-HEADER 72278 . 76093) (GET-ENVIRONMENT-AND-FILEMAP - 76095 . 78322) (LOOKUP-ENVIRONMENT-AND-FILEMAP 78324 . 80515) (GET-FILEMAP-FROM-FILECREATED 80517 . -81341) (\FILEMAP-HASHOVERFLOW 81343 . 86007) (FLUSHFILEMAPS 86009 . 86632) (LISPSOURCEFILEP 86634 . -88026) (LISPFILETYPE 88028 . 91277) (GETFILEMAP 91279 . 91698) (PUTFILEMAP 91700 . 93891) ( -UPDATEFILEMAP 93893 . 98997)) (99665 103251 (LVLPRINT 99675 . 99848) (LVLPRIN1 99850 . 100032) ( -LVLPRIN2 100034 . 100266) (LVLPRIN 100268 . 101282) (LVLPRIN0 101284 . 103249)) (103285 108202 ( -FLUSHRIGHT 103295 . 104110) (PRINTPARA 104112 . 105210) (PRINTPARA1 105212 . 108200)) (108238 110523 ( -SUBLIS 108248 . 108856) (SUBPAIR 108858 . 110086) (DSUBLIS 110088 . 110521)) (110546 111146 ( -CONSTANTOK 110556 . 111144)) (112899 113604 (NLAMBDA.ARGS 112909 . 113602))))) + (FILEMAP (NIL (12360 25785 (LOAD? 12370 . 14221) (FILESLOAD 14223 . 14512) (DOFILESLOAD 14514 . 22140) + (FINDFILE-WITH-EXTENSIONS 22142 . 25341) (READ-FILECREATED 25343 . 25783)) (25902 58010 (BKBUFS 25912 + . 27031) (CHANGENAME 27033 . 27294) (CHNGNM 27296 . 29144) (CLBUFS 29146 . 30419) (DEFINE 30421 . +31145) (FNS.PUTDEF 31147 . 34562) (EQMEMB 34564 . 34746) (EQUALN 34748 . 35577) (FNCHECK 35579 . 37586 +) (FNTYP1 37588 . 37685) (LCSKIP 37687 . 38531) (MAPRINT 38533 . 39479) (MKLIST 39481 . 39631) ( +NAMEFIELD 39633 . 41158) (NLIST 41160 . 41495) (PRINTBELLS 41497 . 41623) (PROMPTCHAR 41625 . 43515) ( +RAISEP 43517 . 43778) (READFILE 43780 . 46124) (READLINE 46126 . 51566) (REMPROPLIST 51568 . 52456) ( +RESETBUFS 52458 . 52908) (TAB 52910 . 53506) (UNSAVED1 53508 . 54613) (WRITEFILE 54615 . 56357) ( +CLOSE-AND-MAYBE-DELETE 56359 . 56703) (UNSAFE.TO.MODIFY 56705 . 58008)) (60229 65070 (FILEDATE 60239 + . 63171) (COMPILEFILETYPE 63173 . 65068)) (65436 92639 (FILEMAP 65446 . 65916) (\PARSE-FILE-HEADER +65918 . 69733) (GET-ENVIRONMENT-AND-FILEMAP 69735 . 71962) (LOOKUP-ENVIRONMENT-AND-FILEMAP 71964 . +74155) (GET-FILEMAP-FROM-FILECREATED 74157 . 74981) (\FILEMAP-HASHOVERFLOW 74983 . 79647) ( +FLUSHFILEMAPS 79649 . 80272) (LISPSOURCEFILEP 80274 . 81666) (LISPFILETYPE 81668 . 84917) (GETFILEMAP +84919 . 85338) (PUTFILEMAP 85340 . 87531) (UPDATEFILEMAP 87533 . 92637)) (93305 96891 (LVLPRINT 93315 + . 93488) (LVLPRIN1 93490 . 93672) (LVLPRIN2 93674 . 93906) (LVLPRIN 93908 . 94922) (LVLPRIN0 94924 . +96889)) (96925 101842 (FLUSHRIGHT 96935 . 97750) (PRINTPARA 97752 . 98850) (PRINTPARA1 98852 . 101840) +) (101878 104163 (SUBLIS 101888 . 102496) (SUBPAIR 102498 . 103726) (DSUBLIS 103728 . 104161)) (104186 + 104786 (CONSTANTOK 104196 . 104784)) (106539 107244 (NLAMBDA.ARGS 106549 . 107242))))) STOP diff --git a/sources/MACHINEINDEPENDENT.LCOM b/sources/MACHINEINDEPENDENT.LCOM index 3a4d6ef134724d933e83b51a323f77d49ea35c44..7abe1c4a3eb2bd242afb3ba6bf8cf487ef827a39 100644 GIT binary patch delta 502 zcmaENj_KTcrU?=HM!IgPNxDV`MrI0z##W}LRt9ED3K~ku`MCv|IjJcM`FRRT3f1Ah zt}Z^Vk+n7xH^|hR7-%YRDH$0e=`^!4w6robS5inSN`-4pttcoeR<%;d%P+~u%u83u z1RCWQ>f@t;tW{4>Pe~yqu>@!pHZzS(l{C3D+&q0;or7E*LtI^et}(*uW)wGaniwb; z8krg!7)?IN=s7uq3SVw#f8SsQ4J`$0 zAV0Apir39ASOMf>7odB&HlL_iq_?@cRELosR@I9LgKQ4=@pp95RM7DAarE^8x+ywB{ECMT%Il05(WSp^XF*V#T>Pc4MczS{nP@JLi1o zn{&U@cP1R`sz zinpTX-0#^C|19j!p9G#CmQus+EL$w{a%^;Fi9ALEcrKmb(o*tS=kfw8Z$4r#oNDBB ztDuw%3deCg`H~==lYJ2lB0Ll;stz2CD_Rut7$~-_Od5)=MuEA=u#9Jx!H?o>oOb3P z-xUK}JqH_ep-|@NW(GGcyh5SpNKt@^NGY)FSkb89v=Rc0Rn3YD0^bS}U{x!G8QzWh zS}fh3ShhEH$OBo)?hPZ@`0=F2!^~&;>=T#$l!K2nnS1zvE-w3Z?^czDI_+*8=3I5| z1-sa5NRsd*7fo&&TVDOJpgHG+t_A2iz&@nEvklVCI0`*=6neA;t$VIG_rArhn|E+% zUs8 z#~Jc+sx?_&8g55o3e0iU&THmnG=|h_h9QSeFv=)C0n&zP>xu@$NqAZ-$pffS6%rj# zB0)k;5mta=wJl`~vD)>WC;CKf9H7W75Zzy6!7~C3;nQSQH5bb&WwktncX-#D2)@xF zLOlG$(L5C9OUGC*n^_AvY+oPyCOMc&sISjEN>8W%w8y*k#~i9p5ZiR9^vQ$-cV}|& zIA!Nv89U#I0{c!c!?2kX1f}mcf5yAT7Y>zh^?t`2yN}}l5^a^cIg}jqlDE0cUp!i^VSt4r0&2 z{mo$09K1z1oWu3G{ne&oQ)I-{v`&HkWC9H)BBnUFnl-J-mMK6?ieRfm zTp&tvhss1rY^j&pKASWPSoUlPibs0<$xy~wqlOb>5A3rrigI4gI2&!$H_5?QX zO73ikq7f4^sAJXQc-{aJjYUXaDptz46p|@0s(MMCEQ5eHYsbUf0W>7hr=$m<;oCR) zpnPb~wl%HIUjOb)xMf7zqix_QL~?3YQ*0IAV?Ot%PX^?Ou4HYq+?5umuB@o#O80iv z$|)6<-i*4xEDxUbLAGGLZs?HJE>-ho$l+VjP{Hk~8?4XW`EJ0i*Yg;~SI@fJb-l-j j@6IwrhTv6jzgeAn-j~Ne5b_ozxSO|btj3QSMa}m=g;yV8