--- /dev/null
+
+<COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
+
+<SETG DONT-HACK T>
+
+<SETG PEEP-CHANNEL <>>
+
+<NEWTYPE OLD-AND-USELESS VECTOR>
+
+<NEWTYPE LOCAL-NAME FIX>
+
+<NEWTYPE CONSTANT FIX>
+
+<NEWTYPE CONSTANT-LABEL FIX>
+
+<NEWTYPE REF VECTOR>
+
+<NEWTYPE INST VECTOR>
+
+<NEWTYPE GFRM ATOM>
+
+<NEWTYPE SGFRM ATOM>
+
+#WORD *26557627165*
+<GFCN \1aREF-PRINT ("VALUE" ANY REF) R4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aPRIN1>
+ <NTHUV R4 1 = STACK>
+ <DEAD R4>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aREF-PRINT>
+#WORD *12013031124*
+ <GFCN
\1aPPOLE ("VALUE" LIST LIST "TUPLE" <PRIMTYPE VECTOR>) CODE-L4>
+ <MAKTUP T5:TUPLE (PREPREV6 %<>) TEMP3:LBIND TEMP17:VECTOR TEMP19 TEMP22 ITM23 TEMP48 TEMP53 TEMP54 = T5>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'PREVIOUS <OR FALSE REF INST OLD-AND-USELESS> 'FIX %<>>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'REF>
+ <GVAL 'REF-PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <FRAME '\1aGENERATE-CIRCULAR-REFERENCES>
+ <PUSH T5>
+ <CALL '\1aGENERATE-CIRCULAR-REFERENCES 1>
+ <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP17>
+ <LOOP>
+MAP12
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP15>
+ <GETS 'BIND = TEMP19 (TYPE LBIND)>
+ <SET TEMP22 TEMP17>
+ <BBIND 'NEW-T <PRIMTYPE VECTOR> 'FIX TEMP22>
+ <DEAD TEMP22>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 1 = ITM23>
+ <DEAD TEMP22>
+ <TYPE? ITM23 <TYPE-CODE OLD-AND-USELESS> + PHRASE158>
+ <TYPE? ITM23 <TYPE-CODE REF> - PHRASE33>
+ <FRAME '\1aDELETE-ADJACENT-REFS>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aDELETE-ADJACENT-REFS 1>
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 2 = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD TEMP22>
+ <FRAME '\1aBRANCH-CHAIN>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aBRANCH-CHAIN 1>
+PHRASE38
+ <NTHR 'LOOPTAGS 1 = TEMP48 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG47)>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> + TAG47>
+ <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP48 <TYPE-CODE UNBOUND> - TAG46>
+ <DEAD TEMP48>
+TAG47
+ <SET TEMP22 %<> (TYPE FALSE)>
+ <JUMP + TAG50>
+TAG46
+ <NTHUV ITM23 1 = TEMP48>
+ <GVAL 'LOOPTAGS = TEMP22>
+ <TYPE TEMP48 = TEMP53>
+ <EMPTY? TEMP22 + TAG49>
+ <LOOP (TEMP48 VALUE) (TEMP53 VALUE) (TEMP22 LENGTH VALUE TYPE)>
+TAG51
+ <NTH1 TEMP22 = TEMP54>
+ <TYPE? TEMP54 TEMP53 - TAG52>
+ <VEQUAL? TEMP54 TEMP48 + TAG50>
+ <DEAD TEMP54>
+TAG52
+ <REST1 TEMP22 = TEMP22>
+ <EMPTY? TEMP22 - TAG51>
+TAG49
+ <SET TEMP22 %<> (TYPE FALSE)>
+TAG50
+ <SETG 'CIRC-LOOP? TEMP22>
+ <DEAD TEMP22>
+ <TYPE? PREPREV6 <TYPE-CODE FALSE> + PHRASE56>
+ <FRAME '\1aPOST-ACCESS>
+ <PUSH ITM23>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aPOST-ACCESS 2>
+PHRASE56
+ <NTHUV ITM23 3 = TEMP22>
+ <EMPTY? TEMP22 - PHRASE61>
+ <DEAD TEMP22>
+ <NTHUV ITM23 1 = TEMP22>
+ <GVAL 'LOCATIONS = TEMP53>
+ <TYPE TEMP22 = TEMP48>
+ <EMPTY? TEMP53 + TAG63>
+ <LOOP (TEMP22 VALUE) (TEMP48 VALUE) (TEMP53 LENGTH VALUE TYPE)>
+TAG64
+ <NTH1 TEMP53 = TEMP54>
+ <TYPE? TEMP54 TEMP48 - TAG65>
+ <VEQUAL? TEMP54 TEMP22 + PHRASE61>
+ <DEAD TEMP54>
+TAG65
+ <REST1 TEMP53 = TEMP53>
+ <EMPTY? TEMP53 - TAG64>
+TAG63
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP53 1 = STACK>
+ <DEAD TEMP53>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP53>
+ <CHTYPE TEMP53 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
+ <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP48 1 TEMP53>
+ <DEAD TEMP48 TEMP53>
+ <JUMP + PHRASE158>
+PHRASE61
+ <GVAL 'DONT-HACK = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE158>
+ <DEAD TEMP48>
+ <NTHUV ITM23 2 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE158>
+ <DEAD TEMP48>
+ <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP48 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE REF> - PHRASE158>
+ <DEAD TEMP48>
+ <FRAME '\1aLENGTH>
+ <NTHUV ITM23 3 = STACK>
+ <DEAD ITM23>
+ <CALL '\1aLENGTH 1 = TEMP48>
+ <VEQUAL? TEMP48 1 - PHRASE158 (TYPE FIX)>
+ <DEAD TEMP48>
+ <FRAME '\1aSINGLE-PATH-OPTIMIZE>
+ <PUSH T5>
+ <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP48>
+ <CALL '\1aSINGLE-PATH-OPTIMIZE 2>
+ <JUMP + PHRASE158>
+PHRASE33
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <PUSH ITM23>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE81>
+ <DEAD TEMP48>
+ <FRAME '\1aSKIP-MODIFY>
+ <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP48>
+ <NTHR 'PREVIOUS 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP48>
+ <PUSH PREPREV6>
+ <CALL '\1aSKIP-MODIFY 3>
+ <JUMP + PHRASE158>
+PHRASE81
+ <FRAME '\1aCONDITIONAL-BRANCH?>
+ <PUSH ITM23>
+ <CALL '\1aCONDITIONAL-BRANCH? 1 = TEMP48>
+ <VEQUAL? TEMP48 0 + PHRASE88>
+ <DEAD TEMP48>
+ <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
+ <RESTUV TEMP48 1 = TEMP48 (TYPE VECTOR)>
+ <CHTYPE TEMP48 <TYPE-CODE VECTOR> = TEMP48>
+ <EMPUV? TEMP48 + PHRASE158 (TYPE VECTOR)>
+ <DEAD TEMP48>
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP48 2 = STACK>
+ <DEAD TEMP48>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP48>
+ <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE158>
+ <DEAD TEMP48>
+ <LENUV ITM23 = TEMP48 (TYPE FIX)>
+ <NTHUV ITM23 TEMP48 = TEMP48>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP53 3 = TEMP53>
+ <EQUAL? TEMP48 TEMP53 - PHRASE158>
+ <DEAD TEMP48 TEMP53>
+ <FRAME '\1aGETPROP>
+ <NTHUV ITM23 1 = STACK>
+ <DEAD ITM23>
+ <PUSH 'OPPOSITE>
+ <CALL '\1aGETPROP 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE158>
+ <FRAME '\1aNTH>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP53 2 = STACK>
+ <DEAD TEMP53>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = ITM23>
+ <FRAME '\1aPUT>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP53 1 = STACK>
+ <DEAD TEMP53>
+ <PUSH 1>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aPUT 3>
+ <FRAME '\1aPUT>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP53 1 = STACK>
+ <DEAD TEMP53>
+ <PUSH 3>
+ <PUSH ITM23>
+ <CALL '\1aPUT 3>
+ <FRAME '\1aPUT>
+ <PUSH ITM23>
+ <PUSH 3>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP53 1 = STACK>
+ <DEAD TEMP53>
+ <SET TEMP48 1 (TYPE FIX)>
+ <SFRAME 'NTH>
+ <PUSH ITM23>
+ <DEAD ITM23>
+ <PUSH 3>
+ <SCALL '\1aNTH 2 = TEMP53 + TAG111 TEMP48>
+ <TYPE TEMP53 = TEMP22>
+ <AND TEMP22 7 = TEMP22>
+ <VEQUAL? TEMP22 1 + TAG115>
+ <DEAD TEMP22>
+ <LOOP (TEMP53 TYPE VALUE LENGTH) (TEMP48 VALUE)>
+TAG120
+ <INTGO>
+ <EMPTY? TEMP53 + TAG119>
+ <NTH1 TEMP53 = STACK>
+ <REST1 TEMP53 = TEMP53>
+ <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
+ <JUMP + TAG120>
+TAG119
+ <LIST TEMP48 = STACK (TYPE LIST)>
+ <DEAD TEMP48>
+ <JUMP + TAG116>
+TAG111
+ <SET TEMP53 0>
+TAG115
+ <LOOP>
+TAG118
+ <VEQUAL? TEMP48 0 + TAG117>
+ <POP = TEMP22>
+ <CONS TEMP22 TEMP53 = TEMP53 (TYPE LIST)>
+ <DEAD TEMP22>
+ <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
+ <JUMP + TAG118>
+TAG117
+ <PUSH TEMP53>
+ <DEAD TEMP53>
+TAG116
+ <CALL '\1aPUT 3>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <FRAME '\1aELIMINATE>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 2 = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aELIMINATE 1 = TEMP22>
+ <PUTUV TEMP53 2 TEMP22>
+ <DEAD TEMP53 TEMP22>
+ <JUMP + PHRASE158>
+PHRASE88
+ <GVAL 'DONT-HACK = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE FALSE> - PHRASE126>
+ <DEAD TEMP53>
+ <GVAL 'CIRC-LOOP? = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE FALSE> - PHRASE126>
+ <DEAD TEMP53>
+ <FRAME '\1aMOVE?>
+ <PUSH ITM23>
+ <CALL '\1aMOVE? 1 = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE FALSE> + PHRASE126>
+ <DEAD TEMP53>
+ <FRAME '\1aMOVE-CHECK>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <PUSH ITM23>
+ <CALL '\1aMOVE-CHECK 2>
+ <FRAME '\1aMOVE-NEEDED?>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <PUSH ITM23>
+ <DEAD ITM23>
+ <CALL '\1aMOVE-NEEDED? 2>
+ <JUMP + PHRASE158>
+PHRASE126
+ <NTHUV ITM23 1 = TEMP53>
+ <EQUAL? TEMP53 'PUSH - PHRASE135>
+ <DEAD TEMP53>
+ <NTHUV ITM23 2 = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE ATOM> - PHRASE135>
+ <DEAD TEMP53>
+ <FRAME '\1aFINDZERO>
+ <CALL '\1aFINDZERO 0 = TEMP22>
+ <VEQUAL? TEMP22 0 + PHRASE135>
+ <FRAME '\1aPUSH-OPTIMIZE>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <NTHUV ITM23 2 = STACK (TYPE ATOM)>
+ <DEAD ITM23>
+ <CALL '\1aPUSH-OPTIMIZE 3>
+ <JUMP + PHRASE158>
+PHRASE135
+ <NTHUV ITM23 1 = TEMP53>
+ <EQUAL? TEMP53 'ADDI + BOOL143>
+ <DEAD TEMP53>
+ <NTHUV ITM23 1 = TEMP53>
+ <EQUAL? TEMP53 'SUBI - PHRASE158>
+ <DEAD TEMP53>
+BOOL143
+ <NTHUV ITM23 3 = TEMP53>
+ <EQUAL? TEMP53 1 - PHRASE158>
+ <DEAD TEMP53>
+ <LENUV ITM23 = TEMP53 (TYPE FIX)>
+ <VEQUAL? TEMP53 3 - PHRASE158 (TYPE FIX)>
+ <DEAD TEMP53>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <RESTUV TEMP53 1 = TEMP53 (TYPE VECTOR)>
+ <CHTYPE TEMP53 <TYPE-CODE VECTOR> = TEMP53>
+ <EMPUV? TEMP53 + PHRASE158 (TYPE VECTOR)>
+ <DEAD TEMP53>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP53 2 = TEMP48>
+ <DEAD TEMP53>
+ <TYPE? TEMP48 <TYPE-CODE INST> - PHRASE158>
+ <NTHUV TEMP48 1 = TEMP53>
+ <EQUAL? TEMP53 'JRST - PHRASE149>
+ <DEAD TEMP53>
+ <FRAME '\1aNEW-INST>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <NTHUV ITM23 1 = TEMP53>
+ <EQUAL? TEMP53 'ADDI - PHRASE154>
+ <DEAD TEMP53>
+ <SET TEMP53 'AOJA (TYPE ATOM)>
+ <JUMP + PHRASE155>
+PHRASE154
+ <SET TEMP53 'SOJA (TYPE ATOM)>
+PHRASE155
+ <PUSH TEMP53>
+ <DEAD TEMP53>
+ <PUSH ITM23>
+ <PUSH TEMP48>
+ <DEAD TEMP48>
+ <PUSH 2>
+ <CALL '\1aNEW-INST 5>
+ <CHTYPE ITM23 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
+ <DEAD ITM23>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 1 TEMP53>
+ <DEAD TEMP22 TEMP53>
+ <JUMP + PHRASE158>
+PHRASE149
+ <NTHUV TEMP48 1 = TEMP22>
+ <SET TEMP54 [JUMPL JUMPGE JUMPLE JUMPG JUMPE JUMPN] (TYPE VECTOR)>
+ <TYPE? TEMP22 <TYPE-CODE ATOM> - PHRASE158>
+ <LOOP (TEMP22 VALUE) (TEMP54 LENGTH VALUE)>
+TAG162
+ <NTHUV TEMP54 1 = TEMP53>
+ <VEQUAL? TEMP53 TEMP22 + TAG161>
+ <DEAD TEMP53>
+ <RESTUV TEMP54 1 = TEMP54 (TYPE VECTOR)>
+ <EMPUV? TEMP54 - TAG162>
+ <JUMP + PHRASE158>
+TAG161
+ <NTHUV TEMP48 2 = TEMP22>
+ <NTHUV ITM23 2 = TEMP53>
+ <EQUAL? TEMP22 TEMP53 - PHRASE158>
+ <DEAD TEMP22 TEMP53>
+ <FRAME '\1aNEW-INST>
+ <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <NTHUV ITM23 1 = TEMP53>
+ <EQUAL? TEMP53 'ADDI - PHRASE168>
+ <DEAD TEMP53>
+ <LENUV TEMP54 = TEMP53 (TYPE FIX)>
+ <DEAD TEMP54>
+ <NTHUV [AOJN AOJE AOJG AOJLE AOJGE AOJL] TEMP53 = TEMP53 (TYPE ATOM)>
+ <JUMP + PHRASE169>
+PHRASE168
+ <LENUV TEMP54 = TEMP22 (TYPE FIX)>
+ <DEAD TEMP54>
+ <NTHUV [SOJN SOJE SOJG SOJLE SOJGE SOJL] TEMP22 = TEMP53 (TYPE ATOM)>
+ <DEAD TEMP22>
+PHRASE169
+ <PUSH TEMP53>
+ <DEAD TEMP53>
+ <PUSH ITM23>
+ <PUSH TEMP48>
+ <DEAD TEMP48>
+ <PUSH 3>
+ <CALL '\1aNEW-INST 5>
+ <CHTYPE ITM23 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
+ <DEAD ITM23>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP22 1 TEMP53>
+ <DEAD TEMP22 TEMP53>
+PHRASE158
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE OLD-AND-USELESS> + PHRASE173>
+ <DEAD TEMP22>
+ <NTHR 'PREVIOUS 2 = PREPREV6 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR PREPREV6 1 = PREPREV6 (RECORD-TYPE LBIND)>
+ <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 1 = TEMP22>
+ <NTHR 'PREVIOUS 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP53 1 TEMP22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP53 TEMP22>
+PHRASE173
+ <UNBIND TEMP19>
+ <DEAD TEMP19>
+ <ADJ -9>
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP12>
+MAPAP15
+ <FRAME '\1aUNLABEL-THIS-TUPLE>
+ <PUSH CODE-L4>
+ <PUSH T5>
+ <DEAD T5>
+ <CALL '\1aUNLABEL-THIS-TUPLE 2>
+ <FRAME '\1aPRINTTYPE>
+ <PUSH 'REF>
+ <GVAL 'PRINT = STACK>
+ <CALL '\1aPRINTTYPE 2>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN CODE-L4>
+ <DEAD CODE-L4>
+ <END \1aPPOLE>
+
+#WORD *34757315760*
+<GFCN
\1aNEW-INST ("VALUE" <INST ATOM> <PRIMTYPE VECTOR> ATOM INST INST FIX) NEW-T4 NEW-OP5 CINST6 NXTINST7 BASE8>
+ <TEMP TEMP13 TEMP14 NEW9:VECTOR TEMP15>
+ <INTGO>
+ <LENUV NXTINST7 = TEMP13 (TYPE FIX)>
+ <LESS? BASE8 TEMP13 - PHRASE12 (TYPE FIX)>
+ <DEAD TEMP13>
+ <LENUV CINST6 = TEMP13 (TYPE FIX)>
+ <LENUV NXTINST7 = TEMP14 (TYPE FIX)>
+ <SUB TEMP14 BASE8 = TEMP14 (TYPE FIX)>
+ <ADD TEMP13 TEMP14 = TEMP13 (TYPE FIX)>
+ <DEAD TEMP14>
+ <UUBLOCK <TYPE-CODE VECTOR> TEMP13 = NEW9 (TYPE VECTOR)>
+ <DEAD TEMP13>
+ <LENUV CINST6 = TEMP13 (TYPE FIX)>
+ <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
+ <MOVE-WORDS CINST6 NEW9 TEMP13 (TYPE VECTOR) (DIRECTION %<>)>
+ <DEAD TEMP13>
+ <SUB BASE8 1 = TEMP13 (TYPE FIX)>
+ <RESTUV NXTINST7 TEMP13 = TEMP14>
+ <DEAD TEMP13>
+ <LENUV NXTINST7 = TEMP13 (TYPE FIX)>
+ <SUB BASE8 1 = TEMP15 (TYPE FIX)>
+ <DEAD BASE8>
+ <SUB TEMP13 TEMP15 = TEMP13 (TYPE FIX)>
+ <DEAD TEMP15>
+ <LENUV CINST6 = TEMP15 (TYPE FIX)>
+ <DEAD CINST6>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <RESTUV NEW9 TEMP15 = TEMP15 (TYPE VECTOR)>
+ <MOVE-WORDS TEMP14 TEMP15 TEMP13 (TYPE VECTOR) (DIRECTION %<>)>
+ <DEAD TEMP14 TEMP15 TEMP13>
+ <CHTYPE NEW9 <TYPE-CODE INST> = CINST6>
+ <DEAD NEW9>
+ <PUTUV NEW-T4 2 CINST6>
+ <DEAD NEW-T4>
+ <JUMP + PHRASE16>
+PHRASE12
+ <NTHUV NXTINST7 BASE8 = TEMP15>
+ <DEAD BASE8>
+ <PUTUV CINST6 3 TEMP15>
+ <DEAD TEMP15>
+ <PUTUV NEW-T4 2 CINST6>
+ <DEAD NEW-T4>
+PHRASE16
+ <LENUV CINST6 = TEMP13 (TYPE FIX)>
+ <NTHUV CINST6 TEMP13 = TEMP14>
+ <DEAD TEMP13>
+ <TYPE? TEMP14 <TYPE-CODE REF> - MAPAP24>
+ <LENUV TEMP14 = TEMP13 (TYPE FIX)>
+ <LESS? TEMP13 3 + MAPAP24 (TYPE FIX)>
+ <DEAD TEMP13>
+ <NTHUV TEMP14 3 = TEMP14>
+ <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
+ <LOOP>
+MAP21
+ <INTGO>
+ <EMPL? TEMP14 + MAPAP24>
+ <SET TEMP13 TEMP14>
+ <NTHL TEMP13 1 = TEMP15>
+ <EQUAL? TEMP15 NXTINST7 - PHRASE32>
+ <DEAD TEMP15>
+ <PUTL TEMP13 1 CINST6>
+ <DEAD TEMP13>
+PHRASE32
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <JUMP + MAP21>
+MAPAP24
+ <PUTUV CINST6 1 NEW-OP5>
+ <DEAD NEW-OP5>
+ <RETURN CINST6>
+ <DEAD CINST6>
+ <END \1aNEW-INST>
+#WORD *31430135575*
+<GFCN
\1aGENERATE-CIRCULAR-REFERENCES ("VALUE" <OR FALSE <INST <OR GFRM SBFRM SGFRM>> <VECTOR ANY>> <PRIMTYPE VECTOR>) TUP4>
+ <TEMP TAGS5 TEMP13 TEMP17 ITEM18 TEMP20 CODE35 TEMP50 TEMP51>
+ <INTGO>
+ <SET TAGS5 () (TYPE LIST)>
+ <SET TEMP13 () (TYPE LIST)>
+ <GVAL 'LABELS = TEMP17>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP17 + MAPAP10>
+ <NTHL TEMP17 1 = ITEM18>
+ <NTHUV ITEM18 1 = TEMP20 (TYPE ATOM)>
+ <CONS TEMP20 () = TEMP20 (TYPE LIST)>
+ <EMPL? TAGS5 - TAG21>
+ <SET TAGS5 TEMP20 (TYPE LIST)>
+ <JUMP + TAG22>
+TAG21
+ <PUTREST TEMP13 TEMP20>
+ <DEAD TEMP13>
+TAG22
+ <SET TEMP13 TEMP20 (TYPE LIST)>
+ <DEAD TEMP20>
+ <NTHUV ITEM18 1 = STACK (TYPE ATOM)>
+ <DEAD ITEM18>
+ <PUSH 'T>
+ <PUSH ()>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP20>
+ <CHTYPE TEMP20 <TYPE-CODE REF> = TEMP20>
+ <CONS TEMP20 () = TEMP20 (TYPE LIST)>
+ <EMPL? TAGS5 - TAG24>
+ <SET TAGS5 TEMP20 (TYPE LIST)>
+ <JUMP + TAG25>
+TAG24
+ <PUTREST TEMP13 TEMP20>
+ <DEAD TEMP13>
+TAG25
+ <SET TEMP13 TEMP20 (TYPE LIST)>
+ <DEAD TEMP20>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <CHTYPE TUP4 <TYPE-CODE VECTOR> = TEMP17>
+ <DEAD TUP4>
+ <LOOP>
+MAP27
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP30>
+ <SET CODE35 TEMP17>
+ <NTHUV CODE35 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE INST> - PHRASE41>
+ <LENUV TEMP13 = ITEM18 (TYPE FIX)>
+ <NTHUV TEMP13 ITEM18 = ITEM18>
+ <TYPE? ITEM18 <TYPE-CODE REF> - BOOL44>
+ <NTHUV ITEM18 1 = ITEM18>
+ <SET TEMP20 TAGS5>
+ <TYPE ITEM18 = TEMP50>
+ <EMPL? TEMP20 + TAG46>
+ <LOOP (ITEM18 VALUE) (TEMP50 VALUE) (TEMP20 VALUE)>
+TAG48
+ <NTHL TEMP20 1 = TEMP51>
+ <TYPE? TEMP51 TEMP50 - TAG49>
+ <VEQUAL? TEMP51 ITEM18 + TAG47>
+ <DEAD TEMP51>
+TAG49
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <EMPL? TEMP20 - TAG48>
+TAG46
+ <SET TEMP20 %<> (TYPE FALSE)>
+TAG47
+ <VEQUAL? TEMP20 0 - BOOL43>
+BOOL44
+ <NTHUV TEMP13 1 = TEMP50>
+ <EQUAL? TEMP50 'DISPATCH - BOOL52>
+ <DEAD TEMP50>
+ <NTHUV TEMP13 2 = TEMP50>
+ <SET ITEM18 TAGS5>
+ <TYPE TEMP50 = TEMP51>
+ <EMPL? ITEM18 + TAG53>
+ <LOOP (TEMP50 VALUE) (TEMP51 VALUE) (ITEM18 VALUE)>
+TAG55
+ <NTHL ITEM18 1 = TEMP20>
+ <TYPE? TEMP20 TEMP51 - TAG56>
+ <VEQUAL? TEMP20 TEMP50 + TAG54>
+ <DEAD TEMP20>
+TAG56
+ <RESTL ITEM18 1 = ITEM18 (TYPE LIST)>
+ <EMPL? ITEM18 - TAG55>
+TAG53
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + TAG58>
+TAG54
+ <SET TEMP20 ITEM18>
+ <DEAD ITEM18>
+TAG58
+ <VEQUAL? TEMP20 0 - BOOL43>
+BOOL52
+ <NTHUV TEMP13 1 = ITEM18>
+ <TYPE? ITEM18 <TYPE-CODE GFRM> + TAG60>
+ <TYPE? ITEM18 <TYPE-CODE SGFRM> + TAG60>
+ <TYPE? ITEM18 <TYPE-CODE SBFRM> - PHRASE41>
+ <DEAD ITEM18>
+TAG60
+ <NTHUV TEMP13 1 = ITEM18>
+ <CHTYPE ITEM18 <TYPE-CODE ATOM> = ITEM18>
+ <SET TEMP51 TAGS5>
+ <EMPL? TEMP51 + TAG61>
+ <LOOP (ITEM18 VALUE) (TEMP51 VALUE)>
+TAG63
+ <NTHL TEMP51 1 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE ATOM> - TAG64>
+ <VEQUAL? TEMP50 ITEM18 + TAG62>
+ <DEAD TEMP50>
+TAG64
+ <RESTL TEMP51 1 = TEMP51 (TYPE LIST)>
+ <EMPL? TEMP51 - TAG63>
+TAG61
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + TAG65>
+TAG62
+ <SET TEMP20 TEMP51>
+ <DEAD TEMP51>
+TAG65
+ <VEQUAL? TEMP20 0 + PHRASE41>
+BOOL43
+ <RESTL TEMP20 1 = TEMP51 (TYPE LIST)>
+ <DEAD TEMP20>
+ <NTHL TEMP51 1 = CODE35 (TYPE REF)>
+ <DEAD TEMP51>
+ <PUSH TEMP13>
+ <SET ITEM18 1 (TYPE FIX)>
+ <NTHUV CODE35 3 = TEMP51>
+ <TYPE TEMP51 = TEMP20>
+ <AND TEMP20 7 = TEMP20>
+ <VEQUAL? TEMP20 1 + TAG67>
+ <DEAD TEMP20>
+ <LOOP (TEMP51 TYPE VALUE LENGTH) (ITEM18 VALUE)>
+TAG72
+ <INTGO>
+ <EMPTY? TEMP51 + TAG71>
+ <NTH1 TEMP51 = STACK>
+ <REST1 TEMP51 = TEMP51>
+ <ADD ITEM18 1 = ITEM18 (TYPE FIX)>
+ <JUMP + TAG72>
+TAG71
+ <LIST ITEM18 = TEMP50 (TYPE LIST)>
+ <DEAD ITEM18>
+ <JUMP + TAG68>
+TAG67
+ <LOOP>
+TAG70
+ <VEQUAL? ITEM18 0 + TAG69>
+ <POP = TEMP20>
+ <CONS TEMP20 TEMP51 = TEMP51 (TYPE LIST)>
+ <DEAD TEMP20>
+ <SUB ITEM18 1 = ITEM18 (TYPE FIX)>
+ <JUMP + TAG70>
+TAG69
+ <SET TEMP50 TEMP51>
+ <DEAD TEMP51>
+TAG68
+ <PUTUV CODE35 3 TEMP50>
+ <DEAD TEMP50>
+ <LENUV TEMP13 = TEMP51 (TYPE FIX)>
+ <PUTUV TEMP13 TEMP51 CODE35>
+ <DEAD TEMP51>
+ <NTHUV TEMP13 1 = TEMP51>
+ <TYPE? TEMP51 <TYPE-CODE GFRM> + TAG75>
+ <TYPE? TEMP51 <TYPE-CODE SGFRM> + TAG75>
+ <TYPE? TEMP51 <TYPE-CODE SBFRM> + TAG75>
+ <DEAD TEMP51>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <JUMP + PHRASE84>
+TAG75
+ <NTHUV CODE35 1 = TEMP51>
+ <DEAD CODE35>
+ <NTHUV TEMP13 1 = TEMP20>
+ <CHTYPE TEMP51 <TYPE TEMP20> = TEMP51>
+ <DEAD TEMP20>
+ <PUTUV TEMP13 1 TEMP51>
+ <DEAD TEMP51>
+ <JUMP + PHRASE84>
+PHRASE41
+ <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE77>
+ <SET TEMP51 TAGS5>
+ <EMPL? TEMP51 + TAG79>
+ <LOOP (TEMP13 VALUE) (TEMP51 VALUE)>
+TAG81
+ <NTHL TEMP51 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG82>
+ <VEQUAL? TEMP20 TEMP13 + TAG80>
+ <DEAD TEMP20>
+TAG82
+ <RESTL TEMP51 1 = TEMP51 (TYPE LIST)>
+ <EMPL? TEMP51 - TAG81>
+TAG79
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + TAG83>
+TAG80
+ <SET TEMP20 TEMP51>
+ <DEAD TEMP51>
+TAG83
+ <VEQUAL? TEMP20 0 + PHRASE77>
+ <RESTL TEMP20 1 = TEMP51 (TYPE LIST)>
+ <DEAD TEMP20>
+ <NTHL TEMP51 1 = TEMP51>
+ <PUTUV CODE35 1 TEMP51>
+ <DEAD TEMP51>
+ <SET TEMP13 CODE35>
+ <DEAD CODE35>
+ <JUMP + PHRASE84>
+PHRASE77
+ <TYPE? TEMP13 <TYPE-CODE ATOM> + TAG85>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <JUMP + PHRASE84>
+TAG85
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP51>
+ <CHTYPE TEMP51 <TYPE-CODE OLD-AND-USELESS> = TEMP51>
+ <PUTUV CODE35 1 TEMP51>
+ <DEAD TEMP51>
+ <SET TEMP13 CODE35>
+ <DEAD CODE35>
+PHRASE84
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP27>
+MAPAP30
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aGENERATE-CIRCULAR-REFERENCES>
+#WORD *6146220264*
+<GFCN
\1aDELETE-ADJACENT-REFS ("VALUE" ATOM <PRIMTYPE VECTOR>) TUP4>
+ <TEMP ITM5 NXT6 TEMP25 INS26 TEMP29:FIX TEMP28 TEMP35>
+ <INTGO>
+ <NTHUV TUP4 1 = ITM5 (TYPE REF)>
+ <NTHUV TUP4 2 = NXT6>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <TYPE? NXT6 <TYPE-CODE REF> - PHRASE13>
+ <NTHUV NXT6 3 = TEMP25>
+ <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
+ <LOOP>
+MAP15
+ <INTGO>
+ <EMPL? TEMP25 + MAPAP18>
+ <NTHL TEMP25 1 = INS26>
+ <PUSH INS26>
+ <SET TEMP29 1 (TYPE FIX)>
+ <NTHUV ITM5 3 = TEMP28>
+ <TYPE TEMP28 = TEMP35>
+ <AND TEMP35 7 = TEMP35>
+ <VEQUAL? TEMP35 1 + TAG31>
+ <DEAD TEMP35>
+ <LOOP (TEMP28 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG37
+ <INTGO>
+ <EMPTY? TEMP28 + TAG36>
+ <NTH1 TEMP28 = STACK>
+ <REST1 TEMP28 = TEMP28>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG37>
+TAG36
+ <LIST TEMP29 = TEMP28 (TYPE LIST)>
+ <DEAD TEMP29>
+ <JUMP + TAG32>
+TAG31
+ <LOOP>
+TAG34
+ <VEQUAL? TEMP29 0 + TAG33>
+ <POP = TEMP35>
+ <CONS TEMP35 TEMP28 = TEMP28 (TYPE LIST)>
+ <DEAD TEMP35>
+ <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG34>
+TAG33
+TAG32
+ <PUTUV ITM5 3 TEMP28>
+ <DEAD TEMP28>
+ <NTHUV INS26 1 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE GFRM> + TAG40>
+ <TYPE? TEMP28 <TYPE-CODE SGFRM> + TAG40>
+ <TYPE? TEMP28 <TYPE-CODE SBFRM> - PHRASE39>
+ <DEAD TEMP28>
+TAG40
+ <NTHUV ITM5 1 = TEMP28>
+ <NTHUV INS26 1 = TEMP35>
+ <CHTYPE TEMP28 <TYPE TEMP35> = TEMP28>
+ <DEAD TEMP35>
+ <PUTUV INS26 1 TEMP28>
+ <DEAD TEMP28>
+PHRASE39
+ <LENUV INS26 = TEMP28 (TYPE FIX)>
+ <PUTUV INS26 TEMP28 ITM5>
+ <DEAD INS26 TEMP28>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <JUMP + MAP15>
+MAPAP18
+ <PUTUV TUP4 2 ITM5>
+ <NTHUV NXT6 1 = STACK>
+ <DEAD NXT6>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = NXT6>
+ <CHTYPE NXT6 <TYPE-CODE OLD-AND-USELESS> = NXT6>
+ <PUTUV TUP4 1 NXT6>
+ <DEAD NXT6>
+ <RESTUV TUP4 1 = TUP4 (TYPE VECTOR)>
+ <CHTYPE TUP4 <TYPE-CODE VECTOR> = TUP4>
+ <EMPUV? TUP4 - PHRASE43 (TYPE VECTOR)>
+ <RETURN 'T>
+PHRASE43
+ <NTHUV TUP4 2 = NXT6>
+ <JUMP + AGAIN11>
+PHRASE13
+ <RETURN 'T>
+ <END \1aDELETE-ADJACENT-REFS>
+#WORD *16054047543*
+<GFCN
\1aPUSH-OPTIMIZE ("VALUE" <OR ATOM FALSE> <PRIMTYPE VECTOR> ANY ATOM) NEW-T4 ZERO5 AC6>
+ <TEMP (COUNT7:FIX 0) (AC28 'T*) TEMP17 TUP22 TEMP28>
+ <INTGO>
+ <VEQUAL? AC6 AC28 - PHRASE10>
+ <SET AC28 'B1* (TYPE ATOM)>
+PHRASE10
+ <CHTYPE NEW-T4 <TYPE-CODE VECTOR> = TEMP17>
+ <LOOP>
+MAP12
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP15>
+ <SET TUP22 TEMP17>
+ <NTHUV TUP22 1 = TUP22>
+ <NTHUV TUP22 1 = TEMP28>
+ <EQUAL? TEMP28 'PUSH - MAPAP15>
+ <DEAD TEMP28>
+ <NTHUV TUP22 2 = TEMP28>
+ <EQUAL? TEMP28 AC6 - MAPAP15>
+ <DEAD TEMP28>
+ <NTHUV TUP22 3 = TUP22>
+ <TYPE? TUP22 <TYPE-CODE REF> - MAPAP15>
+ <NTHUV TUP22 1 = TEMP28>
+ <DEAD TUP22>
+ <EQUAL? TEMP28 ZERO5 - MAPAP15>
+ <DEAD TEMP28>
+ <ADD COUNT7 1 = COUNT7 (TYPE FIX)>
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP12>
+MAPAP15
+ <LESS? COUNT7 5 - TAG32 (TYPE FIX)>
+ <RETURN %<>>
+TAG32
+ <PUSH 'XMOVEI>
+ <PUSH AC28>
+ <PUSH 2>
+ <CONS AC6 () = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
+ <PUTUV NEW-T4 1 TEMP17>
+ <DEAD TEMP17>
+ <PUSH 'ADJSP>
+ <PUSH AC6>
+ <PUSH COUNT7>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
+ <PUTUV NEW-T4 2 TEMP17>
+ <DEAD TEMP17>
+ <PUSH 'SETZM>
+ <PUSH -1>
+ <CONS AC28 () = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
+ <PUTUV NEW-T4 3 TEMP17>
+ <DEAD TEMP17>
+ <PUSH 'HRLI>
+ <PUSH AC28>
+ <PUSH -1>
+ <CONS AC28 () = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
+ <PUTUV NEW-T4 4 TEMP17>
+ <DEAD TEMP17>
+ <PUSH 'BLT>
+ <PUSH AC28>
+ <DEAD AC28>
+ <CONS AC6 () = STACK>
+ <DEAD AC6>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
+ <PUTUV NEW-T4 5 TEMP17>
+ <DEAD TEMP17>
+ <SUB COUNT7 4 = COUNT7 (TYPE FIX)>
+ <RESTUV NEW-T4 5 = AC28 (TYPE VECTOR)>
+ <DEAD NEW-T4>
+ <CHTYPE AC28 <TYPE-CODE VECTOR> = AC28>
+ <LOOP>
+AGAIN41
+ <INTGO>
+ <SUB COUNT7 1 = COUNT7 (TYPE FIX)>
+ <VEQUAL? COUNT7 0 - PHRASE43 (TYPE FIX)>
+ <RETURN 'T>
+PHRASE43
+ <FRAME '\1aELIMINATE>
+ <NTHUV AC28 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP17>
+ <PUTUV AC28 1 TEMP17>
+ <DEAD TEMP17>
+ <RESTUV AC28 1 = AC28 (TYPE VECTOR)>
+ <JUMP + AGAIN41>
+ <END \1aPUSH-OPTIMIZE>
+#WORD *4716644774*
+<GFCN
\1aSKIP-MODIFY ("VALUE" <OR FALSE <<PRIMTYPE VECTOR> <OR INST OLD-AND-USELESS>>> <PRIMTYPE VECTOR> <OR OLD-AND-USELESS INST REF FALSE> ANY) NEW-T4 PREVIOUS5 PREPREV6>
+ <TEMP ITM7:INST TEMP14 NEXTLINE8 FOO10>
+ <INTGO>
+ <NTHUV NEW-T4 1 = ITM7 (TYPE INST)>
+ <RESTUV NEW-T4 1 = TEMP14 (TYPE VECTOR)>
+ <CHTYPE TEMP14 <TYPE-CODE VECTOR> = TEMP14>
+ <EMPUV? TEMP14 - TAG13 (TYPE VECTOR)>
+ <DEAD TEMP14>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + BOOL11>
+TAG13
+ <NTHUV NEW-T4 2 = TEMP14>
+BOOL11
+ <SET NEXTLINE8 TEMP14>
+ <DEAD TEMP14>
+ <SET TEMP14 NEXTLINE8>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE33>
+ <SET TEMP14 PREVIOUS5>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE33>
+ <RESTUV NEW-T4 2 = TEMP14 (TYPE VECTOR)>
+ <CHTYPE TEMP14 <TYPE-CODE VECTOR> = TEMP14>
+ <EMPUV? TEMP14 - TAG18 (TYPE VECTOR)>
+ <DEAD TEMP14>
+ <RETURN %<>>
+TAG18
+ <LENUV ITM7 = TEMP14 (TYPE FIX)>
+ <NTHUV ITM7 TEMP14 = FOO10>
+ <DEAD TEMP14>
+ <NTHUV NEW-T4 3 = TEMP14>
+ <EQUAL? FOO10 TEMP14 + TAG20>
+ <DEAD TEMP14>
+ <EQUAL? FOO10 NEXTLINE8 + TAG20>
+ <DEAD FOO10>
+ <RETURN %<>>
+TAG20
+ <FRAME '\1aCONDITIONAL-SKIP?>
+ <PUSH PREVIOUS5>
+ <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP14>
+ <VEQUAL? TEMP14 0 + PHRASE22>
+ <DEAD TEMP14>
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <PUSH NEXTLINE8>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP14>
+ <TYPE? PREPREV6 <TYPE-CODE FALSE> + BOOL26>
+ <FRAME '\1aCONDITIONAL-SKIP?>
+ <PUSH PREPREV6>
+ <DEAD PREPREV6>
+ <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP14>
+ <VEQUAL? TEMP14 0 - PHRASE22>
+ <DEAD TEMP14>
+BOOL26
+ <FRAME '\1aGETPROP>
+ <NTHUV PREVIOUS5 1 = STACK>
+ <PUSH 'OPPOSITE>
+ <CALL '\1aGETPROP 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
+ <PUTUV PREVIOUS5 1 TEMP14>
+ <DEAD PREVIOUS5 TEMP14>
+ <FRAME '\1aELIMINATE>
+ <NTHUV NEW-T4 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP14>
+ <PUTUV NEW-T4 1 TEMP14>
+ <DEAD TEMP14>
+ <RETURN NEW-T4>
+ <DEAD NEW-T4>
+PHRASE22
+ <TYPE? NEXTLINE8 <TYPE-CODE REF> + TAG31>
+ <TYPE? NEXTLINE8 <TYPE-CODE OLD-AND-USELESS> - PHRASE30>
+ <DEAD NEXTLINE8>
+TAG31
+ <FRAME '\1aELIMINATE>
+ <PUSH ITM7>
+ <DEAD ITM7>
+ <CALL '\1aELIMINATE 1 = TEMP14>
+ <PUTUV NEW-T4 1 TEMP14>
+ <DEAD TEMP14>
+ <RETURN NEW-T4>
+ <DEAD NEW-T4>
+PHRASE30
+ <PUSH 'CAIA>
+ <PUSH 'A1*>
+ <PUSH 'A1*>
+ <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP14>
+ <CHTYPE TEMP14 <TYPE-CODE INST> = TEMP14>
+ <PUTUV NEW-T4 1 TEMP14>
+ <DEAD TEMP14>
+ <SET TEMP14 NEW-T4>
+ <DEAD NEW-T4>
+PHRASE33
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aSKIP-MODIFY>
+#WORD *24511720454*
+<GFCN
\1aUNLABEL-THIS-TUPLE ("VALUE" LIST LIST <PRIMTYPE VECTOR>) L4 T5>
+ <TEMP TEMP8 STATEMENT20 TEMP25 RF6>
+ <INTGO>
+ <GVAL 'PEEP-CHANNEL = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
+ <DEAD TEMP8>
+ <FRAME '\1aCRLF>
+ <GVAL 'PEEP-CHANNEL = STACK>
+ <CALL '\1aCRLF 1>
+BOOL7
+ <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP8>
+ <DEAD T5>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP8 + MAPAP14>
+ <NTHUV TEMP8 1 = STATEMENT20>
+ <TYPE? STATEMENT20 <TYPE-CODE REF> - PHRASE22>
+ <GVAL 'PEEP-CHANNEL = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE24>
+ <DEAD TEMP25>
+ <FRAME '\1aPRINT>
+ <NTHUV STATEMENT20 1 = STACK>
+ <GVAL 'PEEP-CHANNEL = STACK>
+ <CALL '\1aPRINT 2>
+PHRASE24
+ <RESTL L4 1 = L4 (TYPE LIST)>
+ <NTHUV STATEMENT20 1 = TEMP25>
+ <DEAD STATEMENT20>
+ <PUTL L4 1 TEMP25>
+ <DEAD TEMP25>
+ <JUMP + PHRASE47>
+PHRASE22
+ <TYPE? STATEMENT20 <TYPE-CODE OLD-AND-USELESS> - PHRASE27>
+ <GVAL 'PEEP-CHANNEL = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE47>
+ <DEAD TEMP25>
+ <FRAME '\1aPRINT>
+ <PUSH STATEMENT20>
+ <DEAD STATEMENT20>
+ <GVAL 'PEEP-CHANNEL = STACK>
+ <CALL '\1aPRINT 2>
+ <JUMP + PHRASE47>
+PHRASE27
+ <NTHUV STATEMENT20 1 = TEMP25>
+ <EQUAL? TEMP25 'DISPATCH - PHRASE31>
+ <DEAD TEMP25>
+ <NTHUV STATEMENT20 2 = RF6>
+ <TYPE? RF6 <TYPE-CODE REF> - PHRASE31>
+ <NTHUV RF6 1 = TEMP25>
+ <DEAD RF6>
+ <PUTUV STATEMENT20 2 TEMP25>
+ <DEAD TEMP25>
+ <GVAL 'PEEP-CHANNEL = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE34>
+ <DEAD TEMP25>
+ <FRAME '\1aPRINT>
+ <PUSH STATEMENT20>
+ <GVAL 'PEEP-CHANNEL = STACK>
+ <CALL '\1aPRINT 2>
+PHRASE34
+ <RESTL L4 1 = L4 (TYPE LIST)>
+ <PUTL L4 1 STATEMENT20>
+ <DEAD STATEMENT20>
+ <JUMP + PHRASE47>
+PHRASE31
+ <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
+ <NTHUV STATEMENT20 TEMP25 = RF6>
+ <DEAD TEMP25>
+ <TYPE? RF6 <TYPE-CODE REF> - PHRASE36>
+ <NTHUV STATEMENT20 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE SGFRM> + TAG40>
+ <TYPE? TEMP25 <TYPE-CODE GFRM> + TAG40>
+ <TYPE? TEMP25 <TYPE-CODE SBFRM> - PHRASE39>
+ <DEAD TEMP25>
+TAG40
+ <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
+ <PUTUV STATEMENT20 TEMP25 'T>
+ <DEAD TEMP25>
+ <JUMP + PHRASE41>
+PHRASE39
+ <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
+ <NTHUV RF6 1 = STACK>
+ <DEAD RF6>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = RF6>
+ <CHTYPE RF6 <TYPE-CODE REF> = RF6>
+ <PUTUV STATEMENT20 TEMP25 RF6>
+ <DEAD TEMP25 RF6>
+PHRASE41
+ <GVAL 'PEEP-CHANNEL = RF6>
+ <TYPE? RF6 <TYPE-CODE FALSE> + PHRASE45>
+ <DEAD RF6>
+ <FRAME '\1aPRINT>
+ <PUSH STATEMENT20>
+ <GVAL 'PEEP-CHANNEL = STACK>
+ <CALL '\1aPRINT 2>
+PHRASE45
+ <RESTL L4 1 = L4 (TYPE LIST)>
+ <PUTL L4 1 STATEMENT20>
+ <DEAD STATEMENT20>
+ <JUMP + PHRASE47>
+PHRASE36
+ <GVAL 'PEEP-CHANNEL = RF6>
+ <TYPE? RF6 <TYPE-CODE FALSE> + PHRASE49>
+ <DEAD RF6>
+ <FRAME '\1aPRINT>
+ <PUSH STATEMENT20>
+ <GVAL 'PEEP-CHANNEL = STACK>
+ <CALL '\1aPRINT 2>
+PHRASE49
+ <RESTL L4 1 = L4 (TYPE LIST)>
+ <PUTL L4 1 STATEMENT20>
+ <DEAD STATEMENT20>
+PHRASE47
+ <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAPAP14
+ <PUTREST L4 ()>
+ <RETURN L4>
+ <DEAD L4>
+ <END \1aUNLABEL-THIS-TUPLE>
+#WORD *27262016144*
+<GFCN
\1aPOST-ACCESS ("VALUE" ANY <OR FALSE INST REF OLD-AND-USELESS> <PRIMTYPE VECTOR>) BACK04 TUP5>
+ <TEMP BACK16 TEMP8 BACK27>
+ <INTGO>
+ <BACKU TUP5 1 = TUP5>
+ <NTHUV TUP5 1 = BACK16>
+ <BACKU TUP5 1 = TEMP8>
+ <NTHUV TEMP8 1 = BACK27>
+ <DEAD TEMP8>
+ <TYPE? BACK04 <TYPE-CODE OLD-AND-USELESS> - PHRASE10>
+ <FRAME '\1aPOST-ACCESS>
+ <PUSH BACK04>
+ <DEAD BACK04>
+ <BACKU TUP5 1 = STACK>
+ <DEAD TUP5>
+ <CALL '\1aPOST-ACCESS 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE10
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <PUSH BACK16>
+ <DEAD BACK16>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = BACK16>
+ <TYPE? BACK16 <TYPE-CODE FALSE> - TAG15>
+ <DEAD BACK16>
+ <RETURN 'T>
+TAG15
+ <FRAME '\1aCONDITIONAL-SKIP?>
+ <PUSH BACK27>
+ <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP8>
+ <VEQUAL? TEMP8 0 - PHRASE23>
+ <FRAME '\1aUNCONDITIONAL-SKIP?>
+ <PUSH BACK27>
+ <CALL '\1aUNCONDITIONAL-SKIP? 1 = TEMP8>
+ <VEQUAL? TEMP8 0 - PHRASE23>
+ <FRAME '\1aCONDITIONAL-BRANCH?>
+ <PUSH BACK27>
+ <CALL '\1aCONDITIONAL-BRANCH? 1 = BACK16>
+ <VEQUAL? BACK16 0 - BOOL19>
+ <DEAD BACK16>
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <PUSH BACK27>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = BACK16>
+ <TYPE? BACK16 <TYPE-CODE FALSE> + TAG22>
+ <DEAD BACK16>
+BOOL19
+ <LENUV BACK27 = BACK16 (TYPE FIX)>
+ <NTHUV BACK27 BACK16 = BACK16>
+ <DEAD BACK27>
+ <EQUAL? BACK16 BACK04 - TAG22>
+ <DEAD BACK16>
+ <RETURN 'T>
+TAG22
+ <FRAME '\1aPUT>
+ <PUSH BACK04>
+ <DEAD BACK04>
+ <PUSH 2>
+ <PUSH %<>>
+ <CALL '\1aPUT 3 = TEMP8>
+PHRASE23
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aPOST-ACCESS>\r\r
+#WORD *16736533507*
+<GFCN \1aCONDITIONAL-BRANCH? ("VALUE" <OR !<FALSE> <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) ITEM4>
+ <TEMP TEMP9 TEMP10 TEMP11>
+ <INTGO>
+ <NTHUV ITEM4 1 = TEMP9>
+ <DEAD ITEM4>
+ <GVAL 'CJ-JUMP-LIST = TEMP10>
+ <TYPE? TEMP9 <TYPE-CODE ATOM> - TAG5>
+ <EMPL? TEMP10 + TAG5>
+ <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
+TAG7
+ <NTHL TEMP10 1 = TEMP11>
+ <VEQUAL? TEMP11 TEMP9 + TAG6>
+ <DEAD TEMP11>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 - TAG7>
+TAG5
+ <SET TEMP10 %<> (TYPE FALSE)>
+TAG6
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aCONDITIONAL-BRANCH?>
+#WORD *16737173507*
+<GFCN \1aCONDITIONAL-SKIP? ("VALUE" <OR !<FALSE> <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) ITEM4>
+ <TEMP TEMP9 TEMP10 TEMP11>
+ <INTGO>
+ <NTHUV ITEM4 1 = TEMP9>
+ <DEAD ITEM4>
+ <GVAL 'CS-JUMP-LIST = TEMP10>
+ <TYPE? TEMP9 <TYPE-CODE ATOM> - TAG5>
+ <EMPL? TEMP10 + TAG5>
+ <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
+TAG7
+ <NTHL TEMP10 1 = TEMP11>
+ <VEQUAL? TEMP11 TEMP9 + TAG6>
+ <DEAD TEMP11>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 - TAG7>
+TAG5
+ <SET TEMP10 %<> (TYPE FALSE)>
+TAG6
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aCONDITIONAL-SKIP?>
+#WORD *33131715640*
+<GFCN \1aUNCONDITIONAL-BRANCH? ("VALUE" <OR ATOM FALSE> <OR OLD-AND-USELESS INST REF>) ITEM4>
+ <TEMP TEMP12 TEMP7 TEMP13>
+ <INTGO>
+ <NTHUV ITEM4 1 = TEMP12>
+ <GVAL 'UJ-JUMP-LIST = TEMP7>
+ <TYPE? TEMP12 <TYPE-CODE ATOM> - TAG8>
+ <EMPL? TEMP7 + TAG8>
+ <LOOP (TEMP12 VALUE) (TEMP7 VALUE)>
+TAG10
+ <NTHL TEMP7 1 = TEMP13>
+ <VEQUAL? TEMP13 TEMP12 + TAG9>
+ <DEAD TEMP13>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <EMPL? TEMP7 - TAG10>
+TAG8
+ <RETURN %<>>
+TAG9
+ <LENUV ITEM4 = TEMP12 (TYPE FIX)>
+ <NTHUV ITEM4 TEMP12 = TEMP12>
+ <DEAD ITEM4>
+ <TYPE? TEMP12 <TYPE-CODE REF> + TAG14>
+ <RETURN %<>>
+TAG14
+ <NTHUV TEMP12 1 = TEMP12>
+ <EQUAL? TEMP12 'COMPERR + TAG16>
+ <DEAD TEMP12>
+ <RETURN 'T>
+TAG16
+ <RETURN %<>>
+ <END \1aUNCONDITIONAL-BRANCH?>
+#WORD *22113611562*
+<GFCN \1aUNCONDITIONAL-SKIP? ("VALUE" <OR ATOM !<FALSE>> <OR OLD-AND-USELESS INST REF>) ITEM4>
+ <TEMP TEMP6>
+ <INTGO>
+ <NTHUV ITEM4 1 = TEMP6>
+ <DEAD ITEM4>
+ <EQUAL? TEMP6 'CAIA - TAG5>
+ <DEAD TEMP6>
+ <RETURN 'T>
+TAG5
+ <RETURN %<>>
+ <END \1aUNCONDITIONAL-SKIP?>
+#WORD *31721626334*
+<GFCN \1aJUMP? ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) INSTR4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aCONDITIONAL-BRANCH?>
+ <PUSH INSTR4>
+ <CALL '\1aCONDITIONAL-BRANCH? 1 = TEMP6>
+ <VEQUAL? TEMP6 0 - BOOL5>
+ <FRAME '\1aCONDITIONAL-SKIP?>
+ <PUSH INSTR4>
+ <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP6>
+ <VEQUAL? TEMP6 0 - BOOL5>
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <PUSH INSTR4>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
+ <FRAME '\1aUNCONDITIONAL-SKIP?>
+ <PUSH INSTR4>
+ <DEAD INSTR4>
+ <CALL '\1aUNCONDITIONAL-SKIP? 1 = TEMP6>
+BOOL5
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aJUMP?>
+<GDECL (UJ-JUMP-LIST US-JUMP-LIST CJ-JUMP-LIST CS-JUMP-LIST) <LIST [REST ATOM]> (JUMP-LIST) !<LIST [4 <LIST [REST ATOM]>]>>
+
+<SETG JUMP-LIST (<SETG UJ-JUMP-LIST '(JUMPA AOJA SOJA JRST PUSHJ JSP UJ)> <SETG US-JUMP-LIST '(CAIA SKIPA AOSA SOSA US)> <SETG CJ-JUMP-LIST '(JUMPL JUMPGE JUMPE JUMPN JUMPLE JUMPG SOJL SOJGE SOJE SOJN SOJLE SOJG CJ)> <SETG CS-JUMP-LIST '(CAIL CAIGE CAIE CAIN CAILE CAIG CAML CAMGE CAME CAMN CAMLE CAMG SOSL SOSGE SOSE SOSN SOSLE SOSG AOSL AOSGE AOSE AOSN AOSLE AOSG SKIPL SKIPGE SKIPE SKIPN SKIPLE SKIPG TRNE TRNN TLNN TLNE CS)>)>
+
+#WORD *10070054361*
+<GFCN \1aMAKE-OPPOSITES ("VALUE" ANY ATOM ATOM) ITEM-14 ITEM-25>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aPUTPROP>
+ <PUSH ITEM-14>
+ <PUSH 'OPPOSITE>
+ <PUSH ITEM-25>
+ <CALL '\1aPUTPROP 3>
+ <FRAME '\1aPUTPROP>
+ <PUSH ITEM-25>
+ <DEAD ITEM-25>
+ <PUSH 'OPPOSITE>
+ <PUSH ITEM-14>
+ <DEAD ITEM-14>
+ <CALL '\1aPUTPROP 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMAKE-OPPOSITES>
+#WORD *36226525176*
+<GFCN
\1aSINGLE-PATH-OPTIMIZE ("VALUE" <OR ATOM FALSE <LIST ANY> <VECTOR OLD-AND-USELESS>> <PRIMTYPE VECTOR> <PRIMTYPE VECTOR>) TOP-OF-TUP4 NEW-T5>
+ <TEMP (BACKREG-LIST6:LIST ()) LBL7 (ACS8:LIST (A1* A2* B1* B2* C1* C2* T* X* O*)) STATEMENT11 TEMP18 TEMP19 NTUP13 ACC?21 AC46>
+ <INTGO>
+ <NTHUV NEW-T5 1 = LBL7>
+ <NTHUV LBL7 3 = LBL7>
+ <NTH1 LBL7 = STATEMENT11>
+ <DEAD LBL7>
+ <CHTYPE TOP-OF-TUP4 <TYPE-CODE VECTOR> = LBL7>
+ <TYPE STATEMENT11 = TEMP18>
+ <EMPUV? LBL7 + TAG14>
+ <LOOP (STATEMENT11 VALUE) (TEMP18 VALUE) (LBL7 LENGTH VALUE)>
+TAG16
+ <NTHUV LBL7 1 = TEMP19>
+ <TYPE? TEMP19 TEMP18 - TAG17>
+ <VEQUAL? TEMP19 STATEMENT11 + TAG15>
+ <DEAD TEMP19>
+TAG17
+ <RESTUV LBL7 1 = LBL7 (TYPE VECTOR)>
+ <EMPUV? LBL7 - TAG16>
+TAG14
+ <SET NTUP13 %<> (TYPE FALSE)>
+ <JUMP + TAG20>
+TAG15
+ <SET NTUP13 LBL7>
+ <DEAD LBL7>
+TAG20
+ <LOOP>
+AGAIN22
+ <INTGO>
+ <TYPE? STATEMENT11 <TYPE-CODE REF> + EXIT9>
+ <TYPE? STATEMENT11 <TYPE-CODE INST> - PHRASE24>
+ <NTHUV STATEMENT11 1 = LBL7>
+ <EQUAL? LBL7 'PUSHJ + EXIT9>
+ <DEAD LBL7>
+ <NTHUV STATEMENT11 1 = LBL7>
+ <EQUAL? LBL7 'JSP + EXIT9>
+ <DEAD LBL7>
+PHRASE24
+ <FRAME '\1aMOVE?>
+ <PUSH STATEMENT11>
+ <CALL '\1aMOVE? 1 = LBL7>
+ <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD LBL7>
+ <NTHUV STATEMENT11 2 = ACC?21>
+ <SET LBL7 ACS8>
+ <TYPE ACC?21 = TEMP18>
+ <EMPL? LBL7 + PHRASE28>
+ <LOOP (ACC?21 VALUE) (TEMP18 VALUE) (LBL7 VALUE)>
+TAG32
+ <NTHL LBL7 1 = TEMP19>
+ <TYPE? TEMP19 TEMP18 - TAG33>
+ <VEQUAL? TEMP19 ACC?21 + TAG31>
+ <DEAD TEMP19>
+TAG33
+ <RESTL LBL7 1 = LBL7 (TYPE LIST)>
+ <EMPL? LBL7 - TAG32>
+ <JUMP + PHRASE28>
+TAG31
+ <SET LBL7 BACKREG-LIST6>
+ <TYPE ACC?21 = TEMP18>
+ <EMPL? LBL7 + TAG34>
+ <LOOP (ACC?21 VALUE) (TEMP18 VALUE) (LBL7 VALUE)>
+TAG35
+ <NTHL LBL7 1 = TEMP19>
+ <TYPE? TEMP19 TEMP18 - TAG36>
+ <VEQUAL? TEMP19 ACC?21 + PHRASE28>
+ <DEAD TEMP19>
+TAG36
+ <RESTL LBL7 1 = LBL7 (TYPE LIST)>
+ <EMPL? LBL7 - TAG35>
+TAG34
+ <SET TEMP19 () (TYPE LIST)>
+ <SET TEMP18 () (TYPE LIST)>
+ <SET LBL7 ACS8 (TYPE LIST)>
+ <DEAD ACS8>
+ <LOOP>
+MAP38
+ <INTGO>
+ <EMPL? LBL7 + MAPAP41>
+ <SET ACS8 LBL7>
+ <NTHL ACS8 1 = AC46 (TYPE ATOM)>
+ <EQUAL? ACC?21 AC46 - PHRASE48>
+ <RESTL ACS8 1 = ACS8 (TYPE LIST)>
+ <LOOP (ACS8 VALUE)>
+TAG54
+ <INTGO>
+ <EMPL? ACS8 + MAPAP41>
+ <NTHL ACS8 1 = AC46>
+ <CONS AC46 () = AC46 (TYPE LIST)>
+ <EMPL? TEMP19 - TAG56>
+ <SET TEMP19 AC46 (TYPE LIST)>
+ <JUMP + TAG57>
+TAG56
+ <PUTREST TEMP18 AC46>
+ <DEAD TEMP18>
+TAG57
+ <SET TEMP18 AC46 (TYPE LIST)>
+ <DEAD AC46>
+ <RESTL ACS8 1 = ACS8 (TYPE LIST)>
+ <JUMP + TAG54>
+PHRASE48
+ <CONS AC46 () = AC46 (TYPE LIST)>
+ <EMPL? TEMP19 - TAG60>
+ <SET TEMP19 AC46 (TYPE LIST)>
+ <JUMP + TAG61>
+TAG60
+ <PUTREST TEMP18 AC46>
+ <DEAD TEMP18>
+TAG61
+ <SET TEMP18 AC46 (TYPE LIST)>
+ <DEAD AC46>
+ <RESTL LBL7 1 = LBL7 (TYPE LIST)>
+ <JUMP + MAP38>
+MAPAP41
+ <SET ACS8 TEMP19>
+ <DEAD TEMP19>
+ <CONS STATEMENT11 BACKREG-LIST6 = LBL7>
+ <DEAD STATEMENT11 BACKREG-LIST6>
+ <CONS ACC?21 LBL7 = BACKREG-LIST6>
+ <DEAD ACC?21 LBL7>
+ <JUMP + MAPEX72>
+PHRASE28
+ <LENUV STATEMENT11 = LBL7 (TYPE FIX)>
+ <GRTR? LBL7 1 - MAPEX72 (TYPE FIX)>
+ <DEAD LBL7>
+ <NTHUV STATEMENT11 2 = ACC?21>
+ <DEAD STATEMENT11>
+ <TYPE? ACC?21 <TYPE-CODE ATOM> - MAPEX72>
+ <SET LBL7 ACS8>
+ <EMPL? LBL7 + MAPEX72>
+ <LOOP (ACC?21 VALUE) (LBL7 VALUE)>
+TAG67
+ <NTHL LBL7 1 = AC46>
+ <TYPE? AC46 <TYPE-CODE ATOM> - TAG68>
+ <VEQUAL? AC46 ACC?21 + TAG66>
+ <DEAD AC46>
+TAG68
+ <RESTL LBL7 1 = LBL7 (TYPE LIST)>
+ <EMPL? LBL7 - TAG67>
+ <JUMP + MAPEX72>
+TAG66
+ <SET STATEMENT11 () (TYPE LIST)>
+ <SET AC46 () (TYPE LIST)>
+ <SET LBL7 ACS8 (TYPE LIST)>
+ <DEAD ACS8>
+ <LOOP>
+MAP70
+ <INTGO>
+ <EMPL? LBL7 + MAPAP73>
+ <SET ACS8 LBL7>
+ <NTHL ACS8 1 = TEMP18 (TYPE ATOM)>
+ <VEQUAL? ACC?21 TEMP18 - PHRASE81>
+ <RESTL ACS8 1 = ACS8 (TYPE LIST)>
+ <LOOP (ACS8 VALUE)>
+TAG87
+ <INTGO>
+ <EMPL? ACS8 + MAPAP73>
+ <NTHL ACS8 1 = TEMP18>
+ <CONS TEMP18 () = TEMP18 (TYPE LIST)>
+ <EMPL? STATEMENT11 - TAG89>
+ <SET STATEMENT11 TEMP18 (TYPE LIST)>
+ <JUMP + TAG90>
+TAG89
+ <PUTREST AC46 TEMP18>
+ <DEAD AC46>
+TAG90
+ <SET AC46 TEMP18 (TYPE LIST)>
+ <DEAD TEMP18>
+ <RESTL ACS8 1 = ACS8 (TYPE LIST)>
+ <JUMP + TAG87>
+PHRASE81
+ <CONS TEMP18 () = TEMP18 (TYPE LIST)>
+ <EMPL? STATEMENT11 - TAG93>
+ <SET STATEMENT11 TEMP18 (TYPE LIST)>
+ <JUMP + TAG94>
+TAG93
+ <PUTREST AC46 TEMP18>
+ <DEAD AC46>
+TAG94
+ <SET AC46 TEMP18 (TYPE LIST)>
+ <DEAD TEMP18>
+ <RESTL LBL7 1 = LBL7 (TYPE LIST)>
+ <JUMP + MAP70>
+MAPAP73
+ <SET ACS8 STATEMENT11>
+ <DEAD STATEMENT11>
+MAPEX72
+ <TYPE? NTUP13 <TYPE-CODE FALSE> + EXIT9>
+ <EQUAL? NTUP13 TOP-OF-TUP4 + EXIT9>
+ <BACKU NTUP13 1 = NTUP13>
+ <NTHUV NTUP13 1 = STATEMENT11>
+ <JUMP + AGAIN22>
+EXIT9
+ <SET ACS8 () (TYPE LIST)>
+ <SET LBL7 %<> (TYPE FALSE)>
+ <RESTUV NEW-T5 1 = STATEMENT11 (TYPE VECTOR)>
+ <DEAD NEW-T5>
+ <CHTYPE STATEMENT11 <TYPE-CODE VECTOR> = STATEMENT11>
+ <LOOP>
+MAP100
+ <INTGO>
+ <EMPUV? STATEMENT11 + MAPAP103>
+ <SET AC46 STATEMENT11>
+ <NTHUV AC46 1 = TEMP18>
+ <FRAME '\1aJUMP?>
+ <PUSH TEMP18>
+ <CALL '\1aJUMP? 1 = LBL7>
+ <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE113>
+ <DEAD LBL7>
+ <RETURN 'T>
+PHRASE113
+ <TYPE? TEMP18 <TYPE-CODE REF> - PHRASE116>
+ <RETURN 'T>
+PHRASE116
+ <FRAME '\1aMOVE?>
+ <PUSH TEMP18>
+ <CALL '\1aMOVE? 1 = LBL7>
+ <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE118>
+ <DEAD LBL7>
+ <NTHUV TEMP18 2 = LBL7>
+ <SET TEMP19 ACS8>
+ <TYPE LBL7 = NTUP13>
+ <EMPL? TEMP19 + TAG122>
+ <LOOP (LBL7 VALUE) (NTUP13 VALUE) (TEMP19 VALUE)>
+TAG123
+ <NTHL TEMP19 1 = ACC?21>
+ <TYPE? ACC?21 NTUP13 - TAG124>
+ <VEQUAL? ACC?21 LBL7 + PHRASE118>
+ <DEAD ACC?21>
+TAG124
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <EMPL? TEMP19 - TAG123>
+TAG122
+ <SET LBL7 BACKREG-LIST6>
+ <TYPE TEMP18 = TEMP19>
+ <EMPL? LBL7 + TAG128>
+ <LOOP (TEMP18 VALUE) (TEMP19 VALUE) (LBL7 VALUE)>
+TAG130
+ <NTHL LBL7 1 = NTUP13>
+ <TYPE? NTUP13 TEMP19 - TAG131>
+ <VEQUAL? NTUP13 TEMP18 + TAG129>
+ <DEAD NTUP13>
+TAG131
+ <RESTL LBL7 1 = LBL7 (TYPE LIST)>
+ <EMPL? LBL7 - TAG130>
+TAG128
+ <SET LBL7 %<> (TYPE FALSE)>
+TAG129
+ <VEQUAL? LBL7 0 + PHRASE118>
+ <NTHUV TEMP18 2 = TEMP19>
+ <DEAD TEMP18>
+ <CONS TEMP19 ACS8 = ACS8>
+ <DEAD TEMP19>
+ <FRAME '\1aELIMINATE>
+ <NTHL LBL7 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP19>
+ <PUTL LBL7 1 TEMP19>
+ <DEAD LBL7 TEMP19>
+ <FRAME '\1aELIMINATE>
+ <NTHUV AC46 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP19>
+ <PUTUV AC46 1 TEMP19>
+ <DEAD TEMP19>
+ <SET LBL7 AC46>
+ <DEAD AC46>
+ <JUMP + PHRASE134>
+PHRASE118
+ <FRAME '\1aMOVE?>
+ <PUSH TEMP18>
+ <CALL '\1aMOVE? 1 = LBL7>
+ <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE134>
+ <NTHUV TEMP18 2 = TEMP19>
+ <DEAD TEMP18>
+ <CONS TEMP19 ACS8 = ACS8>
+ <DEAD TEMP19>
+ <SET LBL7 ACS8>
+PHRASE134
+ <RESTUV STATEMENT11 1 = STATEMENT11 (TYPE VECTOR)>
+ <JUMP + MAP100>
+MAPAP103
+ <RETURN LBL7>
+ <DEAD LBL7>
+ <END \1aSINGLE-PATH-OPTIMIZE>
+#WORD *13716172360*
+<GFCN \1aMOVE? ("VALUE" <OR FALSE <VECTOR ATOM [REST ATOM]>> <OR INST REF OLD-AND-USELESS>) ITM4>
+ <TEMP TEMP6 TEMP13 TEMP14>
+ <INTGO>
+ <TYPE? ITM4 <TYPE-CODE INST> + TAG7>
+ <RETURN %<>>
+TAG7
+ <NTHUV ITM4 1 = TEMP13>
+ <SET TEMP6 [MOVE DMOVE MOVSI MOVEI MOVNI] (TYPE VECTOR)>
+ <TYPE? TEMP13 <TYPE-CODE ATOM> - TAG9>
+ <LOOP (TEMP13 VALUE) (TEMP6 LENGTH VALUE)>
+TAG11
+ <NTHUV TEMP6 1 = TEMP14>
+ <VEQUAL? TEMP14 TEMP13 + TAG10>
+ <DEAD TEMP14>
+ <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
+ <EMPUV? TEMP6 - TAG11>
+TAG9
+ <RETURN %<>>
+TAG10
+ <FRAME '\1aIS-REAL-AC?>
+ <NTHUV ITM4 2 = STACK (TYPE ATOM)>
+ <DEAD ITM4>
+ <CALL '\1aIS-REAL-AC? 1 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aMOVE?>
+#WORD *17062051606*
+<GFCN \1aFINDZERO ("VALUE" <OR !<FALSE> CONSTANT-BUCKET>)>
+ <TEMP NCV7:LIST TEMP4>
+ <INTGO>
+ <GVAL 'CONSTANT-VECTOR = NCV7>
+ <LOOP>
+AGAIN8
+ <INTGO>
+ <EMPL? NCV7 - PHRASE10 (TYPE LIST)>
+ <RETURN %<>>
+PHRASE10
+ <NTHL NCV7 1 = TEMP4 (TYPE CONSTANT-BUCKET)>
+ <NTHUV TEMP4 1 = TEMP4>
+ <EQUAL? TEMP4 #CONSTANT 0 - PHRASE11>
+ <DEAD TEMP4>
+ <NTHL NCV7 1 = TEMP4 (TYPE CONSTANT-BUCKET)>
+ <DEAD NCV7>
+ <RETURN TEMP4>
+ <DEAD TEMP4>
+PHRASE11
+ <RESTL NCV7 1 = NCV7 (TYPE LIST)>
+ <JUMP + AGAIN8>
+ <END \1aFINDZERO>
+#WORD *13544515541*
+<GFCN
\1aMOVE-CHECK ("VALUE" <OR ATOM FALSE <<PRIMTYPE VECTOR> OLD-AND-USELESS>> <PRIMTYPE VECTOR> INST) NEW-T4 LINE5>
+ <TEMP LABEL6:ATOM DESTINATION7 TEMP14 SOURCE9 USEFUL-CODE11 TEMP32 NEW-TUP33 LINE34>
+ <INTGO>
+ <NTHUV LINE5 1 = LABEL6 (TYPE ATOM)>
+ <NTHUV LINE5 2 = DESTINATION7>
+ <NTHUV LINE5 3 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> + TAG15>
+ <DEAD TEMP14>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + BOOL12>
+TAG15
+ <NTHUV LINE5 3 = TEMP14 (TYPE ATOM)>
+ <DEAD LINE5>
+BOOL12
+ <SET SOURCE9 TEMP14>
+ <DEAD TEMP14>
+ <FRAME '\1aIS-REAL-AC?>
+ <PUSH DESTINATION7>
+ <CALL '\1aIS-REAL-AC? 1 = TEMP14>
+ <VEQUAL? TEMP14 0 + PHRASE67>
+ <SET TEMP14 SOURCE9>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
+ <FRAME '\1aIS-REAL-AC?>
+ <PUSH SOURCE9>
+ <CALL '\1aIS-REAL-AC? 1 = TEMP14>
+ <VEQUAL? TEMP14 0 + PHRASE67>
+ <SET USEFUL-CODE11 () (TYPE LIST)>
+ <SET TEMP14 () (TYPE LIST)>
+ <RESTUV NEW-T4 1 = TEMP32 (TYPE VECTOR)>
+ <CHTYPE TEMP32 <TYPE-CODE VECTOR> = TEMP32>
+ <LOOP>
+MAP23
+ <INTGO>
+ <EMPUV? TEMP32 + MAPAP26>
+ <SET NEW-TUP33 TEMP32>
+ <NTHUV NEW-TUP33 1 = LINE34>
+ <TYPE? LINE34 <TYPE-CODE REF> - PHRASE41>
+ <FRAME '\1aL-LOOP?>
+ <PUSH NEW-TUP33>
+ <DEAD NEW-TUP33>
+ <CALL '\1aL-LOOP? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + MAPAP26>
+ <DEAD TEMP14>
+ <SET USEFUL-CODE11 () (TYPE LIST)>
+ <JUMP + MAPEX25>
+PHRASE41
+ <FRAME '\1aCONDITIONAL-BRANCH?>
+ <PUSH LINE34>
+ <CALL '\1aCONDITIONAL-BRANCH? 1 = NEW-TUP33>
+ <VEQUAL? NEW-TUP33 0 + PHRASE43>
+ <DEAD NEW-TUP33>
+ <SET USEFUL-CODE11 () (TYPE LIST)>
+ <JUMP + MAPEX25>
+PHRASE43
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <PUSH LINE34>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = NEW-TUP33>
+ <TYPE? NEW-TUP33 <TYPE-CODE FALSE> + PHRASE46>
+ <DEAD NEW-TUP33>
+ <CONS LINE34 () = NEW-TUP33 (TYPE LIST)>
+ <DEAD LINE34>
+ <EMPL? USEFUL-CODE11 - TAG50>
+ <SET USEFUL-CODE11 NEW-TUP33 (TYPE LIST)>
+ <JUMP + TAG51>
+TAG50
+ <PUTREST TEMP14 NEW-TUP33>
+ <DEAD TEMP14>
+TAG51
+ <SET TEMP14 NEW-TUP33 (TYPE LIST)>
+ <DEAD NEW-TUP33>
+ <JUMP + MAPAP26>
+PHRASE46
+ <NTHUV LINE34 1 = NEW-TUP33>
+ <EQUAL? NEW-TUP33 'JRST - BOOL54>
+ <DEAD NEW-TUP33>
+ <NTHUV LINE34 2 = NEW-TUP33>
+ <EQUAL? NEW-TUP33 '@ + BOOL53>
+ <DEAD NEW-TUP33>
+BOOL54
+ <NTHUV LINE34 1 = NEW-TUP33>
+ <EQUAL? NEW-TUP33 'PUSHJ + BOOL53>
+ <DEAD NEW-TUP33>
+ <NTHUV LINE34 1 = NEW-TUP33>
+ <EQUAL? NEW-TUP33 'JSP - PHRASE52>
+ <DEAD NEW-TUP33>
+BOOL53
+ <SET USEFUL-CODE11 () (TYPE LIST)>
+ <JUMP + MAPEX25>
+PHRASE52
+ <CONS LINE34 () = LINE34 (TYPE LIST)>
+ <EMPL? USEFUL-CODE11 - TAG58>
+ <SET USEFUL-CODE11 LINE34 (TYPE LIST)>
+ <JUMP + TAG59>
+TAG58
+ <PUTREST TEMP14 LINE34>
+ <DEAD TEMP14>
+TAG59
+ <SET TEMP14 LINE34 (TYPE LIST)>
+ <DEAD LINE34>
+ <RESTUV TEMP32 1 = TEMP32 (TYPE VECTOR)>
+ <JUMP + MAP23>
+MAPAP26
+MAPEX25
+ <EMPL? USEFUL-CODE11 - TAG61 (TYPE LIST)>
+ <RETURN 'T>
+TAG61
+ <VEQUAL? LABEL6 'MOVE - PHRASE62>
+ <FRAME '\1aIS-THIS-AC-USED?>
+ <PUSH SOURCE9>
+ <PUSH USEFUL-CODE11>
+ <PUSH DESTINATION7>
+ <CALL '\1aIS-THIS-AC-USED? 3 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE62>
+ <DEAD TEMP32>
+ <FRAME '\1aREPLACE-ACS>
+ <PUSH SOURCE9>
+ <DEAD SOURCE9>
+ <PUSH DESTINATION7>
+ <DEAD DESTINATION7>
+ <PUSH USEFUL-CODE11>
+ <DEAD USEFUL-CODE11>
+ <CALL '\1aREPLACE-ACS 3>
+ <FRAME '\1aELIMINATE>
+ <NTHUV NEW-T4 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP32>
+ <PUTUV NEW-T4 1 TEMP32>
+ <DEAD TEMP32>
+ <RETURN NEW-T4>
+ <DEAD NEW-T4>
+PHRASE62
+ <VEQUAL? LABEL6 'DMOVE + TAG69>
+ <DEAD LABEL6>
+ <RETURN %<>>
+TAG69
+ <FRAME '\1aGETPROP>
+ <PUSH SOURCE9>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = LINE34>
+ <SET TEMP14 LINE34>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
+ <FRAME '\1aGETPROP>
+ <PUSH DESTINATION7>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = NEW-TUP33>
+ <SET TEMP14 NEW-TUP33>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
+ <FRAME '\1aIS-THIS-AC-USED?>
+ <PUSH SOURCE9>
+ <PUSH USEFUL-CODE11>
+ <PUSH DESTINATION7>
+ <CALL '\1aIS-THIS-AC-USED? 3 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + TAG73>
+ <DEAD TEMP32>
+ <RETURN %<>>
+TAG73
+ <FRAME '\1aIS-THIS-AC-USED?>
+ <PUSH LINE34>
+ <PUSH USEFUL-CODE11>
+ <PUSH NEW-TUP33>
+ <CALL '\1aIS-THIS-AC-USED? 3 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + TAG75>
+ <DEAD TEMP32>
+ <RETURN %<>>
+TAG75
+ <FRAME '\1aREPLACE-ACS>
+ <PUSH SOURCE9>
+ <DEAD SOURCE9>
+ <PUSH DESTINATION7>
+ <DEAD DESTINATION7>
+ <PUSH USEFUL-CODE11>
+ <CALL '\1aREPLACE-ACS 3>
+ <FRAME '\1aREPLACE-ACS>
+ <PUSH LINE34>
+ <DEAD LINE34>
+ <PUSH NEW-TUP33>
+ <DEAD NEW-TUP33>
+ <PUSH USEFUL-CODE11>
+ <DEAD USEFUL-CODE11>
+ <CALL '\1aREPLACE-ACS 3>
+ <FRAME '\1aELIMINATE>
+ <NTHUV NEW-T4 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP32>
+ <PUTUV NEW-T4 1 TEMP32>
+ <DEAD TEMP32>
+ <SET TEMP14 NEW-T4>
+ <DEAD NEW-T4>
+PHRASE67
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aMOVE-CHECK>
+#WORD *6057656507*
+<GFCN
\1aREPLACE-ACS ("VALUE" <OR FALSE <INST <OR ATOM LIST>> <OLD-AND-USELESS <OR ATOM LIST>> <REF <OR ATOM LIST>> <VECTOR <OR ATOM LIST>>> ATOM ATOM LIST) AC14 AC25 CODE6>
+ <TEMP LAC17:LIST LAC28:LIST TEMP18 TEMP15:LIST LINE20 SUBSET21 TEMP30>
+ <INTGO>
+ <CONS AC14 () = LAC17>
+ <CONS AC25 () = LAC28>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <SET TEMP15 CODE6 (TYPE LIST)>
+ <DEAD CODE6>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPL? TEMP15 + MAPAP13>
+ <NTHL TEMP15 1 = LINE20>
+ <FRAME '\1aMEMBER>
+ <PUSH LAC28>
+ <PUSH LINE20>
+ <CALL '\1aMEMBER 2 = SUBSET21>
+ <TYPE? SUBSET21 <TYPE-CODE FALSE> + PHRASE23>
+ <PUTUV SUBSET21 1 LAC17>
+ <SET TEMP18 SUBSET21>
+ <DEAD SUBSET21>
+ <JUMP + PHRASE31>
+PHRASE23
+ <NTH1 LINE20 = SUBSET21>
+ <SET TEMP18 [MOVE DMOVE] (TYPE VECTOR)>
+ <TYPE? SUBSET21 <TYPE-CODE ATOM> - TAG26>
+ <LOOP (SUBSET21 VALUE) (TEMP18 LENGTH VALUE)>
+TAG27
+ <NTHUV TEMP18 1 = TEMP30>
+ <VEQUAL? TEMP30 SUBSET21 + PHRASE31>
+ <DEAD TEMP30>
+ <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
+ <EMPUV? TEMP18 - TAG27>
+TAG26
+ <SET SUBSET21 LINE20>
+ <DEAD LINE20>
+ <EMPTY? SUBSET21 + TAG32>
+ <LOOP (AC25 VALUE) (SUBSET21 LENGTH VALUE TYPE)>
+TAG34
+ <NTH1 SUBSET21 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG35>
+ <VEQUAL? TEMP30 AC25 + TAG33>
+ <DEAD TEMP30>
+TAG35
+ <REST1 SUBSET21 = SUBSET21>
+ <EMPTY? SUBSET21 - TAG34>
+TAG32
+ <SET SUBSET21 %<> (TYPE FALSE)>
+ <JUMP + TAG36>
+TAG33
+TAG36
+ <SET TEMP18 SUBSET21>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE31>
+ <PUTUV SUBSET21 1 AC14>
+ <SET TEMP18 SUBSET21>
+ <DEAD SUBSET21>
+PHRASE31
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP10>
+MAPAP13
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aREPLACE-ACS>
+#WORD *23257023133*
+<GFCN \1aIS-THIS-AC-USED? ("VALUE" <OR ATOM FALSE> ATOM LIST ANY) ACCUM4 CODE5 DEST6>
+ <TEMP ACCUM27 (MOVED?8 %<>) LDEST9:LIST DEST210 TEMP18 (SRC-USED12 %<>) (DST-USED13 %<>) TEMP27 TEMP38 TEMP39 TEMP40>
+ <INTGO>
+ <FRAME '\1aGETPROP>
+ <PUSH ACCUM4>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = ACCUM27>
+ <CONS DEST6 () = LDEST9>
+ <FRAME '\1aGETPROP>
+ <PUSH DEST6>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = DEST210>
+ <SET TEMP18 DEST210>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + BOOL17>
+ <CONS DEST210 () = TEMP18>
+BOOL17
+ <SET TEMP27 %<> (TYPE FALSE)>
+ <SET TEMP18 CODE5 (TYPE LIST)>
+ <DEAD CODE5>
+ <LOOP>
+MAP20
+ <INTGO>
+ <EMPL? TEMP18 + MAPAP23>
+ <NTHL TEMP18 1 = TEMP27>
+ <VEQUAL? MOVED?8 0 + PHRASE31>
+ <SET TEMP38 TEMP27>
+ <TYPE DEST6 = TEMP39>
+ <EMPUV? TEMP38 + TAG35>
+ <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP38 LENGTH VALUE)>
+TAG36
+ <NTHUV TEMP38 1 = TEMP40>
+ <TYPE? TEMP40 TEMP39 - TAG37>
+ <VEQUAL? TEMP40 DEST6 + TAG41>
+ <DEAD TEMP40>
+TAG37
+ <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
+ <EMPUV? TEMP38 - TAG36>
+TAG35
+ <SET TEMP38 TEMP27>
+ <EMPUV? TEMP38 + PHRASE33>
+ <LOOP (LDEST9 VALUE) (TEMP38 LENGTH VALUE)>
+TAG42
+ <NTHUV TEMP38 1 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE LIST> - TAG43>
+ <VEQUAL? TEMP39 LDEST9 + TAG41>
+ <DEAD TEMP39>
+TAG43
+ <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
+ <EMPUV? TEMP38 - TAG42>
+ <JUMP + PHRASE33>
+TAG41
+ <RETURN 'T>
+PHRASE33
+ <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE44>
+ <SET TEMP39 TEMP27>
+ <TYPE DEST210 = TEMP40>
+ <EMPUV? TEMP39 + PHRASE44>
+ <LOOP (DEST210 VALUE) (TEMP40 VALUE) (TEMP39 LENGTH VALUE)>
+TAG47
+ <NTHUV TEMP39 1 = TEMP38>
+ <TYPE? TEMP38 TEMP40 - TAG48>
+ <VEQUAL? TEMP38 DEST210 + TAG46>
+ <DEAD TEMP38>
+TAG48
+ <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
+ <EMPUV? TEMP39 - TAG47>
+ <JUMP + PHRASE44>
+TAG46
+ <SET TEMP39 TEMP27>
+ <DEAD TEMP27>
+ <EMPUV? TEMP39 + PHRASE44>
+ <LOOP (LDEST9 VALUE) (TEMP39 LENGTH VALUE)>
+TAG51
+ <NTHUV TEMP39 1 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE LIST> - TAG52>
+ <VEQUAL? TEMP40 LDEST9 + TAG50>
+ <DEAD TEMP40>
+TAG52
+ <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
+ <EMPUV? TEMP39 - TAG51>
+ <JUMP + PHRASE44>
+TAG50
+ <RETURN 'T>
+PHRASE44
+ <SET TEMP27 %<> (TYPE FALSE)>
+ <JUMP + PHRASE129>
+PHRASE31
+ <SET TEMP40 TEMP27>
+ <EMPUV? TEMP40 + TAG57>
+ <LOOP (ACCUM4 VALUE) (TEMP40 LENGTH VALUE)>
+TAG58
+ <NTHUV TEMP40 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG59>
+ <VEQUAL? TEMP38 ACCUM4 + TAG61>
+ <DEAD TEMP38>
+TAG59
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG58>
+TAG57
+ <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE54>
+ <SET TEMP40 TEMP27>
+ <TYPE ACCUM27 = TEMP38>
+ <EMPUV? TEMP40 + PHRASE54>
+ <LOOP (ACCUM27 VALUE) (TEMP38 VALUE) (TEMP40 LENGTH VALUE)>
+TAG62
+ <NTHUV TEMP40 1 = TEMP39>
+ <TYPE? TEMP39 TEMP38 - TAG63>
+ <VEQUAL? TEMP39 ACCUM27 + TAG61>
+ <DEAD TEMP39>
+TAG63
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG62>
+ <JUMP + PHRASE54>
+TAG61
+ <NTHUV TEMP27 1 = TEMP40>
+ <SET TEMP38 [DMOVEM MOVEM] (TYPE VECTOR)>
+ <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE54>
+ <LOOP (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
+TAG66
+ <NTHUV TEMP38 1 = TEMP39>
+ <VEQUAL? TEMP39 TEMP40 + TAG65>
+ <DEAD TEMP39>
+ <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
+ <EMPUV? TEMP38 - TAG66>
+ <JUMP + PHRASE54>
+TAG65
+ <VEQUAL? DST-USED13 0 + PHRASE69>
+ <RETURN 'T>
+PHRASE69
+ <SET TEMP27 %<> (TYPE FALSE)>
+ <JUMP + PHRASE129>
+PHRASE54
+ <SET TEMP40 TEMP27>
+ <TYPE DEST6 = TEMP39>
+ <EMPUV? TEMP40 + TAG74>
+ <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
+TAG75
+ <NTHUV TEMP40 1 = TEMP38>
+ <TYPE? TEMP38 TEMP39 - TAG76>
+ <VEQUAL? TEMP38 DEST6 + TAG79>
+ <DEAD TEMP38>
+TAG76
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG75>
+TAG74
+ <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE71>
+ <SET TEMP40 TEMP27>
+ <TYPE DEST210 = TEMP39>
+ <EMPUV? TEMP40 + PHRASE71>
+ <LOOP (DEST210 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
+TAG80
+ <NTHUV TEMP40 1 = TEMP38>
+ <TYPE? TEMP38 TEMP39 - TAG81>
+ <VEQUAL? TEMP38 DEST210 + TAG79>
+ <DEAD TEMP38>
+TAG81
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG80>
+ <JUMP + PHRASE71>
+TAG79
+ <NTHUV TEMP27 1 = TEMP40>
+ <SET TEMP39 [DMOVEM MOVEM] (TYPE VECTOR)>
+ <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE71>
+ <LOOP (TEMP40 VALUE) (TEMP39 LENGTH VALUE)>
+TAG83
+ <NTHUV TEMP39 1 = TEMP38>
+ <VEQUAL? TEMP38 TEMP40 + TAG82>
+ <DEAD TEMP38>
+ <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
+ <EMPUV? TEMP39 - TAG83>
+ <JUMP + PHRASE71>
+TAG82
+ <VEQUAL? SRC-USED12 0 + PHRASE86>
+ <RETURN 'T>
+PHRASE86
+ <SET TEMP27 %<> (TYPE FALSE)>
+ <JUMP + PHRASE129>
+PHRASE71
+ <SET TEMP40 TEMP27>
+ <EMPUV? TEMP40 + TAG91>
+ <LOOP (ACCUM4 VALUE) (TEMP40 LENGTH VALUE)>
+TAG92
+ <NTHUV TEMP40 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG93>
+ <VEQUAL? TEMP38 ACCUM4 + TAG95>
+ <DEAD TEMP38>
+TAG93
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG92>
+TAG91
+ <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE88>
+ <SET TEMP40 TEMP27>
+ <TYPE ACCUM27 = TEMP38>
+ <EMPUV? TEMP40 + PHRASE88>
+ <LOOP (ACCUM27 VALUE) (TEMP38 VALUE) (TEMP40 LENGTH VALUE)>
+TAG96
+ <NTHUV TEMP40 1 = TEMP39>
+ <TYPE? TEMP39 TEMP38 - TAG97>
+ <VEQUAL? TEMP39 ACCUM27 + TAG95>
+ <DEAD TEMP39>
+TAG97
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG96>
+ <JUMP + PHRASE88>
+TAG95
+ <NTHUV TEMP27 1 = TEMP40>
+ <SET TEMP38 [DMOVE MOVE MOVSI MOVEI MOVNI] (TYPE VECTOR)>
+ <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE88>
+ <LOOP (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
+TAG100
+ <NTHUV TEMP38 1 = TEMP39>
+ <VEQUAL? TEMP39 TEMP40 + TAG99>
+ <DEAD TEMP39>
+ <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
+ <EMPUV? TEMP38 - TAG100>
+ <JUMP + PHRASE88>
+TAG99
+ <LENUV TEMP27 = TEMP38 (TYPE FIX)>
+ <NTHUV TEMP27 TEMP38 = TEMP39>
+ <DEAD TEMP38>
+ <TYPE? TEMP39 <TYPE-CODE LIST> - BOOL102>
+ <NTHL TEMP39 1 = TEMP38>
+ <EQUAL? TEMP38 ACCUM4 + PHRASE88>
+ <DEAD TEMP38>
+ <NTHL TEMP39 1 = TEMP38>
+ <DEAD TEMP39>
+ <EQUAL? TEMP38 ACCUM27 + PHRASE88>
+ <DEAD TEMP38>
+BOOL102
+ <SET MOVED?8 'T (TYPE ATOM)>
+ <SET TEMP27 %<> (TYPE FALSE)>
+ <JUMP + PHRASE129>
+PHRASE88
+ <SET TEMP38 TEMP27>
+ <EMPUV? TEMP38 + TAG106>
+ <LOOP (ACCUM4 VALUE) (TEMP38 LENGTH VALUE)>
+TAG107
+ <NTHUV TEMP38 1 = TEMP40>
+ <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG108>
+ <VEQUAL? TEMP40 ACCUM4 + TAG110>
+ <DEAD TEMP40>
+TAG108
+ <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
+ <EMPUV? TEMP38 - TAG107>
+TAG106
+ <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE104>
+ <SET TEMP38 TEMP27>
+ <TYPE ACCUM27 = TEMP40>
+ <EMPUV? TEMP38 + PHRASE104>
+ <LOOP (ACCUM27 VALUE) (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
+TAG111
+ <NTHUV TEMP38 1 = TEMP39>
+ <TYPE? TEMP39 TEMP40 - TAG112>
+ <VEQUAL? TEMP39 ACCUM27 + TAG110>
+ <DEAD TEMP39>
+TAG112
+ <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
+ <EMPUV? TEMP38 - TAG111>
+ <JUMP + PHRASE104>
+TAG110
+ <VEQUAL? DST-USED13 0 + PHRASE114>
+ <RETURN 'T>
+PHRASE114
+ <SET SRC-USED12 'T (TYPE ATOM)>
+ <SET TEMP27 %<> (TYPE FALSE)>
+ <JUMP + PHRASE129>
+PHRASE104
+ <SET TEMP40 TEMP27>
+ <TYPE DEST6 = TEMP39>
+ <EMPUV? TEMP40 + TAG118>
+ <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
+TAG119
+ <NTHUV TEMP40 1 = TEMP38>
+ <TYPE? TEMP38 TEMP39 - TAG120>
+ <VEQUAL? TEMP38 DEST6 + TAG123>
+ <DEAD TEMP38>
+TAG120
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG119>
+TAG118
+ <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE116>
+ <SET TEMP40 TEMP27>
+ <DEAD TEMP27>
+ <TYPE DEST210 = TEMP39>
+ <EMPUV? TEMP40 + PHRASE116>
+ <LOOP (DEST210 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
+TAG124
+ <NTHUV TEMP40 1 = TEMP38>
+ <TYPE? TEMP38 TEMP39 - TAG125>
+ <VEQUAL? TEMP38 DEST210 + TAG123>
+ <DEAD TEMP38>
+TAG125
+ <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
+ <EMPUV? TEMP40 - TAG124>
+ <JUMP + PHRASE116>
+TAG123
+ <VEQUAL? SRC-USED12 0 + PHRASE127>
+ <RETURN 'T>
+PHRASE127
+ <SET DST-USED13 'T (TYPE ATOM)>
+ <SET TEMP27 %<> (TYPE FALSE)>
+ <JUMP + PHRASE129>
+PHRASE116
+ <SET TEMP27 %<> (TYPE FALSE)>
+PHRASE129
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + MAP20>
+MAPAP23
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+ <END \1aIS-THIS-AC-USED?>
+#WORD *1413243031*
+<GFCN \1aIS-REAL-AC? ("VALUE" <OR !<FALSE> <VECTOR ATOM [REST ATOM]>> ATOM) ITEM4>
+ <TEMP TEMP9 TEMP10>
+ <INTGO>
+ <SET TEMP9 [A1* A2* B1* B2* C1* C2* X* T*] (TYPE VECTOR)>
+ <LOOP (ITEM4 VALUE) (TEMP9 LENGTH VALUE)>
+TAG7
+ <NTHUV TEMP9 1 = TEMP10>
+ <VEQUAL? TEMP10 ITEM4 + TAG6>
+ <DEAD TEMP10>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <EMPUV? TEMP9 - TAG7>
+ <SET TEMP9 %<> (TYPE FALSE)>
+TAG6
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aIS-REAL-AC?>
+#WORD *35202355020*
+<GFCN
\1aMOVE-NEEDED? ("VALUE" <OR ATOM FALSE <VECTOR OLD-AND-USELESS>> <PRIMTYPE VECTOR> INST) NEW-T4 ITM5>
+ <TEMP TEMP13 BOTH?6 REG7:ATOM INDEX8:LIST REG210 TEMP26 TEMP28 TT29:VECTOR OP31 TEMP43 TEMP53 TEMP54 AFT-SKIP9>
+ <INTGO>
+ <NTHUV ITM5 1 = TEMP13>
+ <EQUAL? TEMP13 'DMOVE - TAG12>
+ <DEAD TEMP13>
+ <SET BOTH?6 'T (TYPE ATOM)>
+ <JUMP + TAG14>
+TAG12
+ <SET BOTH?6 %<> (TYPE FALSE)>
+TAG14
+ <NTHUV ITM5 2 = REG7 (TYPE ATOM)>
+ <CONS REG7 () = INDEX8>
+ <SET TEMP13 BOTH?6>
+ <VEQUAL? TEMP13 0 + BOOL15>
+ <FRAME '\1aGETPROP>
+ <PUSH REG7>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TEMP13>
+BOOL15
+ <SET REG210 TEMP13>
+ <DEAD TEMP13>
+ <SET TEMP13 BOTH?6>
+ <VEQUAL? TEMP13 0 + BOOL17>
+ <CONS REG210 () = TEMP13>
+BOOL17
+ <SET TEMP26 %<> (TYPE FALSE)>
+ <RESTUV NEW-T4 1 = TEMP28 (TYPE VECTOR)>
+ <CHTYPE TEMP28 <TYPE-CODE VECTOR> = TEMP28>
+ <LOOP>
+MAP19
+ <INTGO>
+ <EMPUV? TEMP28 + MAPAP22>
+ <SET TT29 TEMP28>
+ <NTHUV TT29 1 = TEMP26>
+ <NTHUV TEMP26 1 = OP31>
+ <TYPE? TEMP26 <TYPE-CODE REF> - PHRASE34>
+ <FRAME '\1aL-LOOP?>
+ <PUSH TT29>
+ <DEAD TT29>
+ <CALL '\1aL-LOOP? 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE38>
+ <DEAD TEMP13>
+ <FRAME '\1aELIMINATE>
+ <NTHUV NEW-T4 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP13>
+ <PUTUV NEW-T4 1 TEMP13>
+ <DEAD NEW-T4 TEMP13>
+PHRASE38
+ <RETURN 'T>
+PHRASE34
+ <EQUAL? OP31 'PUSHJ + BOOL41>
+ <EQUAL? OP31 'JSP + BOOL41>
+ <EQUAL? OP31 'JRST - BOOL42>
+ <NTHUV TEMP26 2 = TEMP43>
+ <EQUAL? TEMP43 '@ + BOOL41>
+ <DEAD TEMP43>
+BOOL42
+ <EQUAL? OP31 'LDB - PHRASE40>
+ <FRAME '\1aLDB-REGISTER-USED?>
+ <PUSH TEMP26>
+ <PUSH REG7>
+ <PUSH REG210>
+ <CALL '\1aLDB-REGISTER-USED? 3 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE40>
+ <DEAD TEMP43>
+BOOL41
+ <RETURN 'T>
+PHRASE40
+ <NTHUV TEMP26 1 = TEMP43>
+ <PUSH 'DMOVE>
+ <PUSH 'MOVE>
+ <PUSH 'MOVNI>
+ <PUSH 'MOVSI>
+ <PUSH 'MOVEI>
+ <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP53>
+ <TYPE? TEMP43 <TYPE-CODE ATOM> - PHRASE46>
+ <LOOP (TEMP43 VALUE) (TEMP53 LENGTH VALUE)>
+TAG49
+ <NTHUV TEMP53 1 = TEMP54>
+ <VEQUAL? TEMP54 TEMP43 + TAG48>
+ <DEAD TEMP54>
+ <RESTUV TEMP53 1 = TEMP53 (TYPE VECTOR)>
+ <EMPUV? TEMP53 - TAG49>
+ <JUMP + PHRASE46>
+TAG48
+ <NTHUV TEMP26 2 = TEMP53>
+ <EQUAL? TEMP53 REG7 - PHRASE46>
+ <DEAD TEMP53>
+ <FRAME '\1a=?>
+ <PUSH TEMP26>
+ <PUSH ITM5>
+ <CALL '\1a=? 2 = TEMP53>
+ <VEQUAL? TEMP53 0 + PHRASE46>
+ <DEAD TEMP53>
+ <LENUV TEMP26 = TEMP53 (TYPE FIX)>
+ <NTHUV TEMP26 TEMP53 = TEMP43>
+ <DEAD TEMP53>
+ <TYPE? TEMP43 <TYPE-CODE LIST> - BOOL56>
+ <NTHL TEMP43 1 = TEMP53>
+ <DEAD TEMP43>
+ <EQUAL? TEMP53 REG7 + PHRASE46>
+ <DEAD TEMP53>
+BOOL56
+ <SET AFT-SKIP9 %<> (TYPE FALSE)>
+ <FRAME '\1aELIMINATE>
+ <NTHUV TT29 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP53>
+ <PUTUV TT29 1 TEMP53>
+ <DEAD TEMP53>
+ <SET TEMP26 TT29>
+ <DEAD TT29>
+ <JUMP + PHRASE102>
+PHRASE46
+ <FRAME '\1aMEMBER>
+ <PUSH INDEX8>
+ <PUSH TEMP26>
+ <CALL '\1aMEMBER 2 = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE FALSE> + PHRASE58>
+ <DEAD TEMP53>
+ <RETURN 'T>
+PHRASE58
+ <EQUAL? OP31 'MOVEM - PHRASE60>
+ <SET TEMP43 TEMP26>
+ <EMPUV? TEMP43 + PHRASE60>
+ <LOOP (REG7 VALUE) (TEMP43 LENGTH VALUE)>
+TAG63
+ <NTHUV TEMP43 1 = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG64>
+ <VEQUAL? TEMP54 REG7 + TAG62>
+ <DEAD TEMP54>
+TAG64
+ <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
+ <EMPUV? TEMP43 - TAG63>
+ <JUMP + PHRASE60>
+TAG62
+ <NTHUV TEMP26 3 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE LOCAL-NAME> - PHRASE66>
+ <DEAD TEMP43>
+ <FRAME '\1a=?>
+ <RESTUV TEMP26 2 = TEMP43 (TYPE VECTOR)>
+ <DEAD TEMP26>
+ <CHTYPE TEMP43 <TYPE-CODE VECTOR> = STACK>
+ <DEAD TEMP43>
+ <RESTUV ITM5 2 = TEMP54 (TYPE VECTOR)>
+ <DEAD ITM5>
+ <CHTYPE TEMP54 <TYPE-CODE VECTOR> = STACK>
+ <DEAD TEMP54>
+ <CALL '\1a=? 2 = TEMP13>
+ <VEQUAL? TEMP13 0 + PHRASE66>
+ <DEAD TEMP13>
+ <FRAME '\1aELIMINATE>
+ <NTHUV NEW-T4 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP13>
+ <PUTUV NEW-T4 1 TEMP13>
+ <DEAD NEW-T4 TEMP13>
+ <FRAME '\1aELIMINATE>
+ <NTHUV TT29 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP13>
+ <PUTUV TT29 1 TEMP13>
+ <DEAD TT29 TEMP13>
+PHRASE66
+ <RETURN 'T>
+PHRASE60
+ <EQUAL? OP31 'DMOVEM - PHRASE72>
+ <DEAD OP31>
+ <FRAME '\1aGETPROP>
+ <PUSH REG7>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = REG210>
+ <TYPE? REG210 <TYPE-CODE FALSE> + PHRASE72>
+ <SET OP31 TEMP26>
+ <EMPUV? OP31 + PHRASE72>
+ <LOOP (REG210 VALUE) (OP31 LENGTH VALUE)>
+TAG76
+ <NTHUV OP31 1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG77>
+ <VEQUAL? TEMP43 REG210 + TAG75>
+ <DEAD TEMP43>
+TAG77
+ <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
+ <EMPUV? OP31 - TAG76>
+ <JUMP + PHRASE72>
+TAG75
+ <RETURN 'T>
+PHRASE72
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <PUSH TEMP26>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE80>
+ <DEAD TEMP43>
+ <VEQUAL? AFT-SKIP9 0 - PHRASE80>
+ <DEAD AFT-SKIP9>
+ <FRAME '\1aELIMINATE>
+ <NTHUV NEW-T4 1 = STACK>
+ <CALL '\1aELIMINATE 1 = TEMP43>
+ <PUTUV NEW-T4 1 TEMP43>
+ <DEAD NEW-T4 TEMP43>
+ <RETURN 'T>
+PHRASE80
+ <VEQUAL? BOTH?6 0 + BOOL86>
+ <SET OP31 TEMP26>
+ <TYPE REG210 = TEMP43>
+ <EMPUV? OP31 + TAG88>
+ <LOOP (REG210 VALUE) (TEMP43 VALUE) (OP31 LENGTH VALUE)>
+TAG89
+ <NTHUV OP31 1 = TEMP53>
+ <TYPE? TEMP53 TEMP43 - TAG90>
+ <VEQUAL? TEMP53 REG210 + TAG95>
+ <DEAD TEMP53>
+TAG90
+ <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
+ <EMPUV? OP31 - TAG89>
+TAG88
+ <FRAME '\1aMEMBER>
+ <PUSH TEMP13>
+ <PUSH TEMP26>
+ <CALL '\1aMEMBER 2 = OP31>
+ <TYPE? OP31 <TYPE-CODE FALSE> - TAG95>
+ <DEAD OP31>
+BOOL86
+ <SET OP31 TEMP26>
+ <EMPUV? OP31 + PHRASE84>
+ <LOOP (REG7 VALUE) (OP31 LENGTH VALUE)>
+TAG96
+ <NTHUV OP31 1 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG97>
+ <VEQUAL? TEMP43 REG7 + TAG95>
+ <DEAD TEMP43>
+TAG97
+ <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
+ <EMPUV? OP31 - TAG96>
+ <JUMP + PHRASE84>
+TAG95
+ <RETURN 'T>
+PHRASE84
+ <FRAME '\1aCONDITIONAL-SKIP?>
+ <PUSH TEMP26>
+ <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP43>
+ <VEQUAL? TEMP43 0 - BOOL99>
+ <DEAD TEMP43>
+ <FRAME '\1aUNCONDITIONAL-SKIP?>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <CALL '\1aUNCONDITIONAL-SKIP? 1 = TEMP43>
+ <VEQUAL? TEMP43 0 + PHRASE98>
+ <DEAD TEMP43>
+BOOL99
+ <SET AFT-SKIP9 'T (TYPE ATOM)>
+ <SET TEMP26 AFT-SKIP9>
+ <JUMP + PHRASE102>
+PHRASE98
+ <SET AFT-SKIP9 %<> (TYPE FALSE)>
+ <SET TEMP26 AFT-SKIP9>
+PHRASE102
+ <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
+ <JUMP + MAP19>
+MAPAP22
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+ <END \1aMOVE-NEEDED?>
+#WORD *30337661220*
+<GFCN
\1aBRANCH-CHAIN ("VALUE" <OR FALSE <<PRIMTYPE VECTOR> ANY OLD-AND-USELESS>> <PRIMTYPE VECTOR>) NEW-T4>
+ <TEMP TAG15:REF JUMP16 TEMP9 (FLUSHIT8 'T) LINE21 TEMP24 TEMP30>
+ <INTGO>
+ <NTHUV NEW-T4 1 = TAG15 (TYPE REF)>
+ <NTHUV NEW-T4 2 = JUMP16 (TYPE INST)>
+ <LENUV JUMP16 = TEMP9 (TYPE FIX)>
+ <NTHUV JUMP16 TEMP9 = JUMP16 (TYPE REF)>
+ <DEAD TEMP9>
+ <NTHUV TAG15 3 = TEMP9>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPTY? TEMP9 + MAPAP14>
+ <NTH1 TEMP9 = LINE21>
+ <NTHUV LINE21 1 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE SGFRM> - PHRASE23>
+ <DEAD TEMP24>
+ <SET FLUSHIT8 %<> (TYPE FALSE)>
+ <JUMP + PHRASE25>
+PHRASE23
+ <NTHUV LINE21 1 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE GFRM> + TAG28>
+ <TYPE? TEMP24 <TYPE-CODE SBFRM> - PHRASE27>
+ <DEAD TEMP24>
+TAG28
+ <NTHUV JUMP16 1 = TEMP24>
+ <NTHUV LINE21 1 = TEMP30>
+ <CHTYPE TEMP24 <TYPE TEMP30> = TEMP24>
+ <DEAD TEMP30>
+ <PUTUV LINE21 1 TEMP24>
+ <DEAD TEMP24>
+PHRASE27
+ <LENUV LINE21 = TEMP24 (TYPE FIX)>
+ <PUTUV LINE21 TEMP24 JUMP16>
+ <DEAD TEMP24>
+ <PUSH LINE21>
+ <DEAD LINE21>
+ <SET TEMP30 1 (TYPE FIX)>
+ <NTHUV JUMP16 3 = TEMP24>
+ <TYPE TEMP24 = LINE21>
+ <AND LINE21 7 = LINE21>
+ <VEQUAL? LINE21 1 + TAG33>
+ <DEAD LINE21>
+ <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
+TAG39
+ <INTGO>
+ <EMPTY? TEMP24 + TAG38>
+ <NTH1 TEMP24 = STACK>
+ <REST1 TEMP24 = TEMP24>
+ <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
+ <JUMP + TAG39>
+TAG38
+ <LIST TEMP30 = TEMP24 (TYPE LIST)>
+ <DEAD TEMP30>
+ <JUMP + TAG35>
+TAG33
+ <LOOP>
+TAG36
+ <VEQUAL? TEMP30 0 + TAG35>
+ <POP = LINE21>
+ <CONS LINE21 TEMP24 = TEMP24 (TYPE LIST)>
+ <DEAD LINE21>
+ <SUB TEMP30 1 = TEMP30 (TYPE FIX)>
+ <JUMP + TAG36>
+TAG35
+ <PUTUV JUMP16 3 TEMP24>
+ <DEAD TEMP24>
+PHRASE25
+ <REST1 TEMP9 = TEMP9>
+ <JUMP + MAP11>
+MAPAP14
+ <SET TEMP9 FLUSHIT8>
+ <DEAD FLUSHIT8>
+ <VEQUAL? TEMP9 0 + PHRASE44>
+ <NTHUV TAG15 1 = STACK>
+ <DEAD TAG15>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = FLUSHIT8>
+ <CHTYPE FLUSHIT8 <TYPE-CODE OLD-AND-USELESS> = FLUSHIT8>
+ <PUTUV NEW-T4 1 FLUSHIT8>
+ <DEAD FLUSHIT8>
+ <FRAME '\1aUNCONDITIONAL-BRANCH?>
+ <BACKU NEW-T4 1 = FLUSHIT8>
+ <NTHUV FLUSHIT8 1 = STACK>
+ <DEAD FLUSHIT8>
+ <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE44>
+ <FRAME '\1aCONDITIONAL-SKIP?>
+ <BACKU NEW-T4 2 = FLUSHIT8>
+ <NTHUV FLUSHIT8 1 = STACK>
+ <DEAD FLUSHIT8>
+ <CALL '\1aCONDITIONAL-SKIP? 1 = FLUSHIT8>
+ <VEQUAL? FLUSHIT8 0 + TAG48>
+ <DEAD FLUSHIT8>
+ <RETURN %<>>
+TAG48
+ <FRAME '\1aELIMINATE>
+ <NTHUV NEW-T4 2 = STACK>
+ <CALL '\1aELIMINATE 1 = FLUSHIT8>
+ <PUTUV NEW-T4 2 FLUSHIT8>
+ <DEAD FLUSHIT8>
+ <SET TEMP9 NEW-T4>
+ <DEAD NEW-T4>
+PHRASE44
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aBRANCH-CHAIN>
+#WORD *21551514432*
+<GFCN \1aLDB-REGISTER-USED? ("VALUE" <OR ATOM FALSE> INST ATOM <OR FALSE ATOM>) ITM4 REG15 REG26>
+ <TEMP TEMP14 CNST7 CONSTANT8>
+ <INTGO>
+ <NTHUV ITM4 3 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE REF> + TAG15>
+ <DEAD TEMP14>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + BOOL12>
+TAG15
+ <NTHUV ITM4 3 = TEMP14 (TYPE REF)>
+ <DEAD ITM4>
+ <NTHUV TEMP14 1 = TEMP14>
+BOOL12
+ <SET CNST7 TEMP14>
+ <DEAD TEMP14>
+ <GVAL 'CONSTANT-VECTOR = CONSTANT8>
+ <TYPE? CNST7 <TYPE-CODE CONSTANT-BUCKET> - TAG20>
+ <EMPL? CONSTANT8 + TAG20>
+ <LOOP (CNST7 VALUE) (CONSTANT8 VALUE)>
+TAG22
+ <NTHL CONSTANT8 1 = TEMP14>
+ <VEQUAL? TEMP14 CNST7 + TAG21>
+ <DEAD TEMP14>
+ <RESTL CONSTANT8 1 = CONSTANT8 (TYPE LIST)>
+ <EMPL? CONSTANT8 - TAG22>
+TAG20
+ <SET CONSTANT8 %<> (TYPE FALSE)>
+TAG21
+ <VEQUAL? CONSTANT8 0 + PHRASE18>
+ <RESTL CONSTANT8 1 = TEMP14 (TYPE LIST)>
+ <DEAD CONSTANT8>
+ <NTHL TEMP14 1 = TEMP14 (TYPE CONSTANT-BUCKET)>
+PHRASE18
+ <RETURN 'T>
+ <END \1aLDB-REGISTER-USED?>
+<PUTPROP A1* AC-PAIR A2*>
+
+<PUTPROP A2* AC-PAIR A1*>
+
+<PUTPROP B1* AC-PAIR B2*>
+
+<PUTPROP B2* AC-PAIR B1*>
+
+<PUTPROP C1* AC-PAIR C2*>
+
+<PUTPROP C2* AC-PAIR C1*>
+
+#WORD *25356606457*
+<GFCN
\1aL-LOOP? ("VALUE" <OR ATOM FALSE> <PRIMTYPE VECTOR>) TUP4>
+ <TEMP LAB5 TEMP15 TEMP17 TEMP28 TEMP29>
+ <INTGO>
+ <NTHUV TUP4 1 = LAB5>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <RESTUV TUP4 1 = TEMP17 (TYPE VECTOR)>
+ <DEAD TUP4>
+ <CHTYPE TEMP17 <TYPE-CODE VECTOR> = TEMP17>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPUV? TEMP17 + MAPAP10>
+ <SET TEMP15 TEMP17>
+ <NTHUV TEMP15 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE REF> - PHRASE21>
+ <RETURN %<>>
+PHRASE21
+ <TYPE LAB5 = TEMP28>
+ <EMPTY? TEMP15 + TAG24>
+ <LOOP (LAB5 VALUE) (TEMP28 VALUE) (TEMP15 LENGTH VALUE TYPE)>
+TAG26
+ <NTH1 TEMP15 = TEMP29>
+ <TYPE? TEMP29 TEMP28 - TAG27>
+ <VEQUAL? TEMP29 LAB5 + TAG25>
+ <DEAD TEMP29>
+TAG27
+ <REST1 TEMP15 = TEMP15>
+ <EMPTY? TEMP15 - TAG26>
+TAG24
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE23>
+TAG25
+ <RETURN 'T>
+PHRASE23
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aL-LOOP?>
+<SETG CIRC-LOOP? <>>
+
+#WORD *30633462417*
+<GFCN \1aELIMINATE ("VALUE" OLD-AND-USELESS ANY) STATEMENT4>
+ <TEMP TEMP9 LAST5 TEMP33 TEMP37 LINE38>
+ <INTGO>
+ <GEN-LVAL 'PREVIOUS = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE INST> - PHRASE7>
+ <DEAD TEMP9>
+ <FRAME '\1aCONDITIONAL-SKIP?>
+ <GEN-LVAL 'PREVIOUS = STACK>
+ <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP9>
+ <VEQUAL? TEMP9 0 + PHRASE7>
+ <DEAD TEMP9>
+ <FRAME '\1aMOVE?>
+ <PUSH STATEMENT4>
+ <CALL '\1aMOVE? 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7>
+ <DEAD TEMP9>
+ <FRAME '\1aPUT>
+ <GEN-LVAL 'PREVIOUS = STACK>
+ <PUSH 1>
+ <PUSH 'MOVE>
+ <CALL '\1aPUT 3>
+PHRASE7
+ <TYPE? STATEMENT4 <TYPE-CODE REF> - PHRASE21>
+ <PUTUV STATEMENT4 3 ()>
+ <NTHUV STATEMENT4 1 = STACK>
+ <DEAD STATEMENT4>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP9>
+ <CHTYPE TEMP9 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE21
+ <TYPE? STATEMENT4 <TYPE-CODE INST> - PHRASE24>
+ <LENUV STATEMENT4 = TEMP9 (TYPE FIX)>
+ <NTHUV STATEMENT4 TEMP9 = LAST5>
+ <DEAD TEMP9>
+ <TYPE? LAST5 <TYPE-CODE REF> - PHRASE24>
+ <LENUV LAST5 = TEMP9 (TYPE FIX)>
+ <VEQUAL? TEMP9 3 - PHRASE24 (TYPE FIX)>
+ <DEAD TEMP9>
+ <NTHUV LAST5 3 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE LIST> - PHRASE24>
+ <DEAD TEMP9>
+ <SET TEMP9 () (TYPE LIST)>
+ <SET TEMP33 () (TYPE LIST)>
+ <NTHUV LAST5 3 = TEMP37 (TYPE LIST)>
+ <LOOP>
+MAP28
+ <INTGO>
+ <EMPL? TEMP37 + MAPAP31>
+ <NTHL TEMP37 1 = LINE38>
+ <EQUAL? LINE38 STATEMENT4 + PHRASE42>
+ <CONS LINE38 () = LINE38 (TYPE LIST)>
+ <EMPL? TEMP9 - TAG45>
+ <SET TEMP9 LINE38 (TYPE LIST)>
+ <JUMP + TAG46>
+TAG45
+ <PUTREST TEMP33 LINE38>
+ <DEAD TEMP33>
+TAG46
+ <SET TEMP33 LINE38 (TYPE LIST)>
+ <DEAD LINE38>
+PHRASE42
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <JUMP + MAP28>
+MAPAP31
+ <PUTUV LAST5 3 TEMP9 (TYPE LIST)>
+ <DEAD TEMP9>
+ <LENUV STATEMENT4 = TEMP37 (TYPE FIX)>
+ <NTHUV LAST5 1 = STACK>
+ <DEAD LAST5>
+ <UBLOCK <TYPE-CODE VECTOR> 1 = LINE38>
+ <CHTYPE LINE38 <TYPE-CODE REF> = LINE38>
+ <PUTUV STATEMENT4 TEMP37 LINE38>
+ <DEAD TEMP37 LINE38>
+ <CHTYPE STATEMENT4 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
+ <DEAD STATEMENT4>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE24
+ <CHTYPE STATEMENT4 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
+ <DEAD STATEMENT4>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aELIMINATE>
+<PROG () <MAKE-OPPOSITES CAIGE CAIL> <MAKE-OPPOSITES CAIN CAIE> <MAKE-OPPOSITES CAIG CAILE> <MAKE-OPPOSITES CAMGE CAML> <MAKE-OPPOSITES CAMN CAME> <MAKE-OPPOSITES CAMG CAMLE> <MAKE-OPPOSITES SKIPLE SKIPG> <MAKE-OPPOSITES SKIPGE SKIPL> <MAKE-OPPOSITES SKIPN SKIPE> <MAKE-OPPOSITES TRNN TRNE> <MAKE-OPPOSITES TLNN TLNE> <MAKE-OPPOSITES JUMPGE JUMPL> <MAKE-OPPOSITES JUMPN JUMPE> <MAKE-OPPOSITES JUMPG JUMPLE> <MAKE-OPPOSITES SOJG SOJLE> <MAKE-OPPOSITES SOJL SOJGE> <MAKE-OPPOSITES SOJE SOJN>>
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff