--- /dev/null
+
+<PACKAGE "STRANA">
+
+<ENTRY LENGTH-ANA EMPTY?-ANA LENGTH?-ANA NTH-ANA REST-ANA PUT-ANA PUTREST-ANA MEMQ-ANA NTH-REST-ANA MONAD-ANA BACK-ANA TOP-ANA>
+
+<USE "SYMANA" "CHKDCL" "COMPDEC" "ADVMESS">
+
+"Structure hackers for the compiler (analyzers)"
+
+#WORD *16412023243*
+<GFCN \1aLNTH-MT-ANA ("VALUE" ANY NODE ANY FIX) NOD4 RTYP5 COD6>
+ <TEMP K7:LIST LN8 TEMP3:LBIND (TY11 'BOOLEAN) TEMP22 TEMP27>
+ <INTGO>
+ <NTHUV NOD4 5 = K7 (TYPE LIST)>
+ <LENL K7 = LN8 (TYPE FIX)>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'WHO 'LIST 'FIX ()>
+ <VEQUAL? COD6 25 - BOOL16 (TYPE FIX)>
+ <GEN-ASSIGNED? 'GLN - BOOL16>
+ <FRAME '\1aANCEST>
+ <GEN-LVAL 'GLN = STACK>
+ <NTHUV NOD4 2 = STACK (TYPE NODE)>
+ <CALL '\1aANCEST 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - TAG28>
+ <DEAD TEMP22>
+BOOL16
+ <GEN-LVAL 'PRED = TEMP22>
+ <NTHUV NOD4 2 = TEMP27>
+ <EQUAL? TEMP22 TEMP27 + TAG24>
+ <DEAD TEMP22 TEMP27>
+ <SET TEMP22 %<> (TYPE FALSE)>
+ <JUMP + BOOL13>
+TAG24
+ <VEQUAL? COD6 26 + TAG28 (TYPE FIX)>
+ <SET TEMP22 %<> (TYPE FALSE)>
+ <JUMP + BOOL13>
+TAG28
+ <SET TEMP22 NOD4>
+BOOL13
+ <BBIND 'WHON <OR NODE FALSE> 'FIX TEMP22>
+ <DEAD TEMP22>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE38>
+ <DEAD TEMP22>
+ <FRAME '\1aARGCHK>
+ <PUSH LN8>
+ <DEAD LN8>
+ <PUSH 1>
+ <NTHUV NOD4 4 = STACK>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aSTRUCTYP>
+ <FRAME '\1aEANA>
+ <NTHL K7 1 = STACK (TYPE NODE)>
+ <PUSH 'STRUCTURED>
+ <NTHUV NOD4 4 = STACK>
+ <CALL '\1aEANA 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL37>
+ <DEAD TEMP22>
+ <VEQUAL? COD6 26 - PHRASE36 (TYPE FIX)>
+BOOL37
+ <PUTUV NOD4 1 COD6 (TYPE FIX)>
+ <SET TY11 'BOOLEAN (TYPE ATOM)>
+ <JUMP + PHRASE38>
+PHRASE36
+ <GEN-LVAL 'VERBOSE = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE40>
+ <DEAD TEMP22>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <NTHL K7 1 = TEMP22 (TYPE NODE)>
+ <DEAD K7>
+ <NTHUV TEMP22 3 = TEMP22>
+ <CONS TEMP22 () = TEMP22>
+ <CONS "Not open compiled because type is: " TEMP22 = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aADDVMESS 2>
+PHRASE40
+ <PUTUV NOD4 1 52 (TYPE FIX)>
+PHRASE38
+ <VEQUAL? COD6 26 - PHRASE45 (TYPE FIX)>
+ <DEAD COD6>
+ <NTHR 'WHO 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <LOOP>
+MAP47
+ <INTGO>
+ <EMPL? TEMP22 + PHRASE67>
+ <NTHL TEMP22 1 = K7>
+ <RESTL K7 1 = TEMP27 (TYPE LIST)>
+ <NTHL TEMP27 1 = TEMP27 (TYPE SYMTAB)>
+ <NTHL K7 1 = LN8>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <PUSH <STRUCTURED ANY>>
+ <GEN-LVAL 'UNTRUTH = STACK>
+ <PUSH LN8>
+ <DEAD LN8>
+ <RESTL K7 1 = TEMP27 (TYPE LIST)>
+ <DEAD K7>
+ <RESTL TEMP27 1 = STACK (TYPE LIST)>
+ <DEAD TEMP27>
+ <CALL '\1aADD-TYPE-LIST 5 = TEMP27>
+ <GEN-SET 'UNTRUTH TEMP27>
+ <DEAD TEMP27>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <JUMP + MAP47>
+PHRASE45
+ <NTHR 'WHO 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <GEN-SET 'GLE TEMP22>
+ <DEAD TEMP22>
+PHRASE67
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV NOD4 9 = TEMP22>
+ <DEAD NOD4>
+ <GVAL 'LENGTH = TEMP27>
+ <EQUAL? TEMP22 TEMP27 - PHRASE74>
+ <DEAD TEMP22 TEMP27>
+ <FRAME '\1aFORM>
+ <PUSH 'FIX>
+ <GVAL 'PLUSINF = TEMP27>
+ <CONS TEMP27 () = TEMP27>
+ <CONS 0 TEMP27 = STACK>
+ <DEAD TEMP27>
+ <CALL '\1aFORM 2 = TEMP27>
+ <JUMP + PHRASE76>
+PHRASE74
+ <SET TEMP27 TY11>
+ <DEAD TY11>
+PHRASE76
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP27>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+ <END \1aLNTH-MT-ANA>
+#WORD *3466570113*
+<GFCN \1aANCEST ("VALUE" <OR ATOM FALSE> NODE NODE) N14 N25>
+ <TEMP TEMP6>
+ <INTGO>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <VEQUAL? N14 N25 - PHRASE11>
+ <RETURN 'T>
+PHRASE11
+ <NTHUV N25 1 = TEMP6 (TYPE FIX)>
+ <VEQUAL? TEMP6 11 + BOOL12 (TYPE FIX)>
+ <DEAD TEMP6>
+ <RETURN %<>>
+BOOL12
+ <NTHUV N25 2 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE NODE> - PHRASE15>
+ <DEAD TEMP6>
+ <NTHUV N25 2 = N25 (TYPE NODE)>
+ <JUMP + AGAIN9>
+PHRASE15
+ <RETURN %<>>
+ <END \1aANCEST>
+#WORD *20205646632*
+<GFCN \1aLENGTH-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aLNTH-MT-ANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 25>
+ <CALL '\1aLNTH-MT-ANA 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aLENGTH-ANA>
+#WORD *20124717570*
+<GFCN \1aEMPTY?-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aLNTH-MT-ANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 26>
+ <CALL '\1aLNTH-MT-ANA 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aEMPTY?-ANA>
+<COND (<GASSIGNED? LENGTH-ANA> <PUTPROP ,EMPTY? ANALYSIS ,EMPTY?-ANA> <PUTPROP ,LENGTH ANALYSIS ,LENGTH-ANA>)>
+
+#WORD *2370326125*
+<GFCN \1aLENGTH?-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6:LIST TEMP3:LBIND TEMP13 TEMP16 TEMP37 L40:LIST FLG42>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'WHO 'LIST 'FIX ()>
+ <GEN-LVAL 'PRED = TEMP13>
+ <NTHUV NOD4 2 = TEMP16>
+ <EQUAL? TEMP13 TEMP16 + TAG12>
+ <DEAD TEMP13 TEMP16>
+ <SET TEMP13 %<> (TYPE FALSE)>
+ <JUMP + BOOL10>
+TAG12
+ <SET TEMP13 NOD4>
+BOOL10
+ <BBIND 'WHON 'ANY 'FIX TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE19>
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 2>
+ <PUSH 'LENGTH?>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'STRUCTURED>
+ <PUSH 'LENGTH?>
+ <CALL '\1aEANA 3 = TEMP13>
+ <NTHR 'WHON 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP16 1 %<> (RECORD-TYPE LBIND)>
+ <DEAD TEMP16>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = STACK (TYPE NODE)>
+ <DEAD TEMP16>
+ <PUSH 'FIX>
+ <PUSH 'LENGTH?>
+ <CALL '\1aEANA 3>
+ <RESTL K6 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TEMP16 (TYPE NODE)>
+ <NTHUV TEMP16 1 = TEMP16 (TYPE FIX)>
+ <VEQUAL? TEMP16 2 - MAPAP31 (TYPE FIX)>
+ <DEAD TEMP16>
+ <NTHR 'WHO 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = TEMP16 (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <LOOP>
+MAP28
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP31>
+ <NTHL TEMP16 1 = L40>
+ <RESTL L40 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = TEMP37 (TYPE SYMTAB)>
+ <NTHL L40 1 = FLG42>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <RESTL K6 1 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = TEMP37 (TYPE NODE)>
+ <NTHUV TEMP37 4 = STACK>
+ <DEAD TEMP37>
+ <PUSH 'ANY>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = STACK>
+ <GEN-LVAL 'TRUTH = STACK>
+ <PUSH FLG42>
+ <DEAD FLG42>
+ <RESTL L40 1 = TEMP37 (TYPE LIST)>
+ <DEAD L40>
+ <RESTL TEMP37 1 = STACK (TYPE LIST)>
+ <DEAD TEMP37>
+ <CALL '\1aADD-TYPE-LIST 5 = TEMP37>
+ <GEN-SET 'UNTRUTH TEMP37>
+ <DEAD TEMP37>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP28>
+MAPAP31
+ <FRAME '\1aSTRUCTYP>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <CALL '\1aSTRUCTYP 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE52>
+ <DEAD TEMP13>
+ <PUTUV NOD4 1 69 (TYPE FIX)>
+ <JUMP + PHRASE54>
+PHRASE52
+ <GEN-LVAL 'VERBOSE = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE56>
+ <DEAD TEMP16>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <NTHL K6 1 = TEMP13 (TYPE NODE)>
+ <NTHUV TEMP13 3 = TEMP13>
+ <CONS TEMP13 () = TEMP37>
+ <DEAD TEMP13>
+ <CONS "Not open compiled because type is: " TEMP37 = STACK>
+ <DEAD TEMP37>
+ <CALL '\1aADDVMESS 2>
+PHRASE56
+ <PUTUV NOD4 1 52 (TYPE FIX)>
+PHRASE54
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <FRAME '\1aFORM>
+ <PUSH 'FIX>
+ <RESTL K6 1 = TEMP37 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL TEMP37 1 = TEMP37 (TYPE NODE)>
+ <NTHUV TEMP37 1 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 2 - PHRASE64 (TYPE FIX)>
+ <DEAD TEMP37>
+ <NTHUV NOD4 4 = TEMP37>
+ <DEAD NOD4>
+ <JUMP + PHRASE65>
+PHRASE64
+ <GVAL 'PLUSINF = TEMP37>
+PHRASE65
+ <CONS TEMP37 () = TEMP37>
+ <CONS 0 TEMP37 = STACK>
+ <DEAD TEMP37>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH 'FALSE>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+PHRASE19
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aLENGTH?-ANA>
+<COND (<GASSIGNED? LENGTH?-ANA> <PUTPROP ,LENGTH? ANALYSIS ,LENGTH?-ANA>)>
+
+#WORD *35310042237*
+<GFCN \1aMONAD-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6:LIST LN7:FIX TEMP12>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <LENL K6 = LN7 (TYPE FIX)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP12>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <PUSH 'BOOLEAN>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <FRAME '\1aARGCHK>
+ <PUSH LN7>
+ <DEAD LN7>
+ <PUSH 1>
+ <PUSH 'MONAD?>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <DEAD K6>
+ <PUSH 'STRUCTURED>
+ <NTHUV NOD4 4 = STACK>
+ <CALL '\1aEANA 3>
+ <PUTUV NOD4 1 91 (TYPE FIX)>
+ <DEAD NOD4>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <PUSH 'BOOLEAN>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMONAD-ANA>
+<COND (<GASSIGNED? MONAD-ANA> <PUTPROP ,MONAD? ANALYSIS ,MONAD-ANA>)>
+
+#WORD *13070412356*
+<GFCN \1aNTH-REST-ANA ("VALUE" ANY NODE ANY FIX "OPTIONAL" ANY) NOD6 RTYP7 COD8 TF9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP K10:LIST LN11 TEMP24 TEMP26 RV15 (SVWHO16:LIST ()) AMT17 NM19 TEMP35 OWHON21 TPS14 NUMB22>
+ <INTGO>
+ <NTHUV NOD6 5 = K10 (TYPE LIST)>
+ <LENL K10 = LN11 (TYPE FIX)>
+ <SET TEMP24 TF9>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> - TAG27>
+ <NTHUV NOD6 4 = TEMP26>
+ <EQUAL? TEMP26 'INTH - TAG25>
+ <DEAD TEMP26>
+ <SET TEMP24 'T (TYPE ATOM)>
+ <JUMP + TAG27>
+TAG25
+ <SET TEMP24 %<> (TYPE FALSE)>
+TAG27
+ <SET RV15 TEMP24>
+ <DEAD TEMP24>
+ <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE29>
+ <SET NM19 'NTH (TYPE ATOM)>
+ <JUMP + PHRASE30>
+PHRASE29
+ <NTHUV NOD6 4 = NM19>
+PHRASE30
+ <GEN-LVAL 'WHON = TEMP26>
+ <NTHUV NOD6 2 = TEMP35>
+ <EQUAL? TEMP26 TEMP35 + TAG32>
+ <DEAD TEMP26 TEMP35>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <JUMP + BOOL31>
+TAG32
+ <SET TEMP24 NOD6>
+BOOL31
+ <SET OWHON21 TEMP24>
+ <DEAD TEMP24>
+ <GETS 'BIND = TEMP24 (TYPE LBIND)>
+ <BBIND 'WHO 'LIST 'FIX ()>
+ <BBIND 'WHON 'ANY 'FIX %<>>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD6>
+ <PUSH RTYP7>
+ <CALL '\1aSEGFLUSH 2 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> - PHRASE42>
+ <VEQUAL? LN11 1 - PHRASE44 (TYPE FIX)>
+ <NTHL K10 1 = TEMP35 (TYPE NODE)>
+ <DEAD K10>
+ <CONS TEMP35 () = TEMP35>
+ <FRAME '\1aNODE1>
+ <PUSH 2>
+ <PUSH NOD6>
+ <PUSH 'FIX>
+ <PUSH 1>
+ <PUSH ()>
+ <CALL '\1aNODE1 5 = TEMP26>
+ <CONS TEMP26 () = TEMP26>
+ <PUTREST TEMP35 TEMP26>
+ <DEAD TEMP26>
+ <SET K10 TEMP35>
+ <DEAD TEMP35>
+ <PUTUV NOD6 5 K10 (TYPE LIST)>
+ <JUMP + PHRASE48>
+PHRASE44
+ <FRAME '\1aARGCHK>
+ <PUSH LN11>
+ <DEAD LN11>
+ <PUSH 2>
+ <NTHUV NOD6 4 = STACK>
+ <PUSH NOD6>
+ <CALL '\1aARGCHK 4>
+PHRASE48
+ <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE51>
+ <DEAD RV15>
+ <TYPE? TF9 <TYPE-CODE FALSE> - BOOL52>
+ <FRAME '\1aEANA>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = STACK (TYPE NODE)>
+ <DEAD TEMP35>
+ <PUSH <OR FIX OFFSET>>
+ <PUSH NM19>
+ <CALL '\1aEANA 3 = TF9>
+BOOL52
+ <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP35 1 NOD6 (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <FRAME '\1aEANA>
+ <NTHL K10 1 = STACK (TYPE NODE)>
+ <PUSH 'STRUCTURED>
+ <PUSH NM19>
+ <CALL '\1aEANA 3 = TEMP26>
+ <JUMP + BOOL63>
+PHRASE51
+ <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP35 1 NOD6 (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <FRAME '\1aEANA>
+ <NTHL K10 1 = STACK (TYPE NODE)>
+ <PUSH 'STRUCTURED>
+ <PUSH NM19>
+ <CALL '\1aEANA 3 = TEMP26>
+ <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP35 1 %<> (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <TYPE? TF9 <TYPE-CODE FALSE> - BOOL63>
+ <FRAME '\1aEANA>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = STACK (TYPE NODE)>
+ <DEAD TEMP35>
+ <PUSH <OR FIX OFFSET>>
+ <PUSH NM19>
+ <CALL '\1aEANA 3 = TF9>
+BOOL63
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 2 - PHRASE66 (TYPE FIX)>
+ <DEAD TEMP35>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 4 = AMT17>
+ <DEAD TEMP35>
+ <TYPE? AMT17 <TYPE-CODE FALSE> + PHRASE66>
+ <FRAME '\1aISTYPE?>
+ <PUSH TF9>
+ <CALL '\1aISTYPE? 1 = TEMP35>
+ <VEQUAL? TEMP35 'OFFSET - PHRASE66>
+ <DEAD TEMP35>
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aGET-DECL>
+ <PUSH AMT17>
+ <CALL '\1aGET-DECL 1 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP26>
+ <NTHUV AMT17 1 = AMT17>
+ <NTHL K10 1 = TEMP35 (TYPE NODE)>
+ <PUTUV TEMP35 3 TEMP26>
+ <DEAD TEMP35>
+PHRASE66
+ <TYPE? AMT17 <TYPE-CODE UNBOUND> + PHRASE72>
+ <VEQUAL? COD8 27 - PHRASE74 (TYPE FIX)>
+ <EQUAL? AMT17 1 - PHRASE76>
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <PUSH RTYP7>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP26>
+ <JUMP + PHRASE102>
+PHRASE76
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <FRAME '\1a->
+ <PUSH AMT17>
+ <DEAD AMT17>
+ <PUSH 1>
+ <CALL '\1a- 2 = STACK>
+ <PUSH 'ANY>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <PUSH RTYP7>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP26>
+ <JUMP + PHRASE102>
+PHRASE74
+ <FRAME '\1aSTRUCTYP>
+ <PUSH RTYP7>
+ <CALL '\1aSTRUCTYP 1 = RV15>
+ <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE84>
+ <EQUAL? AMT17 0 - PHRASE87>
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH RV15>
+ <DEAD RV15>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP26>
+ <JUMP + PHRASE102>
+PHRASE87
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aFORM>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH RV15>
+ <DEAD RV15>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH AMT17>
+ <DEAD AMT17>
+ <PUSH 'ANY>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP26>
+ <JUMP + PHRASE102>
+PHRASE84
+ <EQUAL? AMT17 0 + PHRASE102>
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <PUSH AMT17>
+ <DEAD AMT17>
+ <PUSH 'ANY>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP26>
+ <JUMP + PHRASE102>
+PHRASE72
+ <VEQUAL? COD8 27 - PHRASE99 (TYPE FIX)>
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <PUSH 'ANY>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP26>
+ <JUMP + PHRASE102>
+PHRASE99
+ <FRAME '\1aSTRUCTYP>
+ <PUSH RTYP7>
+ <CALL '\1aSTRUCTYP 1 = RV15>
+ <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE102>
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH RV15>
+ <DEAD RV15>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP26>
+PHRASE102
+ <NTHL K10 1 = TEMP35 (TYPE NODE)>
+ <PUTUV TEMP35 3 TEMP26>
+ <DEAD TEMP35>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH TEMP26>
+ <CALL '\1aSTRUCTYP 1 = TPS14>
+ <TYPE? TPS14 <TYPE-CODE FALSE> + PHRASE108>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 2 - PHRASE108 (TYPE FIX)>
+ <DEAD TEMP35>
+ <NTHR 'WHO 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = SVWHO16 (RECORD-TYPE LBIND)>
+PHRASE108
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 2 - BOOL115 (TYPE FIX)>
+ <DEAD TEMP35>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 4 = TEMP35>
+ <EQUAL? TEMP35 1 + BOOL117>
+ <DEAD TEMP35>
+BOOL115
+ <TYPE? TPS14 <TYPE-CODE FALSE> + PHRASE113>
+ <FRAME '\1aISTYPE?>
+ <PUSH TF9>
+ <CALL '\1aISTYPE? 1 = TEMP35>
+ <VEQUAL? TEMP35 'FIX + BOOL117>
+ <DEAD TEMP35>
+ <FRAME '\1aISTYPE?>
+ <PUSH TF9>
+ <CALL '\1aISTYPE? 1 = TEMP35>
+ <VEQUAL? TEMP35 'OFFSET - BOOL119>
+ <DEAD TEMP35>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 2 + BOOL117 (TYPE FIX)>
+ <DEAD TEMP35>
+BOOL119
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TF9>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-OK? 2 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE113>
+ <DEAD TEMP35>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 2 + PHRASE113 (TYPE FIX)>
+ <DEAD TEMP35>
+BOOL117
+ <PUTUV NOD6 1 COD8 (TYPE FIX)>
+ <JUMP + PHRASE123>
+PHRASE113
+ <VEQUAL? COD8 27 - BOOL124 (TYPE FIX)>
+ <PUTUV NOD6 4 'NTH>
+BOOL124
+ <GEN-LVAL 'VERBOSE = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE126>
+ <DEAD TEMP35>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD6>
+ <CONS TEMP26 () = TEMP35>
+ <CONS "Not open compiled because type is: " TEMP35 = STACK>
+ <DEAD TEMP35>
+ <CALL '\1aADDVMESS 2>
+PHRASE126
+ <PUTUV NOD6 1 52 (TYPE FIX)>
+PHRASE123
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 2 - PHRASE133 (TYPE FIX)>
+ <DEAD TEMP35>
+ <FRAME '\1aISTYPE?>
+ <PUSH TF9>
+ <DEAD TF9>
+ <CALL '\1aISTYPE? 1 = TEMP35>
+ <VEQUAL? TEMP35 'OFFSET - PHRASE135>
+ <DEAD TEMP35>
+ <RESTL K10 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
+ <NTHUV TEMP35 4 = TEMP35 (TYPE OFFSET)>
+ <NTHUV TEMP35 1 = TEMP35>
+ <JUMP + PHRASE137>
+PHRASE135
+ <RESTL K10 1 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = TEMP26 (TYPE NODE)>
+ <NTHUV TEMP26 4 = TEMP35 (TYPE FIX)>
+ <DEAD TEMP26>
+PHRASE137
+ <SET NUMB22 TEMP35>
+ <DEAD TEMP35>
+ <SET TEMP35 NUMB22>
+ <JUMP + PHRASE138>
+PHRASE133
+ <SET TEMP35 'ALL (TYPE ATOM)>
+PHRASE138
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <NTHUV NOD6 9 = TEMP35>
+ <GVAL 'REST = TEMP26>
+ <EQUAL? TEMP35 TEMP26 - TAG139>
+ <DEAD TEMP35 TEMP26>
+ <PUSH 'T>
+ <JUMP + TAG140>
+TAG139
+ <PUSH %<>>
+TAG140
+ <CALL '\1aGET-ELE-TYPE 3 = STACK>
+ <PUSH RTYP7>
+ <DEAD RTYP7>
+ <CALL '\1aTYPE-OK? 2 = TEMP26>
+PHRASE42
+ <UNBIND TEMP24>
+ <DEAD TEMP24>
+ <ADJ -18>
+ <SET TEMP24 SVWHO16 (TYPE LIST)>
+ <DEAD SVWHO16>
+ <LOOP>
+MAP142
+ <INTGO>
+ <EMPL? TEMP24 + MAPAP145>
+ <NTHL TEMP24 1 = SVWHO16>
+ <RESTL SVWHO16 1 = RV15 (TYPE LIST)>
+ <NTHL RV15 1 = AMT17 (TYPE SYMTAB)>
+ <DEAD RV15>
+ <NTHL SVWHO16 1 = TEMP35>
+ <RESTL SVWHO16 1 = LN11 (TYPE LIST)>
+ <DEAD SVWHO16>
+ <RESTL LN11 1 = RV15 (TYPE LIST)>
+ <DEAD LN11>
+ <CONS NUMB22 RV15 = SVWHO16>
+ <DEAD RV15>
+ <CONS NM19 SVWHO16 = SVWHO16>
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <PUSH AMT17>
+ <FRAME '\1aTYPE-AND>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH AMT17>
+ <CALL '\1aGET-CURRENT-TYPE 1 = STACK>
+ <FRAME '\1aTYPE-NTH-REST>
+ <PUSH TEMP26>
+ <PUSH SVWHO16>
+ <CALL '\1aTYPE-NTH-REST 2 = STACK>
+ <CALL '\1aTYPE-AND 2 = STACK>
+ <CALL '\1aSET-CURRENT-TYPE 2>
+ <TYPE? OWHON21 <TYPE-CODE FALSE> + PHRASE161>
+ <GEN-LVAL 'WHO = RV15>
+ <CONS AMT17 SVWHO16 = LN11>
+ <CONS TEMP35 LN11 = LN11>
+ <CONS LN11 RV15 = LN11>
+ <DEAD RV15>
+ <GEN-SET 'WHO LN11>
+ <DEAD LN11>
+PHRASE161
+ <GEN-LVAL 'PRED = LN11>
+ <NTHUV NOD6 2 = RV15>
+ <EQUAL? LN11 RV15 - PHRASE167>
+ <DEAD LN11 RV15>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP26>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = RV15>
+ <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE167>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP26>
+ <PUSH <NOT FALSE>>
+ <CALL '\1aTYPE-OK? 2 = LN11>
+ <TYPE? LN11 <TYPE-CODE FALSE> + PHRASE167>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH AMT17>
+ <PUSH LN11>
+ <DEAD LN11>
+ <GEN-LVAL 'TRUTH = STACK>
+ <PUSH TEMP35>
+ <PUSH SVWHO16>
+ <CALL '\1aADD-TYPE-LIST 5 = LN11>
+ <GEN-SET 'TRUTH LN11>
+ <DEAD LN11>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH AMT17>
+ <DEAD AMT17>
+ <PUSH RV15>
+ <DEAD RV15>
+ <GEN-LVAL 'UNTRUTH = STACK>
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <PUSH SVWHO16>
+ <DEAD SVWHO16>
+ <CALL '\1aADD-TYPE-LIST 5 = RV15>
+ <GEN-SET 'UNTRUTH RV15>
+ <DEAD RV15>
+PHRASE167
+ <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
+ <JUMP + MAP142>
+MAPAP145
+ <EQUAL? TPS14 'LIST - PHRASE185>
+ <NTHL K10 1 = TEMP24 (TYPE NODE)>
+ <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
+ <VEQUAL? TEMP24 10 + BOOL187 (TYPE FIX)>
+ <DEAD TEMP24>
+ <NTHL K10 1 = TEMP24 (TYPE NODE)>
+ <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
+ <VEQUAL? TEMP24 11 - PHRASE185 (TYPE FIX)>
+ <DEAD TEMP24>
+BOOL187
+ <FRAME '\1aLOOK-FOR>
+ <PUSH NOD6>
+ <NTHL K10 1 = STACK (TYPE NODE)>
+ <RESTL K10 1 = RV15 (TYPE LIST)>
+ <NTHL RV15 1 = STACK (TYPE NODE)>
+ <DEAD RV15>
+ <NTHUV NOD6 9 = RV15>
+ <GVAL 'REST = TEMP24>
+ <EQUAL? RV15 TEMP24 - TAG189>
+ <DEAD RV15 TEMP24>
+ <PUSH 'T>
+ <JUMP + TAG190>
+TAG189
+ <PUSH %<>>
+TAG190
+ <CALL '\1aLOOK-FOR 4 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE185>
+ <DEAD TEMP24>
+ <PUTUV NOD6 1 79 (TYPE FIX)>
+ <DEAD NOD6>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+PHRASE185
+ <EQUAL? TPS14 'LIST - PHRASE191>
+ <DEAD TPS14>
+ <VEQUAL? COD8 28 - PHRASE191 (TYPE FIX)>
+ <DEAD COD8>
+ <NTHR 'PUT-SAME-CODE 1 = TEMP24 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE191)>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE191>
+ <NTHR TEMP24 1 = TEMP24 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP24 <TYPE-CODE UNBOUND> + PHRASE191>
+ <DEAD TEMP24>
+ <NTHL K10 1 = TEMP24 (TYPE NODE)>
+ <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
+ <VEQUAL? TEMP24 30 - PHRASE191 (TYPE FIX)>
+ <DEAD TEMP24>
+ <RESTL K10 1 = TEMP24 (TYPE LIST)>
+ <DEAD K10>
+ <NTHL TEMP24 1 = TEMP24 (TYPE NODE)>
+ <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
+ <VEQUAL? TEMP24 2 - PHRASE191 (TYPE FIX)>
+ <DEAD TEMP24>
+ <VEQUAL? NUMB22 1 - PHRASE191 (TYPE FIX)>
+ <DEAD NUMB22>
+ <PUTUV NOD6 1 30 (TYPE FIX)>
+ <DEAD NOD6>
+PHRASE191
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+ <END \1aNTH-REST-ANA>
+#WORD *26274540541*
+<GFCN \1aLOOK-FOR ("VALUE" <OR FALSE NODE> NODE NODE NODE ANY) MN4 N15 N6 RFLG7>
+ <TEMP (S10:LIST ()) TEMP12:LIST TEMP17 TT8>
+ <INTGO>
+ <CONS () () = TEMP12>
+ <CONS () TEMP12 = TEMP12>
+ <CONS () TEMP12 = TEMP12>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <NTHUV N15 1 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 10 - PHRASE16 (TYPE FIX)>
+ <DEAD TEMP17>
+ <CONS N15 S10 = S10>
+ <DEAD N15>
+ <JUMP + EXIT13>
+PHRASE16
+ <NTHUV N15 1 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 11 - EXIT13 (TYPE FIX)>
+ <DEAD TEMP17>
+ <CONS N15 S10 = S10>
+ <NTHUV N15 5 = TEMP17 (TYPE LIST)>
+ <DEAD N15>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = N15 (TYPE NODE)>
+ <DEAD TEMP17>
+ <JUMP + AGAIN14>
+EXIT13
+ <TYPE? RFLG7 <TYPE-CODE FALSE> + BOOL22>
+ <FRAME '\1aSET-SEARCH>
+ <PUSH N6>
+ <PUSH 18>
+ <PUSH S10>
+ <PUSH TEMP12>
+ <CALL '\1aSET-SEARCH 4 = TT8>
+ <VEQUAL? TT8 0 + BOOL22>
+ <SET N6 TT8>
+ <DEAD TT8>
+ <NTHUV N6 9 = TEMP17>
+ <GVAL '- = TT8>
+ <EQUAL? TEMP17 TT8 - BOOL22>
+ <DEAD TEMP17 TT8>
+ <NTHUV N6 5 = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP17 + BOOL22>
+ <RESTL TEMP17 1 = TT8 (TYPE LIST)>
+ <EMPL? TT8 + BOOL22>
+ <RESTL TT8 1 = TT8 (TYPE LIST)>
+ <EMPL? TT8 - BOOL22>
+ <DEAD TT8>
+ <RESTL TEMP17 1 = TT8 (TYPE LIST)>
+ <NTHL TT8 1 = TT8 (TYPE NODE)>
+ <NTHUV TT8 1 = TT8 (TYPE FIX)>
+ <VEQUAL? TT8 2 - BOOL22 (TYPE FIX)>
+ <DEAD TT8>
+ <RESTL TEMP17 1 = TT8 (TYPE LIST)>
+ <NTHL TT8 1 = TT8 (TYPE NODE)>
+ <NTHUV TT8 4 = TT8>
+ <EQUAL? TT8 1 - BOOL22>
+ <DEAD TT8>
+ <NTHL TEMP17 1 = N6 (TYPE NODE)>
+ <DEAD TEMP17>
+ <JUMP + TAG26>
+BOOL22
+ <TYPE? RFLG7 <TYPE-CODE FALSE> + TAG26>
+ <DEAD RFLG7>
+ <RETURN %<>>
+TAG26
+ <FRAME '\1aSET-SEARCH>
+ <PUSH N6>
+ <DEAD N6>
+ <PUSH 25>
+ <PUSH S10>
+ <RESTL TEMP12 1 = STACK (TYPE LIST)>
+ <CALL '\1aSET-SEARCH 4 = TT8>
+ <SET TEMP17 TT8>
+ <VEQUAL? TEMP17 0 + BOOL20>
+ <FRAME '\1aSET-SEARCH>
+ <NTHUV TT8 5 = TT8 (TYPE LIST)>
+ <NTHL TT8 1 = STACK (TYPE NODE)>
+ <DEAD TT8>
+ <PUSH 10>
+ <PUSH S10>
+ <RESTL TEMP12 1 = TT8 (TYPE LIST)>
+ <RESTL TT8 1 = STACK (TYPE LIST)>
+ <DEAD TT8>
+ <CALL '\1aSET-SEARCH 4 = TT8>
+ <SET TEMP17 TT8>
+ <VEQUAL? TEMP17 0 + BOOL20>
+ <FRAME '\1aSMEMQ>
+ <NTHUV TT8 4 = STACK (TYPE SYMTAB)>
+ <DEAD TT8>
+ <PUSH S10>
+ <DEAD S10>
+ <CALL '\1aSMEMQ 2 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL20>
+ <PUTUV MN4 7 TEMP12 (TYPE LIST)>
+ <DEAD TEMP12>
+ <SET TEMP17 MN4>
+ <DEAD MN4>
+BOOL20
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aLOOK-FOR>
+#WORD *353675534*
+<GFCN \1aSET-SEARCH ("VALUE" <OR !<FALSE> NODE> NODE FIX <LIST [REST NODE]> LIST) N4 C5 S6 SS7>
+ <TEMP (L8:LIST ()) TEMP15>
+ <INTGO>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <NTHUV N4 1 = TEMP15 (TYPE FIX)>
+ <VEQUAL? C5 TEMP15 - PHRASE14 (TYPE FIX)>
+ <DEAD TEMP15>
+ <PUTL SS7 1 L8>
+ <DEAD SS7 L8>
+ <RETURN N4>
+ <DEAD N4>
+PHRASE14
+ <NTHUV N4 1 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 11 - BOOL18 (TYPE FIX)>
+ <DEAD TEMP15>
+ <FRAME '\1aSMEMQ>
+ <NTHUV N4 4 = STACK (TYPE SYMTAB)>
+ <PUSH S6>
+ <CALL '\1aSMEMQ 2 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP15>
+BOOL18
+ <RETURN %<>>
+PHRASE17
+ <CONS N4 L8 = L8>
+ <NTHUV N4 5 = TEMP15 (TYPE LIST)>
+ <DEAD N4>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = N4 (TYPE NODE)>
+ <DEAD TEMP15>
+ <JUMP + AGAIN12>
+ <END \1aSET-SEARCH>
+#WORD *14034376247*
+<GFCN \1aSMEMQ ("VALUE" <OR FALSE <LIST NODE>> SYMTAB LIST) SYM4 L5>
+ <TEMP TEMP15 TEMP12:LIST LL17:LIST>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <SET TEMP12 L5 (TYPE LIST)>
+ <DEAD L5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <SET LL17 TEMP12>
+ <NTHL LL17 1 = TEMP15 (TYPE NODE)>
+ <NTHUV TEMP15 4 = TEMP15>
+ <EQUAL? TEMP15 SYM4 + TAG21>
+ <DEAD TEMP15>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG21
+ <RETURN LL17>
+ <DEAD LL17>
+PHRASE20
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aSMEMQ>
+#WORD *3627215064*
+<GFCN \1aNTH-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aNTH-REST-ANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 27>
+ <CALL '\1aNTH-REST-ANA 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aNTH-ANA>
+#WORD *2476062604*
+<GFCN \1aREST-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aNTH-REST-ANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 28>
+ <CALL '\1aNTH-REST-ANA 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aREST-ANA>
+<COND (<GASSIGNED? NTH-ANA> <PUTPROP ,NTH ANALYSIS ,NTH-ANA> <PUTPROP ,REST ANALYSIS ,REST-ANA>)>
+
+#WORD *17724564216*
+ <GFCN \1aPUT-ANA ("VALUE" ANY NODE ANY "OPTIONAL" ANY) NOD6 RTYP7 TF8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP K9:LIST LN10 (TS11 'ANY) (TPS13 %<>) (SVWHO15:LIST ()) (P20:LIST ()) TEMP27 TEMP29 RV23 AMT24 WHICH16 TEMP115 TEMP118 L148:LIST ND150 TEMP152 TEMP153>
+ <INTGO>
+ <NTHUV NOD6 5 = K9 (TYPE LIST)>
+ <LENL K9 = LN10 (TYPE FIX)>
+ <SET TEMP27 TF8>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> - TAG30>
+ <NTHUV NOD6 4 = TEMP29>
+ <EQUAL? TEMP29 'IPUT - TAG28>
+ <DEAD TEMP29>
+ <SET TEMP27 'T (TYPE ATOM)>
+ <JUMP + TAG30>
+TAG28
+ <SET TEMP27 %<> (TYPE FALSE)>
+TAG30
+ <SET RV23 TEMP27>
+ <DEAD TEMP27>
+ <GETS 'BIND = TEMP27 (TYPE LBIND)>
+ <BBIND 'WHO 'LIST 'FIX ()>
+ <BBIND 'WHON <OR FALSE NODE> 'FIX %<>>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD6>
+ <PUSH RTYP7>
+ <CALL '\1aSEGFLUSH 2 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE204>
+ <DEAD TEMP29>
+ <FRAME '\1aARGCHK>
+ <PUSH LN10>
+ <DEAD LN10>
+ <PUSH 3>
+ <NTHUV NOD6 4 = STACK>
+ <PUSH NOD6>
+ <CALL '\1aARGCHK 4>
+ <TYPE? RV23 <TYPE-CODE FALSE> + PHRASE43>
+ <DEAD RV23>
+ <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
+ <DEAD TEMP29>
+ <TYPE? TF8 <TYPE-CODE FALSE> - BOOL46>
+ <FRAME '\1aEANA>
+ <RESTL K9 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = STACK (TYPE NODE)>
+ <DEAD TEMP29>
+ <PUSH <OR FIX OFFSET>>
+ <PUSH 'PUT>
+ <CALL '\1aEANA 3 = TEMP29>
+ <SET TF8 TEMP29>
+ <DEAD TEMP29>
+BOOL46
+ <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP29 1 NOD6 (RECORD-TYPE LBIND)>
+ <DEAD TEMP29>
+ <FRAME '\1aANA>
+ <NTHL K9 1 = STACK (TYPE NODE)>
+ <PUSH 'STRUCTURED>
+ <CALL '\1aANA 2 = TS11>
+ <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
+ <DEAD TEMP29>
+ <JUMP + BOOL59>
+PHRASE43
+ <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP29 1 NOD6 (RECORD-TYPE LBIND)>
+ <DEAD TEMP29>
+ <FRAME '\1aANA>
+ <NTHL K9 1 = STACK (TYPE NODE)>
+ <PUSH 'STRUCTURED>
+ <CALL '\1aANA 2 = TS11>
+ <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
+ <DEAD TEMP29>
+ <TYPE? TF8 <TYPE-CODE FALSE> - BOOL59>
+ <FRAME '\1aEANA>
+ <RESTL K9 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = STACK (TYPE NODE)>
+ <DEAD TEMP29>
+ <PUSH <OR FIX OFFSET>>
+ <PUSH 'PUT>
+ <CALL '\1aEANA 3 = TF8>
+BOOL59
+ <FRAME '\1aANA>
+ <RESTL K9 1 = TEMP29 (TYPE LIST)>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = STACK (TYPE NODE)>
+ <DEAD TEMP29>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = RV23>
+ <RESTL K9 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
+ <NTHUV TEMP29 1 = TEMP29 (TYPE FIX)>
+ <VEQUAL? TEMP29 2 - PHRASE63 (TYPE FIX)>
+ <DEAD TEMP29>
+ <RESTL K9 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
+ <NTHUV TEMP29 4 = AMT24>
+ <DEAD TEMP29>
+ <TYPE? AMT24 <TYPE-CODE FALSE> + PHRASE63>
+ <FRAME '\1aISTYPE?>
+ <PUSH TF8>
+ <CALL '\1aISTYPE? 1 = TEMP29>
+ <VEQUAL? TEMP29 'OFFSET - PHRASE63>
+ <DEAD TEMP29>
+ <FRAME '\1aTYPE-AND>
+ <PUSH TS11>
+ <DEAD TS11>
+ <FRAME '\1aGET-DECL>
+ <RESTL K9 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
+ <NTHUV TEMP29 4 = STACK>
+ <DEAD TEMP29>
+ <CALL '\1aGET-DECL 1 = STACK>
+ <CALL '\1aTYPE-AND 2 = TS11>
+ <NTHUV AMT24 1 = AMT24>
+ <NTHL K9 1 = TEMP29 (TYPE NODE)>
+ <PUTUV TEMP29 3 TS11>
+ <DEAD TEMP29>
+PHRASE63
+ <FRAME '\1aISTYPE?>
+ <PUSH TF8>
+ <CALL '\1aISTYPE? 1 = TEMP29>
+ <VEQUAL? TEMP29 'FIX + BOOL70>
+ <DEAD TEMP29>
+ <FRAME '\1aISTYPE?>
+ <PUSH TF8>
+ <CALL '\1aISTYPE? 1 = TEMP29>
+ <VEQUAL? TEMP29 'OFFSET - BOOL69>
+ <DEAD TEMP29>
+ <RESTL K9 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
+ <NTHUV TEMP29 1 = TEMP29 (TYPE FIX)>
+ <VEQUAL? TEMP29 2 - BOOL69 (TYPE FIX)>
+ <DEAD TEMP29>
+BOOL70
+ <NTHUV NOD6 9 = TEMP29>
+ <GVAL 'PUT = LN10>
+ <EQUAL? TEMP29 LN10 + BOOL68>
+ <DEAD TEMP29 LN10>
+BOOL69
+ <SET TF8 %<> (TYPE FALSE)>
+BOOL68
+ <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE76>
+ <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE76>
+ <TYPE? AMT24 <TYPE-CODE UNBOUND> + PHRASE76>
+ <SET WHICH16 AMT24>
+ <DEAD AMT24>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <SET TEMP29 1 (TYPE FIX)>
+ <TYPE? WHICH16 <TYPE-CODE FLOAT> - TAG81>
+ <VEQUAL? WHICH16 1.0 + TAG82 (TYPE FLOAT)>
+ <JUMP + PHRASE80>
+TAG81
+ <TYPE? WHICH16 <TYPE-CODE FIX> - COMPERR>
+ <VEQUAL? WHICH16 1 - PHRASE80 (TYPE FIX)>
+TAG82
+ <CONS 'ANY () = LN10>
+ <JUMP + PHRASE83>
+PHRASE80
+ <CONS 'ANY () = LN10>
+ <FRAME '\1a->
+ <PUSH WHICH16>
+ <PUSH 1>
+ <CALL '\1a- 2 = STACK>
+ <PUSH 'ANY>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = AMT24>
+ <CONS AMT24 LN10 = LN10>
+ <DEAD AMT24>
+PHRASE83
+ <LOOP (LN10 VALUE) (TEMP29 VALUE)>
+TAG87
+ <INTGO>
+ <EMPL? LN10 + TAG78>
+ <NTHL LN10 1 = STACK>
+ <RESTL LN10 1 = LN10 (TYPE LIST)>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG87>
+TAG78
+ <CALL '\1aFORM TEMP29 = AMT24>
+ <DEAD TEMP29>
+ <JUMP + PHRASE89>
+PHRASE76
+ <SET WHICH16 'ALL (TYPE ATOM)>
+ <SET AMT24 <STRUCTURED ANY> (TYPE FORM)>
+PHRASE89
+ <FRAME '\1aTYPE-AND>
+ <PUSH TS11>
+ <DEAD TS11>
+ <PUSH AMT24>
+ <CALL '\1aTYPE-AND 2 = TS11>
+ <EQUAL? WHICH16 'ALL + PHRASE126>
+ <EQUAL? RV23 'ANY + PHRASE126>
+ <TYPE? TS11 <TYPE-CODE FORM> + TAG97>
+ <TYPE? TS11 <TYPE-CODE SEGMENT> - PHRASE121>
+TAG97
+ <NTHL TS11 1 = TEMP29>
+ <EQUAL? TEMP29 'OR - PHRASE99>
+ <DEAD TEMP29>
+ <RESTL TS11 1 = TEMP29 (TYPE LIST)>
+ <CHTYPE TEMP29 <TYPE-CODE LIST> = TEMP29>
+ <EMPL? TEMP29 + PHRASE95>
+ <LOOP>
+MAP101
+ <INTGO>
+ <EMPL? TEMP29 + PHRASE121>
+ <NTHL TEMP29 1 = LN10>
+ <TYPE? LN10 <TYPE-CODE FORM> - PHRASE111>
+ <LOOP (LN10 VALUE)>
+TAG114
+ <RESTL LN10 1 = TEMP115 (TYPE LIST)>
+ <EMPL? TEMP115 + TAG116>
+ <SET LN10 TEMP115>
+ <DEAD TEMP115>
+ <JUMP + TAG114>
+TAG116
+ <SET TEMP115 AMT24>
+ <LOOP (TEMP115 VALUE)>
+TAG117
+ <RESTL TEMP115 1 = TEMP118 (TYPE LIST)>
+ <EMPL? TEMP118 + TAG119>
+ <SET TEMP115 TEMP118>
+ <DEAD TEMP118>
+ <JUMP + TAG117>
+TAG119
+ <VEQUAL? LN10 TEMP115 + PHRASE95>
+ <DEAD LN10 TEMP115>
+PHRASE111
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <JUMP + MAP101>
+PHRASE99
+ <SET TEMP29 AMT24>
+ <LOOP (TEMP29 VALUE)>
+TAG122
+ <RESTL TEMP29 1 = TEMP115 (TYPE LIST)>
+ <EMPL? TEMP115 + TAG123>
+ <SET TEMP29 TEMP115>
+ <DEAD TEMP115>
+ <JUMP + TAG122>
+TAG123
+ <SET TEMP115 TS11>
+ <LOOP (TEMP115 VALUE)>
+TAG124
+ <RESTL TEMP115 1 = LN10 (TYPE LIST)>
+ <EMPL? LN10 + TAG125>
+ <SET TEMP115 LN10>
+ <DEAD LN10>
+ <JUMP + TAG124>
+TAG125
+ <VEQUAL? TEMP29 TEMP115 + PHRASE95>
+ <DEAD TEMP29 TEMP115>
+PHRASE121
+ <LENL AMT24 = LN10 (TYPE FIX)>
+ <PUTL AMT24 LN10 RV23>
+ <DEAD LN10>
+ <JUMP + PHRASE126>
+PHRASE95
+ <FRAME '\1aFORM>
+ <SET TEMP118 0 (TYPE FIX)>
+ <SET LN10 AMT24>
+ <DEAD AMT24>
+ <LOOP (LN10 VALUE) (TEMP118 VALUE)>
+TAG128
+ <INTGO>
+ <EMPL? LN10 + TAG127>
+ <NTHL LN10 1 = STACK>
+ <RESTL LN10 1 = LN10 (TYPE LIST)>
+ <ADD TEMP118 1 = TEMP118 (TYPE FIX)>
+ <JUMP + TAG128>
+TAG127
+ <CALL '\1aFORM TEMP118 = AMT24>
+ <DEAD TEMP118>
+ <LENL AMT24 = TEMP118 (TYPE FIX)>
+ <PUTL AMT24 TEMP118 RV23>
+ <DEAD TEMP118>
+PHRASE126
+ <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE131>
+ <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE131>
+ <NTHR 'WHO 2 = TEMP118 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP118 1 = TEMP118 (RECORD-TYPE LBIND)>
+ <EMPL? TEMP118 + PHRASE131 (TYPE LIST)>
+ <DEAD TEMP118>
+ <NTHR 'WHO 2 = LN10 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR LN10 1 = TEMP29 (RECORD-TYPE LBIND)>
+ <DEAD LN10>
+ <SET TEMP115 0 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <LOOP>
+MAP136
+ <INTGO>
+ <EMPL? TEMP29 + MAPAP139>
+ <NTHL TEMP29 1 = L148>
+ <RESTL L148 1 = LN10 (TYPE LIST)>
+ <NTHL LN10 1 = TEMP118 (TYPE SYMTAB)>
+ <DEAD LN10>
+ <NTHUV TEMP118 7 = ND150>
+ <FRAME '\1aDECL-DOWN>
+ <PUSH ND150>
+ <DEAD ND150>
+ <SET TEMP152 1 (TYPE FIX)>
+ <RESTL L148 1 = TEMP153 (TYPE LIST)>
+ <RESTL TEMP153 1 = LN10 (TYPE LIST)>
+ <DEAD TEMP153>
+ <LOOP (LN10 VALUE) (TEMP152 VALUE)>
+TAG154
+ <INTGO>
+ <EMPL? LN10 + TAG151>
+ <NTHL LN10 1 = STACK>
+ <RESTL LN10 1 = LN10 (TYPE LIST)>
+ <ADD TEMP152 1 = TEMP152 (TYPE FIX)>
+ <JUMP + TAG154>
+TAG151
+ <CALL '\1aDECL-DOWN TEMP152 = ND150>
+ <DEAD TEMP152>
+ <FRAME '\1aTYPE-AND>
+ <PUSH ND150>
+ <DEAD ND150>
+ <PUSH AMT24>
+ <CALL '\1aTYPE-AND 2 = ND150>
+ <TYPE? ND150 <TYPE-CODE FALSE> - PHRASE157>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Bad argument to PUT ">
+ <PUSH NOD6>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE157
+ <FRAME '\1aTYPE-AND>
+ <FRAME '\1aTOP-TYPE>
+ <FRAME '\1aDECL-DOWN>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH TEMP118>
+ <DEAD TEMP118>
+ <CALL '\1aGET-CURRENT-TYPE 1 = STACK>
+ <SET LN10 1 (TYPE FIX)>
+ <RESTL L148 1 = TEMP153 (TYPE LIST)>
+ <DEAD L148>
+ <RESTL TEMP153 1 = TEMP152 (TYPE LIST)>
+ <DEAD TEMP153>
+ <LOOP (TEMP152 VALUE) (LN10 VALUE)>
+TAG164
+ <INTGO>
+ <EMPL? TEMP152 + TAG162>
+ <NTHL TEMP152 1 = STACK>
+ <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
+ <ADD LN10 1 = LN10 (TYPE FIX)>
+ <JUMP + TAG164>
+TAG162
+ <CALL '\1aDECL-DOWN LN10 = STACK>
+ <DEAD LN10>
+ <CALL '\1aTOP-TYPE 1 = STACK>
+ <PUSH ND150>
+ <DEAD ND150>
+ <CALL '\1aTYPE-AND 2 = ND150>
+ <PUSH ND150>
+ <DEAD ND150>
+ <ADD TEMP115 1 = TEMP115 (TYPE FIX)>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <JUMP + MAP136>
+MAPAP139
+ <CALL '\1aTYPE-MERGE TEMP115 = AMT24>
+ <DEAD TEMP115>
+ <FRAME '\1aTYPE-AND>
+ <PUSH RV23>
+ <DEAD RV23>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH AMT24>
+ <PUSH WHICH16>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <CALL '\1aTYPE-AND 2 = RV23>
+ <JUMP + PHRASE168>
+PHRASE131
+ <NTHR 'WHO 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP115 1 = TEMP29 (RECORD-TYPE LBIND)>
+ <DEAD TEMP115>
+ <EMPL? TEMP29 + PHRASE168 (TYPE LIST)>
+ <DEAD TEMP29>
+ <SET RV23 'ANY (TYPE ATOM)>
+PHRASE168
+ <TYPE? TS11 <TYPE-CODE FALSE> + BOOL171>
+ <NTHL K9 1 = TEMP29 (TYPE NODE)>
+ <FRAME '\1aTYPE-AND>
+ <FRAME '\1aTOP-TYPE>
+ <PUSH AMT24>
+ <DEAD AMT24>
+ <CALL '\1aTOP-TYPE 1 = STACK>
+ <PUSH TS11>
+ <DEAD TS11>
+ <CALL '\1aTYPE-AND 2 = TS11>
+ <PUTUV TEMP29 3 TS11>
+ <DEAD TEMP29>
+BOOL171
+ <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE175>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TS11>
+ <PUSH WHICH16>
+ <CALL '\1aGET-ELE-TYPE 2>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TS11>
+ <DEAD TS11>
+ <PUSH WHICH16>
+ <PUSH %<>>
+ <PUSH RV23>
+ <DEAD RV23>
+ <CALL '\1aGET-ELE-TYPE 4 = TS11>
+PHRASE175
+ <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE179>
+ <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE179>
+ <RESTL K9 1 = TEMP153 (TYPE LIST)>
+ <NTHL TEMP153 1 = TEMP153 (TYPE NODE)>
+ <NTHUV TEMP153 1 = TEMP153 (TYPE FIX)>
+ <VEQUAL? TEMP153 2 - PHRASE179 (TYPE FIX)>
+ <DEAD TEMP153>
+ <NTHR 'WHO 2 = TEMP153 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP153 1 = SVWHO15 (RECORD-TYPE LBIND)>
+PHRASE179
+ <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE184>
+ <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE184>
+ <PUSH NOD6>
+ <SET TEMP29 1 (TYPE FIX)>
+ <NTHUV NOD6 8 = TEMP153>
+ <TYPE TEMP153 = LN10>
+ <AND LN10 7 = LN10>
+ <VEQUAL? LN10 1 + TAG187>
+ <DEAD LN10>
+ <LOOP (TEMP153 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG192
+ <INTGO>
+ <EMPTY? TEMP153 + TAG191>
+ <NTH1 TEMP153 = STACK>
+ <REST1 TEMP153 = TEMP153>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG192>
+TAG191
+ <LIST TEMP29 = TEMP115 (TYPE LIST)>
+ <DEAD TEMP29>
+ <JUMP + TAG188>
+TAG187
+ <LOOP>
+TAG190
+ <VEQUAL? TEMP29 0 + TAG189>
+ <POP = LN10>
+ <CONS LN10 TEMP153 = TEMP153 (TYPE LIST)>
+ <DEAD LN10>
+ <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG190>
+TAG189
+ <SET TEMP115 TEMP153>
+ <DEAD TEMP153>
+TAG188
+ <PUTUV NOD6 8 TEMP115>
+ <DEAD TEMP115>
+PHRASE184
+ <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE194>
+ <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE194>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH TS11>
+ <CALL '\1aSTRUCTYP 1 = TPS13>
+ <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE194>
+ <FRAME '\1aISTYPE?>
+ <PUSH TF8>
+ <CALL '\1aISTYPE? 1 = TEMP153>
+ <VEQUAL? TEMP153 'FIX + BOOL197>
+ <DEAD TEMP153>
+ <FRAME '\1aISTYPE?>
+ <PUSH TF8>
+ <DEAD TF8>
+ <CALL '\1aISTYPE? 1 = TEMP153>
+ <VEQUAL? TEMP153 'OFFSET - PHRASE194>
+ <DEAD TEMP153>
+BOOL197
+ <PUTUV NOD6 1 29 (TYPE FIX)>
+ <NTHL K9 1 = TEMP153 (TYPE NODE)>
+ <NTHUV TEMP153 1 = TEMP153 (TYPE FIX)>
+ <VEQUAL? TEMP153 2 - PHRASE204 (TYPE FIX)>
+ <DEAD TEMP153>
+ <GVAL 'INTERPRETER-IMPLEMENTOR? = TEMP153>
+ <TYPE? TEMP153 <TYPE-CODE FALSE> - PHRASE204>
+ <DEAD TEMP153>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Attempt to PUT in quoted object ">
+ <PUSH NOD6>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <JUMP + PHRASE204>
+PHRASE194
+ <GEN-LVAL 'VERBOSE = TEMP153>
+ <TYPE? TEMP153 <TYPE-CODE FALSE> + PHRASE206>
+ <DEAD TEMP153>
+ <NTHUV NOD6 9 = TEMP153>
+ <GVAL 'PUT = LN10>
+ <EQUAL? TEMP153 LN10 - PHRASE206>
+ <DEAD TEMP153 LN10>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD6>
+ <CONS TS11 () = LN10>
+ <CONS "Not open compiled because type is: " LN10 = STACK>
+ <DEAD LN10>
+ <CALL '\1aADDVMESS 2>
+PHRASE206
+ <PUTUV NOD6 1 58 (TYPE FIX)>
+ <PUTUV NOD6 4 'PUT>
+PHRASE204
+ <FRAME '\1aPUT-FLUSH>
+ <SET LN10 TPS13>
+ <TYPE? LN10 <TYPE-CODE FALSE> - BOOL212>
+ <SET LN10 'ALL (TYPE ATOM)>
+BOOL212
+ <PUSH LN10>
+ <DEAD LN10>
+ <CALL '\1aPUT-FLUSH 1>
+ <FRAME '\1aTYPE-OK?>
+ <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE215>
+ <SET LN10 TS11>
+ <JUMP + PHRASE216>
+PHRASE215
+ <SET LN10 'ANY (TYPE ATOM)>
+PHRASE216
+ <PUSH LN10>
+ <DEAD LN10>
+ <PUSH RTYP7>
+ <DEAD RTYP7>
+ <CALL '\1aTYPE-OK? 2 = TEMP29>
+ <UNBIND TEMP27>
+ <DEAD TEMP27>
+ <ADJ -18>
+ <NTHUV NOD6 1 = TEMP27 (TYPE FIX)>
+ <VEQUAL? TEMP27 29 - MAPAP223 (TYPE FIX)>
+ <DEAD TEMP27>
+ <SET TEMP27 SVWHO15 (TYPE LIST)>
+ <DEAD SVWHO15>
+ <LOOP>
+MAP220
+ <INTGO>
+ <EMPL? TEMP27 + MAPAP223>
+ <NTHL TEMP27 1 = SVWHO15>
+ <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
+ <NTHL TEMP152 1 = RV23 (TYPE SYMTAB)>
+ <DEAD TEMP152>
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <PUSH RV23>
+ <FRAME '\1aPUT-TYPE-HACK>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH RV23>
+ <DEAD RV23>
+ <CALL '\1aGET-CURRENT-TYPE 1 = STACK>
+ <PUSH TS11>
+ <FRAME '\1aLPR>
+ <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
+ <DEAD SVWHO15>
+ <RESTL TEMP152 1 = STACK (TYPE LIST)>
+ <DEAD TEMP152>
+ <CALL '\1aLPR 1 = STACK>
+ <PUSH WHICH16>
+ <PUSH 0>
+ <CALL '\1aPUT-TYPE-HACK 5 = STACK>
+ <CALL '\1aSET-CURRENT-TYPE 2>
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <JUMP + MAP220>
+MAPAP223
+ <NTHUV NOD6 1 = TEMP27 (TYPE FIX)>
+ <VEQUAL? TEMP27 29 - PHRASE233 (TYPE FIX)>
+ <DEAD TEMP27>
+ <NTHR 'PUT-SAME-CODE 1 = TEMP27 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE233)>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE233>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE233>
+ <DEAD TEMP27>
+ <SET TEMP27 [LIST VECTOR UVECTOR TUPLE STRING BYTES] (TYPE VECTOR)>
+ <TYPE? TPS13 <TYPE-CODE ATOM> - PHRASE233>
+ <LOOP (TPS13 VALUE) (TEMP27 LENGTH VALUE)>
+TAG236
+ <NTHUV TEMP27 1 = LN10>
+ <VEQUAL? LN10 TPS13 + TAG235>
+ <DEAD LN10>
+ <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
+ <EMPUV? TEMP27 - TAG236>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+TAG235
+ <SET TEMP27 K9 (TYPE LIST)>
+ <EMPL? TEMP27 + PHRASE233>
+ <LOOP>
+MAP239
+ <INTGO>
+ <EMPL? TEMP27 + MAPAP242>
+ <NTHL TEMP27 1 = LN10>
+ <LENUV LN10 = TS11 (TYPE FIX)>
+ <LESS? TS11 8 + PHRASE247 (TYPE FIX)>
+ <DEAD TS11>
+ <NTHUV LN10 8 = TS11>
+ <DEAD LN10>
+ <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE247>
+ <DEAD TS11>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+PHRASE247
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <JUMP + MAP239>
+MAPAP242
+ <RESTL K9 1 = TEMP27 (TYPE LIST)>
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <NTHL TEMP27 1 = TEMP27 (TYPE NODE)>
+ <NTHUV TEMP27 1 = TEMP27 (TYPE FIX)>
+ <GVAL 'HACK-NODES = TEMP152>
+ <EMPTY? TEMP152 + PHRASE233>
+ <LOOP (TEMP27 VALUE) (TEMP152 LENGTH VALUE TYPE)>
+TAG252
+ <NTH1 TEMP152 = LN10>
+ <TYPE? LN10 <TYPE-CODE FIX> - TAG253>
+ <VEQUAL? LN10 TEMP27 + TAG251>
+ <DEAD LN10>
+TAG253
+ <REST1 TEMP152 = TEMP152>
+ <EMPTY? TEMP152 - TAG252>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+TAG251
+ <FRAME '\1aISTYPE?>
+ <RESTL K9 1 = TEMP152 (TYPE LIST)>
+ <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
+ <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
+ <NTHUV TEMP152 3 = STACK>
+ <DEAD TEMP152>
+ <CALL '\1aISTYPE? 1 = TEMP152>
+ <VEQUAL? TEMP152 'FIX - PHRASE233>
+ <DEAD TEMP152>
+ <RESTL K9 1 = TEMP152 (TYPE LIST)>
+ <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
+ <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
+ <NTHUV TEMP152 5 = SVWHO15 (TYPE LIST)>
+ <DEAD TEMP152>
+ <EMPL? SVWHO15 + PHRASE233 (TYPE LIST)>
+ <RESTL K9 1 = TEMP152 (TYPE LIST)>
+ <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
+ <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
+ <NTHUV TEMP152 9 = TEMP152>
+ <GVAL '/ = TEMP27>
+ <EQUAL? TEMP152 TEMP27 + PHRASE233>
+ <DEAD TEMP152 TEMP27>
+ <RESTL K9 1 = TEMP27 (TYPE LIST)>
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <NTHL TEMP27 1 = TEMP27 (TYPE NODE)>
+ <NTHUV TEMP27 9 = TEMP27>
+ <GVAL '- = TEMP152>
+ <EQUAL? TEMP27 TEMP152 - BOOL256>
+ <DEAD TEMP27 TEMP152>
+ <EMPL? SVWHO15 + PHRASE233>
+ <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
+ <EMPL? TEMP152 + PHRASE233>
+ <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
+ <EMPL? TEMP152 - PHRASE233>
+ <DEAD TEMP152>
+ <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
+ <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
+ <NTHUV TEMP152 4 = TEMP152>
+ <EQUAL? TEMP152 1 - PHRASE233>
+ <DEAD TEMP152>
+BOOL256
+ <SET TEMP152 SVWHO15 (TYPE LIST)>
+ <LOOP>
+MAP259
+ <INTGO>
+ <EMPL? TEMP152 + PHRASE233>
+ <SET L148 TEMP152>
+ <NTHL L148 1 = TS11>
+ <NTHUV TS11 1 = TPS13 (TYPE FIX)>
+ <VEQUAL? TPS13 27 - PHRASE268 (TYPE FIX)>
+ <DEAD TPS13>
+ <FRAME '\1aSAME-OBJ>
+ <NTHL K9 1 = STACK (TYPE NODE)>
+ <NTHUV TS11 5 = TPS13 (TYPE LIST)>
+ <NTHL TPS13 1 = STACK (TYPE NODE)>
+ <DEAD TPS13>
+ <CALL '\1aSAME-OBJ 2 = TPS13>
+ <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE268>
+ <DEAD TPS13>
+ <FRAME '\1aSAME-OBJ>
+ <RESTL K9 1 = TPS13 (TYPE LIST)>
+ <NTHL TPS13 1 = STACK (TYPE NODE)>
+ <DEAD TPS13>
+ <NTHUV TS11 5 = TPS13 (TYPE LIST)>
+ <RESTL TPS13 1 = TPS13 (TYPE LIST)>
+ <NTHL TPS13 1 = STACK (TYPE NODE)>
+ <DEAD TPS13>
+ <CALL '\1aSAME-OBJ 2 = TPS13>
+ <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE268>
+ <DEAD TPS13>
+ <EMPL? P20 + MAPAP262 (TYPE LIST)>
+ <RESTL L148 1 = TPS13 (TYPE LIST)>
+ <DEAD L148>
+ <PUTREST P20 TPS13>
+ <DEAD P20 TPS13>
+ <CONS TS11 SVWHO15 = SVWHO15>
+ <DEAD TS11>
+ <JUMP + MAPAP262>
+PHRASE268
+ <SET P20 L148>
+ <DEAD L148>
+ <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
+ <JUMP + MAP259>
+MAPAP262
+ <RESTL K9 1 = TEMP152 (TYPE LIST)>
+ <DEAD K9>
+ <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
+ <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
+ <PUTUV TEMP152 5 SVWHO15 (TYPE LIST)>
+ <DEAD TEMP152 SVWHO15>
+ <PUTUV NOD6 1 85 (TYPE FIX)>
+ <DEAD NOD6>
+PHRASE233
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+ <END \1aPUT-ANA>
+
+#WORD *26332460573*
+<GFCN \1aPUT-TYPE-HACK ("VALUE" ANY ANY ANY <LIST [REST FIX ATOM]> ANY ANY) TY4 TS5 L6 WHICH7 EX8>
+ <TEMP TEMP11>
+ <INTGO>
+ <EMPL? L6 - PHRASE10 (TYPE LIST)>
+ <RETURN TS5>
+ <DEAD TS5>
+PHRASE10
+ <RESTL L6 1 = TEMP11 (TYPE LIST)>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <EMPL? TEMP11 - PHRASE12 (TYPE LIST)>
+ <DEAD TEMP11>
+ <RESTL L6 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TEMP11 (TYPE ATOM)>
+ <VEQUAL? TEMP11 'REST - PHRASE12>
+ <DEAD TEMP11>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TY4>
+ <DEAD TY4>
+ <FRAME '\1a+>
+ <NTHL L6 1 = STACK (TYPE FIX)>
+ <PUSH WHICH7>
+ <CALL '\1a+ 2 = STACK>
+ <PUSH %<>>
+ <FRAME '\1aPUT-TYPE-HACK>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TS5>
+ <PUSH WHICH7>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <PUSH TS5>
+ <DEAD TS5>
+ <RESTL L6 1 = TEMP11 (TYPE LIST)>
+ <DEAD L6>
+ <RESTL TEMP11 1 = STACK (TYPE LIST)>
+ <DEAD TEMP11>
+ <PUSH WHICH7>
+ <DEAD WHICH7>
+ <PUSH 0>
+ <CALL '\1aPUT-TYPE-HACK 5 = STACK>
+ <CALL '\1aGET-ELE-TYPE 4 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE12
+ <RESTL L6 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TEMP11 (TYPE ATOM)>
+ <VEQUAL? TEMP11 'REST - PHRASE20>
+ <DEAD TEMP11>
+ <FRAME '\1aPUT-TYPE-HACK>
+ <PUSH TY4>
+ <DEAD TY4>
+ <PUSH TS5>
+ <DEAD TS5>
+ <RESTL L6 1 = TEMP11 (TYPE LIST)>
+ <RESTL TEMP11 1 = STACK (TYPE LIST)>
+ <DEAD TEMP11>
+ <PUSH WHICH7>
+ <DEAD WHICH7>
+ <NTHL L6 1 = STACK (TYPE FIX)>
+ <DEAD L6>
+ <CALL '\1aPUT-TYPE-HACK 5 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE20
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TY4>
+ <FRAME '\1a+>
+ <NTHL L6 1 = STACK (TYPE FIX)>
+ <PUSH EX8>
+ <CALL '\1a+ 2 = STACK>
+ <PUSH %<>>
+ <FRAME '\1aPUT-TYPE-HACK>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TY4>
+ <DEAD TY4>
+ <FRAME '\1a+>
+ <NTHL L6 1 = STACK (TYPE FIX)>
+ <PUSH EX8>
+ <DEAD EX8>
+ <CALL '\1a+ 2 = STACK>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <PUSH TS5>
+ <DEAD TS5>
+ <RESTL L6 1 = TEMP11 (TYPE LIST)>
+ <DEAD L6>
+ <RESTL TEMP11 1 = STACK (TYPE LIST)>
+ <DEAD TEMP11>
+ <PUSH WHICH7>
+ <DEAD WHICH7>
+ <PUSH 0>
+ <CALL '\1aPUT-TYPE-HACK 5 = STACK>
+ <CALL '\1aGET-ELE-TYPE 4 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPUT-TYPE-HACK>
+#WORD *22172647154*
+<GFCN \1aLPR ("VALUE" LIST LIST) L4>
+ <TEMP TEMP7 TEMP9 TEMP13 TEMP14 TEMP15>
+ <INTGO>
+ <EMPL? L4 - PHRASE6 (TYPE LIST)>
+ <RETURN L4>
+ <DEAD L4>
+PHRASE6
+ <NTHL L4 1 = TEMP9>
+ <CONS TEMP9 () = TEMP7>
+ <DEAD TEMP9>
+ <FRAME '\1aLPR>
+ <RESTL L4 1 = STACK (TYPE LIST)>
+ <DEAD L4>
+ <CALL '\1aLPR 1 = TEMP9>
+ <SET TEMP13 TEMP7>
+ <EMPL? TEMP9 + TAG11>
+ <NTHL TEMP9 1 = TEMP14>
+ <CONS TEMP14 TEMP7 = TEMP14>
+ <SET TEMP13 TEMP14>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + TAG11>
+ <LOOP (TEMP9 VALUE) (TEMP14 VALUE) (TEMP7 VALUE)>
+TAG10
+ <NTHL TEMP9 1 = TEMP15>
+ <CONS TEMP15 TEMP7 = TEMP15>
+ <PUTREST TEMP14 TEMP15>
+ <DEAD TEMP14>
+ <SET TEMP14 TEMP15>
+ <DEAD TEMP15>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 - TAG10>
+TAG11
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aLPR>
+<SETG HACK-NODES [,ABS-CODE ,ARITH-CODE]>
+
+<COND (<GASSIGNED? PUT-ANA> <PUTPROP ,PUT ANALYSIS ,PUT-ANA>)>
+
+#WORD *16535270617*
+<GFCN \1aSAME-OBJ ("VALUE" ANY NODE NODE) N14 N25>
+ <TEMP TEMP9 TEMP10 TEMP17 N433:NODE>
+ <INTGO>
+ <NTHUV N14 1 = TEMP9 (TYPE FIX)>
+ <NTHUV N25 1 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP9 TEMP10 + TAG11 (TYPE FIX)>
+ <DEAD TEMP9 TEMP10>
+ <RETURN %<>>
+TAG11
+ <NTHUV N14 1 = TEMP9 (TYPE FIX)>
+ <GVAL 'SNODES = TEMP10>
+ <EMPUU? TEMP10 + PHRASE13>
+ <LOOP (TEMP9 VALUE) (TEMP10 LENGTH VALUE)>
+TAG15
+ <NTHUU TEMP10 1 = TEMP17>
+ <VEQUAL? TEMP17 TEMP9 + TAG14>
+ <DEAD TEMP17>
+ <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
+ <EMPUU? TEMP10 - TAG15>
+ <JUMP + PHRASE13>
+TAG14
+ <NTHUV N14 4 = TEMP10>
+ <DEAD N14>
+ <NTHUV N25 4 = TEMP9>
+ <DEAD N25>
+ <EQUAL? TEMP10 TEMP9 - TAG18>
+ <DEAD TEMP10 TEMP9>
+ <RETURN 'T>
+TAG18
+ <RETURN %<>>
+PHRASE13
+ <SET TEMP9 %<> (TYPE FALSE)>
+ <NTHUV N14 5 = TEMP10 (TYPE LIST)>
+ <DEAD N14>
+ <NTHUV N25 5 = TEMP17 (TYPE LIST)>
+ <DEAD N25>
+ <LOOP>
+MAP22
+ <INTGO>
+ <EMPL? TEMP10 + MAPAP25>
+ <EMPL? TEMP17 + MAPAP25>
+ <NTHL TEMP10 1 = TEMP9>
+ <NTHL TEMP17 1 = N433>
+ <FRAME '\1aSAME-OBJ>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <PUSH N433>
+ <DEAD N433>
+ <CALL '\1aSAME-OBJ 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE36>
+ <RETURN %<>>
+PHRASE36
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <JUMP + MAP22>
+MAPAP25
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aSAME-OBJ>
+#WORD *26530024774*
+<GFCN \1aDECL-DOWN ("VALUE" ANY "TUPLE" TUPLE)>
+ <MAKTUP TUP4:TUPLE ND5 TEMP7 = TUP4>
+ <INTGO>
+ <NTHUV TUP4 1 = ND5>
+ <LENUV TUP4 = TEMP7 (TYPE FIX)>
+ <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <LESS? TEMP7 2 - PHRASE12 (TYPE FIX)>
+ <RETURN ND5>
+ <DEAD ND5>
+PHRASE12
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH ND5>
+ <DEAD ND5>
+ <ADD TEMP7 1 = ND5 (TYPE FIX)>
+ <NTHUV TUP4 ND5 = STACK>
+ <DEAD ND5>
+ <NTHUV TUP4 TEMP7 = ND5>
+ <EQUAL? ND5 'REST - TAG16>
+ <DEAD ND5>
+ <PUSH 'T>
+ <JUMP + TAG17>
+TAG16
+ <PUSH %<>>
+TAG17
+ <CALL '\1aGET-ELE-TYPE 3 = ND5>
+ <SUB TEMP7 2 = TEMP7 (TYPE FIX)>
+ <JUMP + AGAIN10>
+ <END \1aDECL-DOWN>
+#WORD *4136747447*
+<GFCN \1aDECL-UP ("VALUE" ANY ANY LIST) NX4 L5>
+ <TEMP FIRST9 NUM10:FIX TEMP16 TEMP18>
+ <INTGO>
+ <SET FIRST9 'T (TYPE ATOM)>
+ <SET NUM10 0 (TYPE FIX)>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <EMPL? L5 - PHRASE13 (TYPE LIST)>
+ <RETURN NX4>
+ <DEAD NX4>
+PHRASE13
+ <NTHL L5 1 = TEMP16>
+ <EQUAL? TEMP16 'NTH - PHRASE15>
+ <DEAD TEMP16>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <SET TEMP18 2 (TYPE FIX)>
+ <RESTL L5 1 = FIRST9 (TYPE LIST)>
+ <NTHL FIRST9 1 = FIRST9 (TYPE FIX)>
+ <ADD FIRST9 NUM10 = FIRST9 (TYPE FIX)>
+ <DEAD NUM10>
+ <ADD FIRST9 -1 = NUM10 (TYPE FIX)>
+ <DEAD FIRST9>
+ <VEQUAL? NUM10 0 - PHRASE20 (TYPE FIX)>
+ <SET TEMP16 () (TYPE LIST)>
+ <JUMP + PHRASE27>
+PHRASE20
+ <VEQUAL? NUM10 1 - PHRASE24 (TYPE FIX)>
+ <CONS 'ANY () = TEMP16>
+ <JUMP + PHRASE27>
+PHRASE24
+ <PUSH NUM10>
+ <DEAD NUM10>
+ <PUSH 'ANY>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = FIRST9>
+ <CONS FIRST9 () = TEMP16>
+ <DEAD FIRST9>
+PHRASE27
+ <LOOP (TEMP16 VALUE) (TEMP18 VALUE)>
+TAG29
+ <INTGO>
+ <EMPL? TEMP16 + TAG17>
+ <NTHL TEMP16 1 = STACK>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG17
+ <PUSH NX4>
+ <DEAD NX4>
+ <CALL '\1aFORM TEMP18 = NX4>
+ <DEAD TEMP18>
+ <SET NUM10 0 (TYPE FIX)>
+ <SET FIRST9 %<> (TYPE FALSE)>
+ <JUMP + PHRASE33>
+PHRASE15
+ <VEQUAL? FIRST9 0 + PHRASE31>
+ <FRAME '\1aREST-DECL>
+ <PUSH NX4>
+ <DEAD NX4>
+ <RESTL L5 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = STACK (TYPE FIX)>
+ <DEAD TEMP18>
+ <CALL '\1aREST-DECL 2 = NX4>
+ <JUMP + PHRASE33>
+PHRASE31
+ <RESTL L5 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = TEMP18 (TYPE FIX)>
+ <ADD TEMP18 NUM10 = NUM10 (TYPE FIX)>
+ <DEAD TEMP18>
+PHRASE33
+ <RESTL L5 1 = L5 (TYPE LIST)>
+ <RESTL L5 1 = L5 (TYPE LIST)>
+ <JUMP + AGAIN11>
+ <END \1aDECL-UP>
+#WORD *17554644444*
+<GFCN \1aPUTREST-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6 TEMP11 TEMP12 T17>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <NTHUV NOD4 9 = TEMP11>
+ <GVAL 'REST = TEMP12>
+ <EQUAL? TEMP11 TEMP12 - PHRASE10>
+ <DEAD TEMP11 TEMP12>
+ <FRAME '\1aREST-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aREST-ANA 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP11>
+ <PUSH NOD4>
+ <SET K6 1 (TYPE FIX)>
+ <NTHUV NOD4 8 = TEMP11>
+ <TYPE TEMP11 = TEMP12>
+ <AND TEMP12 7 = TEMP12>
+ <VEQUAL? TEMP12 1 + TAG19>
+ <DEAD TEMP12>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (K6 VALUE)>
+TAG25
+ <INTGO>
+ <EMPTY? TEMP11 + TAG24>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD K6 1 = K6 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG24
+ <LIST K6 = TEMP11 (TYPE LIST)>
+ <DEAD K6>
+ <JUMP + TAG21>
+TAG19
+ <LOOP>
+TAG22
+ <VEQUAL? K6 0 + TAG21>
+ <POP = TEMP12>
+ <CONS TEMP12 TEMP11 = TEMP11 (TYPE LIST)>
+ <DEAD TEMP12>
+ <SUB K6 1 = K6 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG21
+ <PUTUV NOD4 8 TEMP11>
+ <DEAD NOD4 TEMP11>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH <PRIMTYPE LIST>>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE14
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 2>
+ <PUSH 'PUTREST>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH <PRIMTYPE LIST>>
+ <PUSH 'PUTREST>
+ <CALL '\1aEANA 3 = T17>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = STACK (TYPE NODE)>
+ <DEAD TEMP11>
+ <PUSH <PRIMTYPE LIST>>
+ <PUSH 'PUTREST>
+ <CALL '\1aEANA 3>
+ <NTHL K6 1 = TEMP11 (TYPE NODE)>
+ <DEAD K6>
+ <NTHUV TEMP11 1 = TEMP11 (TYPE FIX)>
+ <VEQUAL? TEMP11 2 - PHRASE32 (TYPE FIX)>
+ <DEAD TEMP11>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Attempt to PUTREST in quoted object ">
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE32
+ <PUTUV NOD4 1 30 (TYPE FIX)>
+ <PUSH NOD4>
+ <SET TEMP12 1 (TYPE FIX)>
+ <NTHUV NOD4 8 = TEMP11>
+ <TYPE TEMP11 = K6>
+ <AND K6 7 = K6>
+ <VEQUAL? K6 1 + TAG36>
+ <DEAD K6>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG42
+ <INTGO>
+ <EMPTY? TEMP11 + TAG41>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG42>
+TAG41
+ <LIST TEMP12 = TEMP11 (TYPE LIST)>
+ <DEAD TEMP12>
+ <JUMP + TAG38>
+TAG36
+ <LOOP>
+TAG39
+ <VEQUAL? TEMP12 0 + TAG38>
+ <POP = K6>
+ <CONS K6 TEMP11 = TEMP11 (TYPE LIST)>
+ <DEAD K6>
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG39>
+TAG38
+ <PUTUV NOD4 8 TEMP11>
+ <DEAD NOD4 TEMP11>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH T17>
+ <DEAD T17>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aPUTREST-ANA>
+<COND (<GASSIGNED? PUTREST-ANA> <PUTPROP ,PUTREST ANALYSIS ,PUTREST-ANA>)>
+
+#WORD *30233541320*
+<GFCN \1aMEMQ-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6 TEMP12 TYP7 STYP9>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH N4>
+ <PUSH R5>
+ <CALL '\1aSEGFLUSH 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 2>
+ <PUSH 'MEMQ>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'ANY>
+ <PUSH 'MEMQ>
+ <CALL '\1aEANA 3 = TEMP12>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <DEAD K6>
+ <PUSH 'STRUCTURED>
+ <PUSH 'MEMQ>
+ <CALL '\1aEANA 3 = TYP7>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TYP7>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = TEMP12>
+ <PUSH TEMP12>
+ <CALL '\1aTYPE-OK? 2 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> - PHRASE20>
+ <DEAD K6>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "MEMQ never true ">
+ <PUSH N4>
+ <CALL '\1aCOMPILE-WARNING 2>
+PHRASE20
+ <FRAME '\1aSTRUCTYP>
+ <PUSH TYP7>
+ <CALL '\1aSTRUCTYP 1 = STYP9>
+ <TYPE? STYP9 <TYPE-CODE FALSE> + PHRASE25>
+ <EQUAL? STYP9 'TEMPLATE + PHRASE25>
+ <PUTUV N4 1 73 (TYPE FIX)>
+ <DEAD N4>
+ <JUMP + PHRASE28>
+PHRASE25
+ <GEN-LVAL 'VERBOSE = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD K6>
+ <FRAME '\1aADDVMESS>
+ <PUSH N4>
+ <CONS TYP7 () = K6>
+ <DEAD TYP7>
+ <CONS "Not efficiently open compiled because type is: " K6 = STACK>
+ <DEAD K6>
+ <CALL '\1aADDVMESS 2>
+PHRASE30
+ <PUTUV N4 1 73 (TYPE FIX)>
+ <DEAD N4>
+PHRASE28
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH 'BOOL-FALSE>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE37>
+ <EQUAL? TEMP12 'ANY + PHRASE37>
+ <FRAME '\1aFORM>
+ <SET K6 STYP9>
+ <DEAD STYP9>
+ <TYPE? K6 <TYPE-CODE FALSE> - COND40>
+ <SET K6 'STRUCTURED (TYPE ATOM)>
+COND40
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH TEMP12>
+ <PUSH 'REST>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 3 = K6>
+ <JUMP + COND36>
+PHRASE37
+ <TYPE? STYP9 <TYPE-CODE FALSE> + PHRASE42>
+ <FRAME '\1aFORM>
+ <PUSH STYP9>
+ <DEAD STYP9>
+ <PUSH 'ANY>
+ <CALL '\1aFORM 2 = K6>
+ <JUMP + COND36>
+PHRASE42
+ <SET K6 <STRUCTURED ANY> (TYPE FORM)>
+COND36
+ <PUSH K6>
+ <DEAD K6>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+PHRASE14
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMEMQ-ANA>
+#WORD *32440360540*
+<GFCN \1aTOP-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6:LIST TEMP8>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH N4>
+ <PUSH R5>
+ <CALL '\1aSEGFLUSH 2 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 1>
+ <PUSH 'TOP>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <DEAD K6>
+ <PUSH 'STRUCTURED>
+ <PUSH 'TOP>
+ <CALL '\1aEANA 3 = TEMP8>
+ <GEN-SET 'TYP TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aSTRUCTYP>
+ <GEN-LVAL 'TYP = STACK>
+ <CALL '\1aSTRUCTYP 1 = TEMP8>
+ <GEN-SET 'TYP TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP8>
+ <GEN-LVAL 'TYP = TEMP8>
+ <EQUAL? TEMP8 'LIST - PHRASE17>
+ <DEAD TEMP8>
+ <FRAME '\1aCOMPIL-ERROR>
+ <PUSH "Cant TOP a list: ">
+ <PUSH N4>
+ <CALL '\1aCOMPIL-ERROR 2>
+PHRASE17
+ <PUTUV N4 1 83 (TYPE FIX)>
+ <DEAD N4>
+ <FRAME '\1aTYPE-OK?>
+ <GEN-LVAL 'TYP = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE32>
+ <SET TEMP8 'STRUCTURED (TYPE ATOM)>
+PHRASE32
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP8>
+PHRASE10
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aTOP-ANA>\r\r
+#WORD *556012733*
+<GFCN \1aBACK-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6:LIST TEMP8>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH N4>
+ <PUSH R5>
+ <CALL '\1aSEGFLUSH 2 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH (1 2)>
+ <PUSH 'BACK>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'STRUCTURED>
+ <PUSH 'TOP>
+ <CALL '\1aEANA 3 = TEMP8>
+ <GEN-SET 'TYP TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aSTRUCTYP>
+ <GEN-LVAL 'TYP = STACK>
+ <CALL '\1aSTRUCTYP 1 = TEMP8>
+ <GEN-SET 'TYP TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP8>
+ <GEN-LVAL 'TYP = TEMP8>
+ <EQUAL? TEMP8 'LIST - PHRASE17>
+ <DEAD TEMP8>
+ <FRAME '\1aCOMPIL-ERROR>
+ <PUSH "Cant BACK a list: ">
+ <PUSH N4>
+ <CALL '\1aCOMPIL-ERROR 2>
+PHRASE17
+ <RESTL K6 1 = TEMP8 (TYPE LIST)>
+ <EMPL? TEMP8 + PHRASE29 (TYPE LIST)>
+ <DEAD TEMP8>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP8 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL TEMP8 1 = STACK (TYPE NODE)>
+ <DEAD TEMP8>
+ <PUSH 'FIX>
+ <PUSH 'BACK>
+ <CALL '\1aEANA 3>
+PHRASE29
+ <PUTUV N4 1 82 (TYPE FIX)>
+ <DEAD N4>
+ <FRAME '\1aTYPE-OK?>
+ <GEN-LVAL 'TYP = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE35>
+ <SET TEMP8 'STRUCTURED (TYPE ATOM)>
+PHRASE35
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP8>
+PHRASE10
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aBACK-ANA>
+<COND (<GASSIGNED? BACK-ANA> <PUTPROP ,BACK ANALYSIS ,BACK-ANA>)>
+
+<COND (<GASSIGNED? TOP-ANA> <PUTPROP ,TOP ANALYSIS ,TOP-ANA>)>
+
+<COND (<GASSIGNED? MEMQ-ANA> <PUTPROP ,MEMQ ANALYSIS ,MEMQ-ANA>)>
+
+<ENDPACKAGE>
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff