--- /dev/null
+
+<PACKAGE "MAPANA">
+
+<ENTRY MAPPER-AN MAPRET-STOP-ANA MAPLEAVE-ANA MENTROPY MAUX MAUX1 MTUPLE MBAD MOPT MOPT2 MNORM MARGS-ANA>
+
+<USE "COMPDEC" "SYMANA" "CHKDCL" "CARANA" "ADVMESS">
+
+<SETG SPECIAL-MAPF-R-SUBRS [,LIST ,+ ,* ,MAX ,MIN]>
+
+#WORD *35775611245*
+ <GFCN \1aMAPPER-AN ("VALUE" ANY NODE ANY) MNOD4 MRTYP5>
+ <TEMP TEMP3:LBIND TEMP32 TEMP33 K6 (SBRL23 %<>) FINTYPE25 (CHF31 %<>) FAP9:NODE SBR22 TEMP53 TEMP54 ITRNOD8:NODE TT7 L-D18:LIST KK122:LIST ASSU17:LIST LAST-SEG163 SKIPF164>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'MNOD 'NODE %<> MNOD4>
+ <DEAD MNOD4>
+ <BBIND 'MRTYP 'ANY %<> MRTYP5>
+ <DEAD MRTYP5>
+ <FIXBIND>
+ <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = TEMP32 (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <NTHUV TEMP32 5 = K6 (TYPE LIST)>
+ <DEAD TEMP32>
+ <BBIND 'MPSTRS 'LIST 'FIX ()>
+ <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = TEMP32 (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <NTHUV TEMP32 9 = TEMP32>
+ <GVAL 'MAPR = TEMP33>
+ <EQUAL? TEMP32 TEMP33 - TAG36>
+ <DEAD TEMP32 TEMP33>
+ <SET TEMP33 'T (TYPE ATOM)>
+ <JUMP + TAG39>
+TAG36
+ <SET TEMP33 %<> (TYPE FALSE)>
+TAG39
+ <BBIND 'R? <OR ATOM FALSE> 'FIX TEMP33>
+ <DEAD TEMP33>
+ <BBIND 'TUPCNT 'FIX 'FIX 1>
+ <BBIND 'RETYPS 'ANY 'FIX 'NO-RETURN>
+ <BBIND 'L-V 'LIST 'FIX>
+ <BBIND 'D-V 'LIST 'FIX>
+ <BBIND 'VALSPCD 'LIST 'FIX>
+ <BBIND 'SEGFX <LIST [REST NODE]> 'FIX ()>
+ <BBIND 'STATE 'FIX 'FIX>
+ <BBIND 'FRET 'ANY 'FIX 'T>
+ <BBIND 'FSTOP 'ANY 'FIX 'T>
+ <GEN-LVAL 'VARTBL = TEMP33>
+ <BBIND 'OV 'SYMTAB 'FIX TEMP33>
+ <DEAD TEMP33>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = FAP9 (TYPE NODE)>
+ <PUSH FAP9>
+ <PUSH 'ANY>
+ <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP33 4 = STACK>
+ <DEAD TEMP33>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aSUBAP?>
+ <PUSH FAP9>
+ <CALL '\1aSUBAP? 1 = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> + PHRASE46>
+ <GVAL SBR22 = TEMP33>
+ <GVAL 'SPECIAL-MAPF-R-SUBRS = TEMP32>
+ <TYPE TEMP33 = TEMP53>
+ <EMPTY? TEMP32 + TAG49>
+ <LOOP (TEMP33 VALUE) (TEMP53 VALUE) (TEMP32 LENGTH VALUE TYPE)>
+TAG51
+ <NTH1 TEMP32 = TEMP54>
+ <TYPE? TEMP54 TEMP53 - TAG52>
+ <VEQUAL? TEMP54 TEMP33 + TAG50>
+ <DEAD TEMP54>
+TAG52
+ <REST1 TEMP32 = TEMP32>
+ <EMPTY? TEMP32 - TAG51>
+TAG49
+ <SET SBRL23 %<> (TYPE FALSE)>
+ <JUMP + PHRASE46>
+TAG50
+ <SET SBRL23 TEMP32>
+ <DEAD TEMP32>
+ <PUTUV FAP9 1 71 (TYPE FIX)>
+ <GVAL SBR22 = TEMP32>
+ <DEAD SBR22>
+ <GVAL 'LIST = TEMP53>
+ <EQUAL? TEMP32 TEMP53 + PHRASE56>
+ <DEAD TEMP32 TEMP53>
+ <SET FINTYPE25 <OR FIX FLOAT> (TYPE FORM)>
+ <NTHR 'STATE 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP53 1 1 (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <JUMP + PHRASE59>
+PHRASE56
+ <SET FINTYPE25 'LIST (TYPE ATOM)>
+PHRASE59
+ <LENUV SBRL23 = TEMP53 (TYPE FIX)>
+ <PUTUV FAP9 9 TEMP53>
+ <DEAD TEMP53>
+PHRASE46
+ <RESTL K6 1 = TEMP53 (TYPE LIST)>
+ <NTHL TEMP53 1 = ITRNOD8 (TYPE NODE)>
+ <DEAD TEMP53>
+ <RESTL K6 1 = TEMP32 (TYPE LIST)>
+ <RESTL TEMP32 1 = TEMP33 (TYPE LIST)>
+ <DEAD TEMP32>
+ <LOOP>
+MAP61
+ <INTGO>
+ <EMPL? TEMP33 + MAPAP64>
+ <NTHL TEMP33 1 = TEMP53>
+ <FRAME '\1aMINL>
+ <NTHUV TEMP53 3 = STACK>
+ <DEAD TEMP53>
+ <CALL '\1aMINL 1 = TEMP32>
+ <LESS? TEMP32 1 - PHRASE71 (TYPE FIX)>
+ <DEAD TEMP32>
+ <SET CHF31 'T (TYPE ATOM)>
+PHRASE71
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <JUMP + MAP61>
+MAPAP64
+ <NTHUV ITRNOD8 1 = TT7 (TYPE FIX)>
+ <VEQUAL? TT7 51 - PHRASE76 (TYPE FIX)>
+ <PUTUV ITRNOD8 8 %<>>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <SET TEMP33 K6 (TYPE LIST)>
+ <LOOP>
+MAP78
+ <INTGO>
+ <EMPL? TEMP33 + MAPAP81>
+ <NTHL TEMP33 1 = TEMP53>
+ <NTHUV TEMP53 1 = SBR22 (TYPE FIX)>
+ <VEQUAL? SBR22 3 + BOOL89 (TYPE FIX)>
+ <DEAD SBR22>
+ <NTHUV TEMP53 1 = SBR22 (TYPE FIX)>
+ <VEQUAL? SBR22 68 - PHRASE88 (TYPE FIX)>
+ <DEAD SBR22>
+BOOL89
+ <FRAME '\1aEANA>
+ <NTHUV TEMP53 5 = SBR22 (TYPE LIST)>
+ <NTHL SBR22 1 = STACK (TYPE NODE)>
+ <DEAD SBR22>
+ <PUSH 'STRUCTURED>
+ <NTHR 'MNOD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = SBR22 (RECORD-TYPE LBIND)>
+ <NTHUV SBR22 4 = STACK>
+ <DEAD SBR22>
+ <CALL '\1aEANA 3 = TEMP32>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TEMP32>
+ <DEAD TEMP32>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = TEMP32>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP32>
+ <PUSH 'STRUCTURED>
+ <CALL '\1aTYPE-OK? 2 = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> - PHRASE101>
+ <DEAD SBR22>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "MAPF/R on non structured object(s)">
+ <NTHR 'MNOD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <JUMP + PHRASE101>
+PHRASE88
+ <FRAME '\1aEANA>
+ <PUSH TEMP53>
+ <PUSH 'STRUCTURED>
+ <NTHR 'MNOD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = SBR22 (RECORD-TYPE LBIND)>
+ <NTHUV SBR22 4 = STACK>
+ <DEAD SBR22>
+ <CALL '\1aEANA 3 = TEMP32>
+PHRASE101
+ <GEN-LVAL 'VERBOSE = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> + PHRASE106>
+ <DEAD SBR22>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH TEMP32>
+ <CALL '\1aSTRUCTYP 1 = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> + BOOL110>
+ <EQUAL? SBR22 'TEMPLATE - PHRASE106>
+ <DEAD SBR22>
+BOOL110
+ <FRAME '\1aADDVMESS>
+ <NTHR 'MNOD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <CONS TEMP32 () = SBR22>
+ <DEAD TEMP32>
+ <CONS " type is: " SBR22 = SBR22>
+ <CONS TEMP53 SBR22 = SBR22>
+ <DEAD TEMP53>
+ <CONS "Non-specific structure for MAPF/R: " SBR22 = STACK>
+ <DEAD SBR22>
+ <CALL '\1aADDVMESS 2>
+PHRASE106
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <JUMP + MAP78>
+MAPAP81
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = L-D18>
+ <GETS 'BIND = TEMP32 (TYPE LBIND)>
+ <BBIND 'HTMPS 'FIX 'FIX 0>
+ <BBIND 'TMPS 'FIX 'FIX 0>
+ <NTHUV ITRNOD8 11 = TEMP54 (TYPE SYMTAB)>
+ <BBIND 'VARTBL 'SYMTAB 'FIX TEMP54>
+ <DEAD TEMP54>
+ <SET KK122 K6>
+ <DEAD K6>
+ <GEN-LVAL 'LIFE = TEMP33>
+ <GEN-LVAL 'VERBOSE = TEMP53>
+ <LOOP>
+AGAIN129
+ <INTGO>
+ <GEN-LVAL 'VERBOSE = TEMP54>
+ <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE131>
+ <DEAD TEMP54>
+ <GEN-SET 'VERBOSE TEMP53>
+ <PUTREST TEMP53 ()>
+PHRASE131
+ <GEN-SET 'LIFE TEMP33>
+ <NTHR 'L-V 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP54 1 () (RECORD-TYPE LBIND)>
+ <DEAD TEMP54>
+ <NTHR 'FSTOP 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP54 1 'T (RECORD-TYPE LBIND)>
+ <DEAD TEMP54>
+ <FRAME '\1aRESET-VARS>
+ <NTHR 'VARTBL 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP54>
+ <NTHR 'OV 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP54>
+ <CALL '\1aRESET-VARS 2>
+ <FRAME '\1aMUNG-L-D-STATE>
+ <NTHR 'VARTBL 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP54>
+ <CALL '\1aMUNG-L-D-STATE 1>
+ <SET K6 KK122>
+ <NTHR 'RETYPS 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP54 1 'NO-RETURN (RECORD-TYPE LBIND)>
+ <DEAD TEMP54>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHR 'OV 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP54>
+ <CALL '\1aBUILD-TYPE-LIST 1 = ASSU17>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHR 'OV 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP54 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP54>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP54>
+ <NTHR 'VALSPCD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR SBR22 1 TEMP54 (RECORD-TYPE LBIND)>
+ <DEAD SBR22 TEMP54>
+ <NTHUV ITRNOD8 10 = TT7 (TYPE LIST)>
+ <SET TEMP54 %<> (TYPE FALSE)>
+ <SET LAST-SEG163 %<> (TYPE FALSE)>
+ <SET SKIPF164 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN165
+ <INTGO>
+ <EMPL? TT7 - PHRASE167 (TYPE LIST)>
+ <TYPE? LAST-SEG163 <TYPE-CODE FALSE> - EXIT160>
+ <DEAD LAST-SEG163>
+ <EMPL? K6 + EXIT160 (TYPE LIST)>
+ <DEAD K6>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "MAPF/R function takes too few args ">
+ <PUSH ITRNOD8>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <JUMP + EXIT160>
+PHRASE167
+ <NTHL TT7 1 = SBR22 (TYPE SYMTAB)>
+ <NTHUV SBR22 4 = SBR22 (TYPE FIX)>
+ <VEQUAL? SBR22 4 - PHRASE173 (TYPE FIX)>
+ <DEAD SBR22>
+ <SET TEMP54 'T (TYPE ATOM)>
+PHRASE173
+ <EMPL? K6 + PHRASE181 (TYPE LIST)>
+ <NTHL K6 1 = SBR22 (TYPE NODE)>
+ <NTHUV SBR22 1 = SBR22 (TYPE FIX)>
+ <VEQUAL? SBR22 68 + BOOL177 (TYPE FIX)>
+ <DEAD SBR22>
+ <NTHL K6 1 = SBR22 (TYPE NODE)>
+ <NTHUV SBR22 1 = SBR22 (TYPE FIX)>
+ <VEQUAL? SBR22 3 - PHRASE181 (TYPE FIX)>
+ <DEAD SBR22>
+BOOL177
+ <RESTL K6 1 = SBR22 (TYPE LIST)>
+ <EMPL? SBR22 - PHRASE179 (TYPE LIST)>
+ <DEAD SBR22>
+ <SET LAST-SEG163 1 (TYPE FIX)>
+PHRASE179
+ <TYPE? LAST-SEG163 <TYPE-CODE FALSE> - PHRASE181>
+ <VEQUAL? TEMP54 0 - PHRASE181>
+ <SET SKIPF164 'T (TYPE ATOM)>
+PHRASE181
+ <FRAME '\1aMANAL-DISP>
+ <NTHL TT7 1 = STACK>
+ <EMPL? K6 - TAG189 (TYPE LIST)>
+ <SET SBR22 %<> (TYPE FALSE)>
+ <JUMP + PHRASE188>
+TAG189
+ <NTHL K6 1 = SBR22 (TYPE NODE)>
+PHRASE188
+ <PUSH SBR22>
+ <DEAD SBR22>
+ <PUSH SKIPF164>
+ <PUSH LAST-SEG163>
+ <CALL '\1aMANAL-DISP 4 = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> - BOOL185>
+ <DEAD SBR22>
+ <VEQUAL? TEMP54 0 + PHRASE184>
+BOOL185
+ <RESTL TT7 1 = TT7 (TYPE LIST)>
+PHRASE184
+ <EMPL? TT7 + PHRASE191 (TYPE LIST)>
+ <NTHL TT7 1 = SBR22 (TYPE SYMTAB)>
+ <NTHUV SBR22 3 = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> + PHRASE191>
+ <DEAD SBR22>
+ <PUTUV ITRNOD8 13 'T>
+PHRASE191
+ <TYPE? LAST-SEG163 <TYPE-CODE FALSE> + PHRASE194>
+ <ADD LAST-SEG163 1 = LAST-SEG163 (TYPE FIX)>
+PHRASE194
+ <TYPE? LAST-SEG163 <TYPE-CODE FALSE> - AGAIN165>
+ <EMPL? K6 + AGAIN165 (TYPE LIST)>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <JUMP + AGAIN165>
+EXIT160
+ <CONS () () = SBR22>
+ <PUTUV ITRNOD8 16 SBR22>
+ <DEAD SBR22>
+ <NTHR 'TMPS 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = TT7 (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <NTHR 'HTMPS 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = K6 (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <GEN-LVAL 'LIFE = TEMP54>
+ <GEN-LVAL 'VERBOSE = LAST-SEG163>
+ <LOOP>
+AGAIN212
+ <INTGO>
+ <GEN-LVAL 'VERBOSE = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> + PHRASE214>
+ <DEAD SBR22>
+ <GEN-SET 'VERBOSE LAST-SEG163>
+ <PUTREST LAST-SEG163 ()>
+PHRASE214
+ <GEN-SET 'LIFE TEMP54>
+ <NTHR 'FRET 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR SBR22 1 'T (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <NTHR 'TMPS 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR SBR22 1 TT7 (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <NTHR 'HTMPS 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR SBR22 1 K6 (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHR 'VARTBL 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <CALL '\1aBUILD-TYPE-LIST 1 = SBR22>
+ <PUTUV ITRNOD8 18 SBR22 (TYPE LIST)>
+ <DEAD SBR22>
+ <PUTUV ITRNOD8 14 'NO-RETURN>
+ <FRAME '\1aSEQ-AN>
+ <NTHUV ITRNOD8 5 = STACK (TYPE LIST)>
+ <NTHUV ITRNOD8 17 = STACK>
+ <CALL '\1aSEQ-AN 2 = SKIPF164>
+ <NTHUV ITRNOD8 19 = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> + BOOL231>
+ <DEAD SBR22>
+ <FRAME '\1aASSUM-OK?>
+ <NTHUV ITRNOD8 18 = STACK (TYPE LIST)>
+ <NTHUV ITRNOD8 19 = STACK (TYPE LIST)>
+ <CALL '\1aASSUM-OK? 2 = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> + AGAIN212>
+ <DEAD SBR22>
+BOOL231
+ <EQUAL? SKIPF164 'NO-RETURN + PHRASE234>
+ <NTHR 'FRET 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = SBR22 (RECORD-TYPE LBIND)>
+ <TYPE? SBR22 <TYPE-CODE FALSE> - PHRASE236>
+ <DEAD SBR22>
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <NTHR 'L-V 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <NTHR 'OV 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <CALL '\1aMSAVE-L-D-STATE 2 = SBR22>
+ <NTHR 'L-V 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP54 1 SBR22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP54 SBR22>
+ <FRAME '\1aASSERT-TYPES>
+ <FRAME '\1aORUPC>
+ <NTHR 'VARTBL 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <NTHUV ITRNOD8 16 = STACK (TYPE LIST)>
+ <CALL '\1aORUPC 2 = STACK>
+ <CALL '\1aASSERT-TYPES 1>
+ <JUMP + PHRASE257>
+PHRASE236
+ <FRAME '\1aSAVE-L-D-STATE>
+ <NTHR 'OV 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <CALL '\1aSAVE-L-D-STATE 1 = SBR22>
+ <NTHR 'L-V 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP54 1 SBR22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP54 SBR22>
+ <JUMP + PHRASE257>
+PHRASE234
+ <NTHUV ITRNOD8 14 = SBR22>
+ <EQUAL? SBR22 'NO-RETURN + PHRASE257>
+ <DEAD SBR22>
+ <FRAME '\1aASSERT-TYPES>
+ <NTHUV ITRNOD8 16 = STACK (TYPE LIST)>
+ <CALL '\1aASSERT-TYPES 1>
+PHRASE257
+ <FRAME '\1aORUPC>
+ <NTHR 'OV 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <NTHR 'VALSPCD 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <CALL '\1aORUPC 2 = SBR22>
+ <NTHR 'VALSPCD 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP54 1 SBR22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP54 SBR22>
+ <FRAME '\1aASSUM-OK?>
+ <PUSH ASSU17>
+ <DEAD ASSU17>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHR 'VARTBL 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <CALL '\1aBUILD-TYPE-LIST 1 = STACK>
+ <CALL '\1aASSUM-OK? 2 = SBR22>
+ <TYPE? SBR22 <TYPE-CODE FALSE> + AGAIN129>
+ <DEAD SBR22>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH SKIPF164>
+ <NTHUV ITRNOD8 14 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = SBR22>
+ <PUTUV ITRNOD8 14 SBR22>
+ <DEAD SBR22>
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV ITRNOD8 14 = STACK>
+ <NTHUV ITRNOD8 17 = STACK>
+ <CALL '\1aTYPE-OK? 2 = SBR22>
+ <PUTUV ITRNOD8 3 SBR22>
+ <DEAD SBR22>
+ <UNBIND TEMP32>
+ <DEAD TEMP32>
+ <ADJ -27>
+ <FRAME '\1aASSERT-TYPES>
+ <NTHR 'VALSPCD 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CALL '\1aASSERT-TYPES 1>
+ <NTHR 'STATE 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP32 <TYPE-CODE UNBOUND> + PHRASE283>
+ <DEAD TEMP32>
+ <FRAME '\1aFIX-STATE>
+ <NTHUV ITRNOD8 14 = STACK>
+ <PUSH ITRNOD8>
+ <CALL '\1aFIX-STATE 2>
+ <NTHR 'STATE 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
+ <GRTR? TEMP32 4 - PHRASE280 (TYPE FIX)>
+ <DEAD TEMP32>
+ <SET SBRL23 %<> (TYPE FALSE)>
+ <PUTUV FAP9 1 66 (TYPE FIX)>
+ <SET FINTYPE25 <OR FIX FLOAT> (TYPE FORM)>
+ <JUMP + PHRASE283>
+PHRASE280
+ <NTHR 'STATE 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
+ <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
+ <NTHUV [FIX FLOAT FLOAT] TEMP32 = FINTYPE25 (TYPE ATOM)>
+ <DEAD TEMP32>
+PHRASE283
+ <FRAME '\1aSAVE-SURVIVORS>
+ <PUSH L-D18>
+ <DEAD L-D18>
+ <GEN-LVAL 'LIFE = STACK>
+ <PUSH 'T>
+ <CALL '\1aSAVE-SURVIVORS 3>
+ <FRAME '\1aSAVE-SURVIVORS>
+ <NTHR 'L-V 2 = SBR22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SBR22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SBR22>
+ <GEN-LVAL 'LIFE = STACK>
+ <CALL '\1aSAVE-SURVIVORS 2>
+ <NTHR 'FSTOP 2 = TEMP54 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP54 1 = TEMP54 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE295>
+ <DEAD TEMP54>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = TEMP32>
+ <JUMP + PHRASE302>
+PHRASE295
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <NTHR 'D-V 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP32>
+PHRASE302
+ <NTHR 'D-V 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP33 1 TEMP32 (RECORD-TYPE LBIND)>
+ <DEAD TEMP33 TEMP32>
+ <FRAME '\1aFREST-L-D-STATE>
+ <NTHR 'D-V 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CALL '\1aFREST-L-D-STATE 1>
+ <FRAME '\1aKILL-REM>
+ <GEN-LVAL 'LIFE = STACK>
+ <NTHR 'OV 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aKILL-REM 2 = TEMP33>
+ <GEN-SET 'LIFE TEMP33>
+ <DEAD TEMP33>
+ <TYPE? SBRL23 <TYPE-CODE FALSE> + PHRASE323>
+ <DEAD SBRL23>
+ <FRAME '\1aMUNG-SEGS>
+ <NTHR 'SEGFX 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aMUNG-SEGS 1>
+PHRASE323
+ <NTHUV ITRNOD8 8 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE328>
+ <DEAD TEMP33>
+ <FRAME '\1aUPDATE-SIDE-EFFECTS>
+ <PUSH ITRNOD8>
+ <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aUPDATE-SIDE-EFFECTS 2>
+PHRASE328
+ <NTHUV FAP9 1 = TEMP33 (TYPE FIX)>
+ <VEQUAL? TEMP33 2 - PHRASE333 (TYPE FIX)>
+ <DEAD TEMP33>
+ <NTHUV FAP9 4 = TEMP33>
+ <EQUAL? TEMP33 %<> - PHRASE333>
+ <DEAD TEMP33>
+ <FRAME '\1aTYPE-OK?>
+ <VEQUAL? CHF31 0 + PHRASE337>
+ <DEAD CHF31>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH 'FALSE>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <NTHR 'RETYPS 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aTYPE-MERGE 3 = TEMP33>
+ <JUMP + PHRASE341>
+PHRASE337
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <NTHR 'RETYPS 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <NTHR 'MRTYP 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+PHRASE341
+ <PUSH TEMP33>
+ <DEAD TEMP33>
+ <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE333
+ <TYPE? FINTYPE25 <TYPE-CODE UNBOUND> + PHRASE351>
+ <VEQUAL? FINTYPE25 'LIST - PHRASE353>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-MERGE>
+ <FRAME '\1aFORM>
+ <PUSH 'LIST>
+ <PUSH 'REST>
+ <NTHUV ITRNOD8 3 = STACK>
+ <DEAD ITRNOD8>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = STACK>
+ <NTHR 'RETYPS 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <NTHR 'MRTYP 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE353
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH FINTYPE25>
+ <DEAD FINTYPE25>
+ <NTHR 'RETYPS 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <NTHR 'MRTYP 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE351
+ <NTHUV FAP9 1 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 66 - PHRASE369 (TYPE FIX)>
+ <DEAD TEMP32>
+ <NTHUV FAP9 4 = TEMP32>
+ <SET TEMP33 [TUPLE VECTOR UVECTOR] (TYPE VECTOR)>
+ <TYPE? TEMP32 <TYPE-CODE ATOM> - PHRASE369>
+ <LOOP (TEMP32 VALUE) (TEMP33 LENGTH VALUE)>
+TAG372
+ <NTHUV TEMP33 1 = SBRL23>
+ <VEQUAL? SBRL23 TEMP32 + TAG371>
+ <DEAD SBRL23>
+ <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
+ <EMPUV? TEMP33 - TAG372>
+ <JUMP + PHRASE369>
+TAG371
+ <FRAME '\1aFORM>
+ <NTHUV FAP9 4 = STACK>
+ <DEAD FAP9>
+ <PUSH 'REST>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = SKIPF164>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-MERGE>
+ <NTHR 'RETYPS 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE369
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-MERGE>
+ <FRAME '\1aAPPLTYP>
+ <PUSH FAP9>
+ <DEAD FAP9>
+ <CALL '\1aAPPLTYP 1 = STACK>
+ <NTHR 'RETYPS 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE76
+ <VEQUAL? TT7 62 + PHRASE394 (TYPE FIX)>
+ <FRAME '\1aEANA>
+ <PUSH ITRNOD8>
+ <PUSH 'APPLICABLE>
+ <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP33 4 = STACK>
+ <DEAD TEMP33>
+ <CALL '\1aEANA 3>
+PHRASE394
+ <RESTL K6 1 = TEMP32 (TYPE LIST)>
+ <DEAD K6>
+ <RESTL TEMP32 1 = TEMP33 (TYPE LIST)>
+ <DEAD TEMP32>
+ <NTHR 'MPSTRS 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP32 1 TEMP33 (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <LOOP>
+MAP399
+ <INTGO>
+ <EMPL? TEMP33 + MAPAP402>
+ <NTHL TEMP33 1 = TEMP53>
+ <NTHUV TEMP53 1 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 3 + BOOL415 (TYPE FIX)>
+ <DEAD TEMP32>
+ <NTHUV TEMP53 1 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 68 - PHRASE414 (TYPE FIX)>
+ <DEAD TEMP32>
+BOOL415
+ <FRAME '\1aEANA>
+ <NTHUV TEMP53 5 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = STACK (TYPE NODE)>
+ <DEAD TEMP32>
+ <PUSH 'STRUCTURED>
+ <NTHR 'MNOD 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP32 4 = STACK>
+ <DEAD TEMP32>
+ <CALL '\1aEANA 3 = SBR22>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH SBR22>
+ <DEAD SBR22>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = SBR22>
+ <JUMP + PHRASE420>
+PHRASE414
+ <FRAME '\1aEANA>
+ <PUSH TEMP53>
+ <PUSH 'STRUCTURED>
+ <NTHR 'MNOD 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = TEMP32 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP32 4 = STACK>
+ <DEAD TEMP32>
+ <CALL '\1aEANA 3 = SBR22>
+PHRASE420
+ <GEN-LVAL 'VERBOSE = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE425>
+ <DEAD TEMP32>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH SBR22>
+ <CALL '\1aSTRUCTYP 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL429>
+ <EQUAL? TEMP32 'TEMPLATE - PHRASE425>
+ <DEAD TEMP32>
+BOOL429
+ <FRAME '\1aADDVMESS>
+ <NTHR 'MNOD 2 = TEMP32 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP32 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP32>
+ <CONS SBR22 () = TEMP32>
+ <DEAD SBR22>
+ <CONS " type is: " TEMP32 = TEMP32>
+ <CONS TEMP53 TEMP32 = TEMP32>
+ <DEAD TEMP53>
+ <CONS "Non-specific structure for MAPF/R: " TEMP32 = STACK>
+ <DEAD TEMP32>
+ <CALL '\1aADDVMESS 2>
+PHRASE425
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <JUMP + MAP399>
+MAPAP402
+ <VEQUAL? TT7 62 - PHRASE435 (TYPE FIX)>
+ <DEAD TT7>
+ <FRAME '\1aEANA>
+ <NTHUV ITRNOD8 5 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = STACK (TYPE NODE)>
+ <DEAD TEMP33>
+ <PUSH 'ANY>
+ <NTHR 'MNOD 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP33 4 = STACK>
+ <DEAD TEMP33>
+ <CALL '\1aEANA 3 = SKIPF164>
+ <VEQUAL? CHF31 0 + PHRASE442>
+ <DEAD CHF31>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-MERGE 2 = SKIPF164>
+ <JUMP + PHRASE442>
+PHRASE435
+ <SET SKIPF164 'ANY (TYPE ATOM)>
+PHRASE442
+ <NTHR 'STATE 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = TEMP33 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP33 <TYPE-CODE UNBOUND> + PHRASE450>
+ <DEAD TEMP33>
+ <FRAME '\1aFIX-STATE>
+ <PUSH SKIPF164>
+ <NTHUV ITRNOD8 5 = CHF31 (TYPE LIST)>
+ <DEAD ITRNOD8>
+ <NTHL CHF31 1 = STACK (TYPE NODE)>
+ <DEAD CHF31>
+ <CALL '\1aFIX-STATE 2>
+ <NTHR 'STATE 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR CHF31 1 = CHF31 (RECORD-TYPE LBIND)>
+ <GRTR? CHF31 4 - PHRASE447 (TYPE FIX)>
+ <DEAD CHF31>
+ <SET SBRL23 %<> (TYPE FALSE)>
+ <PUTUV FAP9 1 66 (TYPE FIX)>
+ <SET FINTYPE25 <OR FIX FLOAT> (TYPE FORM)>
+ <JUMP + PHRASE450>
+PHRASE447
+ <NTHR 'STATE 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR CHF31 1 = CHF31 (RECORD-TYPE LBIND)>
+ <SUB CHF31 1 = CHF31 (TYPE FIX)>
+ <NTHUV [FIX FLOAT FLOAT] CHF31 = FINTYPE25 (TYPE ATOM)>
+ <DEAD CHF31>
+PHRASE450
+ <TYPE? SBRL23 <TYPE-CODE FALSE> + PHRASE454>
+ <DEAD SBRL23>
+ <FRAME '\1aMUNG-SEGS>
+ <NTHR 'SEGFX 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR CHF31 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD CHF31>
+ <CALL '\1aMUNG-SEGS 1>
+PHRASE454
+ <NTHUV FAP9 1 = CHF31 (TYPE FIX)>
+ <VEQUAL? CHF31 2 - PHRASE459 (TYPE FIX)>
+ <DEAD CHF31>
+ <NTHUV FAP9 4 = CHF31>
+ <EQUAL? CHF31 %<> - PHRASE459>
+ <DEAD CHF31>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <NTHR 'MRTYP 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR CHF31 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD CHF31>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE459
+ <TYPE? FINTYPE25 <TYPE-CODE UNBOUND> + PHRASE464>
+ <VEQUAL? FINTYPE25 'LIST - PHRASE466>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aFORM>
+ <PUSH 'LIST>
+ <PUSH 'REST>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = STACK>
+ <NTHR 'MRTYP 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR CHF31 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD CHF31>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE466
+ <FRAME '\1aTYPE-OK?>
+ <PUSH FINTYPE25>
+ <DEAD FINTYPE25>
+ <NTHR 'MRTYP 2 = CHF31 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR CHF31 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD CHF31>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE464
+ <NTHUV FAP9 1 = CHF31 (TYPE FIX)>
+ <VEQUAL? CHF31 66 - PHRASE476 (TYPE FIX)>
+ <DEAD CHF31>
+ <NTHUV FAP9 4 = CHF31>
+ <SET TEMP33 [TUPLE VECTOR UVECTOR] (TYPE VECTOR)>
+ <TYPE? CHF31 <TYPE-CODE ATOM> - PHRASE476>
+ <LOOP (CHF31 VALUE) (TEMP33 LENGTH VALUE)>
+TAG479
+ <NTHUV TEMP33 1 = TEMP32>
+ <VEQUAL? TEMP32 CHF31 + TAG478>
+ <DEAD TEMP32>
+ <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
+ <EMPUV? TEMP33 - TAG479>
+ <JUMP + PHRASE476>
+TAG478
+ <FRAME '\1aFORM>
+ <NTHUV FAP9 4 = STACK>
+ <DEAD FAP9>
+ <PUSH 'REST>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = SKIPF164>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-MERGE>
+ <NTHR 'RETYPS 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <PUSH SKIPF164>
+ <DEAD SKIPF164>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <JUMP + PHRASE489>
+PHRASE476
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aAPPLTYP>
+ <PUSH FAP9>
+ <DEAD FAP9>
+ <CALL '\1aAPPLTYP 1 = STACK>
+ <NTHR 'MRTYP 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP33 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP33>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+PHRASE489
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -126>
+ <RETURN TEMP33>
+ <DEAD TEMP33>
+ <END \1aMAPPER-AN>
+
+\\f
+
+#WORD *31142265764*
+ <GFCN \1aFIX-STATE ("VALUE" FIX ANY NODE) TEM4 N5>
+ <TEMP TEMP12 TEMP13 TEMP14 TT6>
+ <INTGO>
+ <NTHUV N5 1 = TEMP12 (TYPE FIX)>
+ <GVAL 'SEG-CODES = TEMP13>
+ <EMPTY? TEMP13 + TAG8>
+ <LOOP (TEMP12 VALUE) (TEMP13 LENGTH VALUE TYPE)>
+TAG10
+ <NTH1 TEMP13 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FIX> - TAG11>
+ <VEQUAL? TEMP14 TEMP12 + TAG9>
+ <DEAD TEMP14>
+TAG11
+ <REST1 TEMP13 = TEMP13>
+ <EMPTY? TEMP13 - TAG10>
+TAG8
+ <SET TEMP13 %<> (TYPE FALSE)>
+TAG9
+ <EQUAL? TEM4 'FIX - PHRASE17>
+ <SET TEMP13 1 (TYPE FIX)>
+ <JUMP + PHRASE31>
+PHRASE17
+ <EQUAL? TEM4 'FLOAT - PHRASE18>
+ <SET TEMP13 2 (TYPE FIX)>
+ <JUMP + PHRASE31>
+PHRASE18
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEM4>
+ <PUSH 'FLOAT>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE19>
+ <DEAD TEMP12>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP13>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH <STRUCTURED [REST FIX]>>
+ <NTHUV N5 3 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TEMP12>
+ <JUMP + PHRASE24>
+PHRASE22
+ <SET TEMP12 'FIX (TYPE ATOM)>
+PHRASE24
+ <PUTUV N5 3 TEMP12>
+ <DEAD N5 TEMP12>
+ <SET TEMP13 1 (TYPE FIX)>
+ <JUMP + PHRASE31>
+PHRASE19
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEM4>
+ <DEAD TEM4>
+ <PUSH 'FIX>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE25>
+ <DEAD TEMP12>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD TEMP13>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH <STRUCTURED [REST FLOAT]>>
+ <NTHUV N5 3 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TEMP12>
+ <JUMP + PHRASE30>
+PHRASE28
+ <SET TEMP12 'FLOAT (TYPE ATOM)>
+PHRASE30
+ <PUTUV N5 3 TEMP12>
+ <DEAD N5 TEMP12>
+ <SET TEMP13 2 (TYPE FIX)>
+ <JUMP + PHRASE31>
+PHRASE25
+ <SET TEMP13 3 (TYPE FIX)>
+PHRASE31
+ <SET TT6 TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'ASTATE = TEMP13>
+ <GEN-LVAL 'STATE = TEMP12>
+ <NTHUV TEMP13 TEMP12 = TEMP14 (TYPE UVECTOR)>
+ <DEAD TEMP13 TEMP12>
+ <NTHUU TEMP14 TT6 = TEMP12 (TYPE FIX)>
+ <DEAD TEMP14 TT6>
+ <GEN-SET 'STATE TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aFIX-STATE>
+
+<SETG SEG-CODES [,SEG-CODE ,SEGMENT-CODE]>
+
+#WORD *14121054422*
+ <GFCN \1aMUNG-SEGS ("VALUE" <OR FALSE NODE> <LIST [REST NODE]>) SEGS4>
+ <TEMP TEMP14 TEMP11:LIST>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <SET TEMP11 SEGS4 (TYPE LIST)>
+ <DEAD SEGS4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPL? TEMP11 + MAPAP9>
+ <NTHL TEMP11 1 = TEMP14>
+ <PUTUV TEMP14 1 68 (TYPE FIX)>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aMUNG-SEGS>
+
+#WORD *32170554246*
+ <GFCN \1aMARGS-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP TEMP8 NN7:FIX>
+ <INTGO>
+ <GEN-LVAL 'MPSTRS = TEMP8>
+ <NTHUV N4 4 = NN7 (TYPE FIX)>
+ <DEAD N4>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGET-ELE-TYPE>
+ <SUB NN7 1 = NN7 (TYPE FIX)>
+ <GRTR? NN7 0 - RESTL17 (TYPE FIX)>
+ <LOOP (TEMP8 VALUE) (NN7 VALUE)>
+RESTL15
+ <INTGO>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <SUB NN7 1 = NN7 (TYPE FIX)>
+ <GRTR? NN7 0 + RESTL15 (TYPE FIX)>
+RESTL17
+ <NTHL TEMP8 1 = TEMP8 (TYPE NODE)>
+ <NTHUV TEMP8 3 = STACK>
+ <DEAD TEMP8>
+ <PUSH 'ALL>
+ <GEN-LVAL 'R? = STACK>
+ <CALL '\1aGET-ELE-TYPE 3 = STACK>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = R5>
+ <GEN-LVAL 'R? = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD TEMP8>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH <STRUCTURED ANY>>
+ <CALL '\1aTYPE-OK? 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE21
+ <RETURN R5>
+ <DEAD R5>
+ <END \1aMARGS-ANA>
+
+#WORD *32447376350*
+ <GFCN \1aMAUX ("VALUE" ATOM SYMTAB <OR FALSE NODE> ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
+ <TEMP TEMP12>
+ <INTGO>
+ <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD STRUC5>
+ <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD SKIPF6>
+ <TYPE? LAST-SEG7 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD LAST-SEG7>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "MAPF/R function takes too many args ">
+ <GEN-LVAL 'MNOD = TEMP12>
+ <NTHUV TEMP12 5 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK (TYPE NODE)>
+ <DEAD TEMP12>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <RETURN 'T>
+PHRASE9
+ <FRAME '\1aNORM-BAN>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-BAN 1>
+ <RETURN 'T>
+ <END \1aMAUX>
+
+#WORD *32561556536*
+ <GFCN \1aMAUX1 ("VALUE" ATOM SYMTAB <OR FALSE NODE> ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
+ <TEMP TEMP12>
+ <INTGO>
+ <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD STRUC5>
+ <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD SKIPF6>
+ <TYPE? LAST-SEG7 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD LAST-SEG7>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "MAPF/R function takes too many args ">
+ <GEN-LVAL 'MNOD = TEMP12>
+ <NTHUV TEMP12 5 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK (TYPE NODE)>
+ <DEAD TEMP12>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE9
+ <GEN-LVAL 'ANALY-OK = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE16>
+ <DEAD TEMP12>
+ <SET TEMP12 'NO-RETURN (TYPE ATOM)>
+ <JUMP + PHRASE19>
+PHRASE16
+ <NTHUV SYM4 7 = TEMP12>
+PHRASE19
+ <PUTUV SYM4 18 TEMP12>
+ <DEAD TEMP12>
+ <GEN-LVAL 'ANALY-OK = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD TEMP12>
+ <SET TEMP12 'NO-RETURN (TYPE ATOM)>
+ <JUMP + PHRASE24>
+PHRASE21
+ <SET TEMP12 'ANY (TYPE ATOM)>
+PHRASE24
+ <PUTUV SYM4 17 TEMP12>
+ <DEAD SYM4 TEMP12>
+ <RETURN 'T>
+ <END \1aMAUX1>
+
+#WORD *17154376411*
+ <GFCN \1aMNORM ("VALUE" ATOM SYMTAB <OR NODE FALSE> ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
+ <TEMP TEMP3:LBIND TEMP13 TEMP32>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <NTHUV SYM4 1 = TEMP13 (TYPE SYMTAB)>
+ <BBIND 'VARTBL 'SYMTAB 'FIX TEMP13>
+ <DEAD TEMP13>
+ <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE15>
+ <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE15>
+ <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE18>
+ <FRAME '\1aGET-ELE-TYPE>
+ <FRAME '\1aEANA>
+ <NTHUV STRUC5 5 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE NODE)>
+ <DEAD TEMP13>
+ <PUSH 'STRUCTURED>
+ <PUSH 'MAPF/R>
+ <CALL '\1aEANA 3 = STACK>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aGET-ELE-TYPE 2 = TEMP13>
+ <JUMP + PHRASE21>
+PHRASE18
+ <FRAME '\1aEANA>
+ <PUSH STRUC5>
+ <PUSH 'ANY>
+ <PUSH 'MAPF/R>
+ <CALL '\1aEANA 3 = TEMP13>
+PHRASE21
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH 'ALL>
+ <GEN-LVAL 'R? = STACK>
+ <CALL '\1aGET-ELE-TYPE 3 = STACK>
+ <NTHUV SYM4 7 = STACK>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE24>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "MAPF/R structure violates arg DECL ">
+ <NTHUV SYM4 2 = STACK (TYPE ATOM)>
+ <PUSH " ">
+ <NTHUV SYM4 7 = STACK>
+ <PUSH STRUC5>
+ <DEAD STRUC5>
+ <CALL '\1aCOMPILE-ERROR 5>
+PHRASE24
+ <GEN-LVAL 'R? = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE31>
+ <DEAD TEMP32>
+ <FRAME '\1aTYPE-AND>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH <STRUCTURED ANY>>
+ <CALL '\1aTYPE-AND 2 = TEMP13>
+PHRASE31
+ <FRAME '\1aN=?>
+ <PUSH TEMP13>
+ <NTHUV SYM4 7 = STACK>
+ <CALL '\1aN=? 2 = TEMP32>
+ <VEQUAL? TEMP32 0 + PHRASE37>
+ <DEAD TEMP32>
+ <PUTUV SYM4 17 TEMP13>
+PHRASE37
+ <PUTUV SYM4 18 TEMP13>
+ <DEAD SYM4 TEMP13>
+ <JUMP + PHRASE39>
+PHRASE15
+ <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE39>
+ <DEAD SKIPF6>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too fewa argumens MAPF/R function">
+ <GEN-LVAL 'MNOD = STACK>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE39
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN 'T>
+ <END \1aMNORM>
+
+#WORD *17624660077*
+ <GFCN \1aMOPT ("VALUE" ATOM SYMTAB <OR FALSE NODE> ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
+ <TEMP TEMP3:LBIND TEMP9:SYMTAB>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <NTHUV SYM4 1 = TEMP9 (TYPE SYMTAB)>
+ <BBIND 'VARTBL 'SYMTAB 'FIX TEMP9>
+ <DEAD TEMP9>
+ <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE11>
+ <PUTUV SYM4 9 %<>>
+ <FRAME '\1aMNORM>
+ <PUSH SYM4>
+ <PUSH STRUC5>
+ <PUSH SKIPF6>
+ <PUSH LAST-SEG7>
+ <CALL '\1aMNORM 4>
+PHRASE11
+ <TYPE? STRUC5 <TYPE-CODE FALSE> + BOOL15>
+ <DEAD STRUC5>
+ <TYPE? SKIPF6 <TYPE-CODE FALSE> - BOOL15>
+ <DEAD SKIPF6>
+ <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD LAST-SEG7>
+BOOL15
+ <FRAME '\1aNORM-BAN>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-BAN 1>
+PHRASE14
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN 'T>
+ <END \1aMOPT>
+
+#WORD *20315552172*
+ <GFCN \1aMBAD ("VALUE" ANY ANY ANY ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Unrecognized arg decl in MAPF/R function ">
+ <NTHUV SYM4 2 = STACK (TYPE ATOM)>
+ <DEAD SYM4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMBAD>
+
+#WORD *5335112557*
+ <GFCN \1aMOPT2 ("VALUE" ATOM ANY ANY ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
+ <TEMP>
+ <INTGO>
+ <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE9>
+ <FRAME '\1aMNORM>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH STRUC5>
+ <DEAD STRUC5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMNORM 4>
+PHRASE9
+ <RETURN 'T>
+ <END \1aMOPT2>
+
+\\f
+
+#WORD *30576112375*
+ <GFCN \1aMTUPLE ("VALUE" <OR ATOM !<FALSE>> ANY ANY ANY ANY) SYM4 STRUC5 SKIPF6 LAST-SEG7>
+ <TEMP TEMP3:LBIND TEMP12 ATYP10 TEMP38>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <NTHUV SYM4 1 = TEMP12>
+ <BBIND 'VARTBL 'ANY 'FIX TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aGET-ELE-TYPE>
+ <NTHUV SYM4 7 = STACK>
+ <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE15>
+ <SET TEMP12 'ALL (TYPE ATOM)>
+ <JUMP + PHRASE16>
+PHRASE15
+ <FRAME '\1a+>
+ <GEN-LVAL 'TUPCNT = STACK>
+ <PUSH 1>
+ <CALL '\1a+ 2 = TEMP12>
+ <GEN-SET 'TUPCNT TEMP12>
+PHRASE16
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aGET-ELE-TYPE 2 = ATYP10>
+ <TYPE? STRUC5 <TYPE-CODE FALSE> + PHRASE24>
+ <TYPE? SKIPF6 <TYPE-CODE FALSE> - PHRASE24>
+ <DEAD SKIPF6>
+ <GEN-LVAL 'R? = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP12>
+ <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD LAST-SEG7>
+ <FRAME '\1aEANA>
+ <NTHUV STRUC5 5 = TEMP12 (TYPE LIST)>
+ <DEAD STRUC5>
+ <NTHL TEMP12 1 = STACK (TYPE NODE)>
+ <DEAD TEMP12>
+ <PUSH 'STRUCTURED>
+ <PUSH 'MAPF/R>
+ <CALL '\1aEANA 3 = TEMP12>
+ <FRAME '\1aSTRUCTYP>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <CALL '\1aSTRUCTYP 1 = TEMP12>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH ATYP10>
+ <DEAD ATYP10>
+ <CALL '\1aSTRUCTYP 1 = TEMP38>
+ <EQUAL? TEMP12 TEMP38 + PHRASE60>
+ <DEAD TEMP12 TEMP38>
+ <JUMP + PHRASE39>
+PHRASE33
+ <FRAME '\1aEANA>
+ <PUSH STRUC5>
+ <DEAD STRUC5>
+ <PUSH 'STRUCTURED>
+ <PUSH 'MAPF/R>
+ <CALL '\1aEANA 3 = TEMP12>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aSTRUCTYP 1 = TEMP38>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH ATYP10>
+ <DEAD ATYP10>
+ <CALL '\1aSTRUCTYP 1 = TEMP12>
+ <EQUAL? TEMP38 TEMP12 + PHRASE60>
+ <DEAD TEMP38 TEMP12>
+PHRASE39
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Bad argument to MAPF/R function ">
+ <NTHUV SYM4 2 = STACK (TYPE ATOM)>
+ <DEAD SYM4>
+ <GEN-LVAL 'MNOD = STACK>
+ <CALL '\1aCOMPILE-ERROR 3>
+ <JUMP + PHRASE60>
+PHRASE27
+ <TYPE? LAST-SEG7 <TYPE-CODE FALSE> + PHRASE56>
+ <DEAD LAST-SEG7>
+ <FRAME '\1aEANA>
+ <NTHUV STRUC5 5 = TEMP38 (TYPE LIST)>
+ <DEAD STRUC5>
+ <NTHL TEMP38 1 = STACK (TYPE NODE)>
+ <DEAD TEMP38>
+ <PUSH 'STRUCTURED>
+ <PUSH 'MAPF/R>
+ <CALL '\1aEANA 3 = TEMP12>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGET-ELE-TYPE>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <PUSH ATYP10>
+ <DEAD ATYP10>
+ <CALL '\1aTYPE-OK? 2 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE60>
+ <DEAD TEMP38>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Bad argument to MAPF/R function ">
+ <NTHUV SYM4 2 = STACK (TYPE ATOM)>
+ <DEAD SYM4>
+ <GEN-LVAL 'MNOD = STACK>
+ <CALL '\1aCOMPILE-ERROR 3>
+ <JUMP + PHRASE60>
+PHRASE56
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGET-ELE-TYPE>
+ <FRAME '\1aEANA>
+ <PUSH STRUC5>
+ <DEAD STRUC5>
+ <PUSH 'STRUCTURED>
+ <PUSH 'MAPF/R>
+ <CALL '\1aEANA 3 = STACK>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <PUSH ATYP10>
+ <DEAD ATYP10>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE60>
+ <DEAD TEMP12>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Bad argument to MAPF/R function ">
+ <NTHUV SYM4 2 = STACK (TYPE ATOM)>
+ <DEAD SYM4>
+ <GEN-LVAL 'MNOD = STACK>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE60
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + PHRASE69>
+PHRASE24
+ <SET TEMP12 'T (TYPE ATOM)>
+PHRASE69
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMTUPLE>
+
+#WORD *15662631777*
+ <GFCN \1aMENTROPY ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY) N7 R8 X9 Y10>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP>
+ <INTGO>
+ <RETURN 'T>
+ <END \1aMENTROPY>
+
+#WORD *22276207007*
+ <GFCN \1aMANAL-DISP ("VALUE" ANY ANY ANY ANY ANY) SYM4 NOD5 SKIPF6 LAST-SEG7>
+ <TEMP COD8>
+ <INTGO>
+ <NTHUV SYM4 4 = COD8 (TYPE FIX)>
+ <DISPATCH COD8 1 CASE11 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASE18 CASE19 CASE20 CASE21 CASE22 CASE23>
+ <DEAD COD8>
+ <RETURN %<>>
+CASE11
+ <FRAME '\1aMENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMENTROPY 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE12
+ <FRAME '\1aMAUX>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMAUX 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE13
+ <FRAME '\1aMAUX1>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMAUX1 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE14
+ <FRAME '\1aMTUPLE>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMTUPLE 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE15
+ <FRAME '\1aMBAD>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMBAD 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE16
+ <FRAME '\1aMOPT>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMOPT 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE17
+ <FRAME '\1aMOPT>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMOPT 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE18
+ <FRAME '\1aMOPT2>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMOPT2 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE19
+ <FRAME '\1aMOPT2>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMOPT2 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE20
+ <FRAME '\1aMBAD>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMBAD 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE21
+ <FRAME '\1aMENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMENTROPY 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE22
+ <FRAME '\1aMNORM>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMNORM 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+CASE23
+ <FRAME '\1aMNORM>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH SKIPF6>
+ <DEAD SKIPF6>
+ <PUSH LAST-SEG7>
+ <DEAD LAST-SEG7>
+ <CALL '\1aMNORM 4 = COD8>
+ <RETURN COD8>
+ <DEAD COD8>
+ <END \1aMANAL-DISP>
+
+"Additional SUBR analyzers associated with MAP hackers."
+
+#WORD *32761305251*
+ <GFCN \1aMAPLEAVE-ANA ("VALUE" ATOM NODE ANY) N4 R5>
+ <TEMP K6 LN7>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <LENL K6 = LN7 (TYPE FIX)>
+ <GEN-SET 'RET-OR-AGAIN 'T>
+ <GEN-ASSIGNED? 'MNOD - PHRASE12>
+ <FRAME '\1aARGCHK>
+ <PUSH LN7>
+ <PUSH (0 1)>
+ <PUSH 'MAPLEAVE>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+ <VEQUAL? LN7 0 - PHRASE16 (TYPE FIX)>
+ <DEAD LN7>
+ <FRAME '\1aNODE1>
+ <PUSH 2>
+ <PUSH N4>
+ <PUSH 'ATOM>
+ <PUSH 'T>
+ <PUSH ()>
+ <CALL '\1aNODE1 5 = K6>
+ <CONS K6 () = K6>
+ <PUTUV N4 5 K6 (TYPE LIST)>
+PHRASE16
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <DEAD K6>
+ <GEN-LVAL 'MRTYP = STACK>
+ <PUSH 'MAPLEAVE>
+ <CALL '\1aEANA 3 = K6>
+ <FRAME '\1aORUPC>
+ <GEN-LVAL 'OV = STACK>
+ <GEN-LVAL 'VALSPCD = STACK>
+ <CALL '\1aORUPC 2 = LN7>
+ <GEN-SET 'VALSPCD LN7>
+ <DEAD LN7>
+ <GEN-LVAL 'FSTOP = LN7>
+ <TYPE? LN7 <TYPE-CODE FALSE> + PHRASE35>
+ <DEAD LN7>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = LN7>
+ <JUMP + PHRASE42>
+PHRASE35
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <GEN-LVAL 'D-V = STACK>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = LN7>
+PHRASE42
+ <GEN-SET 'D-V LN7>
+ <DEAD LN7>
+ <GEN-SET 'FSTOP %<>>
+ <FRAME '\1aTYPE-MERGE>
+ <GEN-LVAL 'RETYPS = STACK>
+ <PUSH K6>
+ <DEAD K6>
+ <CALL '\1aTYPE-MERGE 2 = K6>
+ <GEN-SET 'RETYPS K6>
+ <DEAD K6>
+ <PUTUV N4 1 63 (TYPE FIX)>
+ <DEAD N4>
+ <RETURN 'NO-RETURN>
+PHRASE12
+ <FRAME '\1aSUBR-C-AN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aSUBR-C-AN 2>
+ <RETURN 'NO-RETURN>
+ <END \1aMAPLEAVE-ANA>
+
+\\f
+
+#WORD *21456042677*
+ <GFCN \1aMAPRET-STOP-ANA ("VALUE" ATOM NODE ANY) NOD4 R5>
+ <TEMP (ARGS6:FIX 0) (TYP7 'NO-RETURN) TEMP19 ITRNOD9:NODE N41:NODE TEMP45>
+ <INTGO>
+ <GEN-SET 'RET-OR-AGAIN 'T>
+ <GEN-ASSIGNED? 'MNOD + BOOL15>
+ <FRAME '\1aSUBR-C-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aSUBR-C-AN 2>
+ <RETURN 'NO-RETURN>
+BOOL15
+ <GEN-LVAL 'MNOD = TEMP19>
+ <NTHUV TEMP19 5 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = ITRNOD9 (TYPE NODE)>
+ <DEAD TEMP19>
+ <PUTUV ITRNOD9 12 'T>
+ <GEN-LVAL 'MNOD = TEMP19>
+ <NTHUV TEMP19 5 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19 (TYPE NODE)>
+ <NTHUV TEMP19 4 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE23>
+ <DEAD TEMP19>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "MAPRET/STOP with no final function.">
+ <GEN-LVAL 'MNOD = STACK>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE23
+ <NTHUV NOD4 5 = TEMP19 (TYPE LIST)>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP33>
+ <NTHL TEMP19 1 = N41>
+ <NTHUV N41 1 = TEMP45 (TYPE FIX)>
+ <VEQUAL? TEMP45 3 + BOOL44 (TYPE FIX)>
+ <DEAD TEMP45>
+ <NTHUV N41 1 = TEMP45 (TYPE FIX)>
+ <VEQUAL? TEMP45 68 - PHRASE43 (TYPE FIX)>
+ <DEAD TEMP45>
+BOOL44
+ <FRAME '\1aEANA>
+ <NTHUV N41 5 = TEMP45 (TYPE LIST)>
+ <DEAD N41>
+ <NTHL TEMP45 1 = STACK (TYPE NODE)>
+ <DEAD TEMP45>
+ <GEN-ASSIGNED? 'STATE - PHRASE48>
+ <SET TEMP45 <STRUCTURED [REST <OR FIX FLOAT>]> (TYPE FORM)>
+ <JUMP + PHRASE50>
+PHRASE48
+ <SET TEMP45 'STRUCTURED (TYPE ATOM)>
+PHRASE50
+ <PUSH TEMP45>
+ <DEAD TEMP45>
+ <PUSH 'SEGMENT>
+ <CALL '\1aEANA 3 = TEMP45>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH TEMP45>
+ <DEAD TEMP45>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TYP7>
+ <PUTUV NOD4 6 'T>
+ <JUMP + PHRASE53>
+PHRASE43
+ <ADD ARGS6 1 = ARGS6 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <FRAME '\1aEANA>
+ <PUSH N41>
+ <DEAD N41>
+ <GEN-ASSIGNED? 'STATE - PHRASE57>
+ <SET TYP7 <OR FIX FLOAT> (TYPE FORM)>
+ <JUMP + PHRASE59>
+PHRASE57
+ <SET TYP7 'ANY (TYPE ATOM)>
+PHRASE59
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <NTHUV NOD4 4 = STACK>
+ <CALL '\1aEANA 3 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TYP7>
+PHRASE53
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP30>
+MAPAP33
+ <GEN-ASSIGNED? 'STATE - BOOL60>
+ <EQUAL? TYP7 'NO-RETURN + BOOL60>
+ <FRAME '\1aFIX-STATE>
+ <PUSH TYP7>
+ <PUSH NOD4>
+ <CALL '\1aFIX-STATE 2>
+BOOL60
+ <NTHUV NOD4 9 = TEMP19>
+ <GVAL 'MAPRET = TEMP45>
+ <EQUAL? TEMP19 TEMP45 - PHRASE63>
+ <DEAD TEMP19 TEMP45>
+ <GEN-LVAL 'FRET = TEMP45>
+ <TYPE? TEMP45 <TYPE-CODE FALSE> + PHRASE65>
+ <DEAD TEMP45>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = TEMP19>
+ <JUMP + PHRASE71>
+PHRASE65
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <GEN-LVAL 'L-V = STACK>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP19>
+PHRASE71
+ <GEN-SET 'L-V TEMP19>
+ <DEAD TEMP19>
+ <GEN-LVAL 'FRET = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE81>
+ <DEAD TEMP19>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP19>
+ <JUMP + PHRASE88>
+PHRASE81
+ <FRAME '\1aORUPC>
+ <GEN-LVAL 'VARTBL = STACK>
+ <NTHUV ITRNOD9 16 = STACK (TYPE LIST)>
+ <CALL '\1aORUPC 2 = TEMP19>
+PHRASE88
+ <PUTUV ITRNOD9 16 TEMP19>
+ <DEAD ITRNOD9 TEMP19>
+ <GEN-SET 'FRET %<>>
+ <JUMP + PHRASE95>
+PHRASE63
+ <GEN-LVAL 'FSTOP = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE97>
+ <DEAD TEMP19>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = TEMP19>
+ <JUMP + PHRASE104>
+PHRASE97
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <GEN-LVAL 'D-V = STACK>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP19>
+PHRASE104
+ <GEN-SET 'D-V TEMP19>
+ <DEAD TEMP19>
+ <FRAME '\1aORUPC>
+ <GEN-LVAL 'OV = STACK>
+ <GEN-LVAL 'VALSPCD = STACK>
+ <CALL '\1aORUPC 2 = TEMP19>
+ <GEN-SET 'VALSPCD TEMP19>
+ <DEAD TEMP19>
+ <GEN-SET 'FSTOP %<>>
+PHRASE95
+ <GEN-LVAL 'MNOD = TEMP19>
+ <NTHUV TEMP19 5 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19 (TYPE NODE)>
+ <FRAME '\1aTYPE-MERGE>
+ <GEN-LVAL 'MNOD = TEMP45>
+ <NTHUV TEMP45 5 = TEMP45 (TYPE LIST)>
+ <RESTL TEMP45 1 = TEMP45 (TYPE LIST)>
+ <NTHL TEMP45 1 = TEMP45 (TYPE NODE)>
+ <NTHUV TEMP45 14 = STACK>
+ <DEAD TEMP45>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aTYPE-MERGE 2 = TEMP45>
+ <PUTUV TEMP19 14 TEMP45>
+ <DEAD TEMP19 TEMP45>
+ <PUTUV NOD4 1 64 (TYPE FIX)>
+ <DEAD NOD4>
+ <RETURN 'NO-RETURN>
+ <END \1aMAPRET-STOP-ANA>
+
+<COND (<GASSIGNED? MAPLEAVE-ANA> <PUTPROP ,MAPLEAVE ANALYSIS ,MAPLEAVE-ANA> <PUTPROP ,MAPRET ANALYSIS ,MAPRET-STOP-ANA> <PUTPROP ,MAPSTOP ANALYSIS ,MAPRET-STOP-ANA>)>
+
+#WORD *31022652405*
+ <GFCN \1aSUBAP? ("VALUE" <OR ATOM FALSE> NODE) NOD4>
+ <TEMP (COD6 0) TT5>
+ <INTGO>
+ <NTHUV NOD4 1 = COD6 (TYPE FIX)>
+ <VEQUAL? COD6 33 + TAG10 (TYPE FIX)>
+ <VEQUAL? COD6 66 + TAG10 (TYPE FIX)>
+ <VEQUAL? COD6 71 + TAG10 (TYPE FIX)>
+ <DEAD COD6>
+ <RETURN %<>>
+TAG10
+ <NTHUV NOD4 5 = COD6 (TYPE LIST)>
+ <DEAD NOD4>
+ <NTHL COD6 1 = NOD4 (TYPE NODE)>
+ <DEAD COD6>
+ <NTHUV NOD4 1 = COD6 (TYPE FIX)>
+ <VEQUAL? COD6 2 + TAG12 (TYPE FIX)>
+ <DEAD COD6>
+ <RETURN %<>>
+TAG12
+ <NTHUV NOD4 4 = TT5>
+ <DEAD NOD4>
+ <NTHR TT5 1 = COD6 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG14)>
+ <TYPE? COD6 <TYPE-CODE FALSE> + TAG14>
+ <NTHR COD6 1 = COD6 (RECORD-TYPE GBIND)>
+ <TYPE? COD6 <TYPE-CODE UNBOUND> - TAG13>
+ <DEAD COD6>
+TAG14
+ <RETURN %<>>
+TAG13
+ <RETURN TT5>
+ <DEAD TT5>
+ <END \1aSUBAP?>
+
+<ENDPACKAGE>
projects / pdp10-muddle.git / blobdiff