--- /dev/null
+
+<PACKAGE "MAPGEN">
+
+<ENTRY MAPFR-GEN MAPRET-STOP-GEN MAPLEAVE-GEN MTUPLE-GEN MBINDERS MPARGS-GEN MOPTG MOPTG2>
+
+<USE "COMPDEC" "CODGEN" "CHKDCL" "CARGEN" "NEWREP" "STRGEN" "MIMGEN" "ADVMESS">
+
+" Definitions of offsets into MAPINFO vector used by MAP hackers inferiors."
+
+<SETG MAP-STRS 1>
+
+<SETG MAP-FR 2>
+
+<SETG MAP-TAG 3>
+
+<SETG MAP-TEMPS 4>
+
+<SETG MAP-F? 5>
+
+<SETG MAP-FTMP 6>
+
+<SETG MAP-EXTMP 7>
+
+<SETG MAP-SEG? 8>
+
+<MANIFEST MAP-FR MAP-TAG MAP-TGL MAP-SRC MAP-TEMPS MAP-F? MAP-FTMP MAP-EXTMP MAP-SEG? MAP-STRS>
+
+<PUT-DECL MPINFO '<VECTOR <LIST [REST NODE]> <OR FALSE ATOM> ATOM <LIST [REST TEMP]> <OR FALSE ATOM> TEMP TEMP <LIST [REST <OR ATOM FALSE>]>>>
+
+"\f"
+
+#WORD *632430173*
+ <GFCN \1aMAPFR-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NF10 BR11 DIR12>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP K13:LIST TEMP15 COD14:FIX FAP22:NODE TEMP21:LBIND INRAP24:NODE MAYBE-FALSE30 NARG31:FIX TEMP34 MAPEND36:ATOM MAPLP38:ATOM SUBRC40 FOONARG42 TEMP50 TEMP59 FTMP62:TEMP EXTMP64:TEMP TEMP80 TEMP78 X82 SEG?71:LIST FF?29 TMP70:TEMP>
+ <INTGO>
+ <NTHUV NOD8 5 = K13 (TYPE LIST)>
+ <RESTL K13 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = TEMP15 (TYPE NODE)>
+ <NTHUV TEMP15 1 = COD14 (TYPE FIX)>
+ <DEAD TEMP15>
+ <VEQUAL? COD14 51 - PHRASE17 (TYPE FIX)>
+ <FRAME '\1aHMAPFR>
+ <PUSH NOD8>
+ <DEAD NOD8>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <PUSH K13>
+ <DEAD K13>
+ <PUSH NF10>
+ <DEAD NF10>
+ <PUSH BR11>
+ <DEAD BR11>
+ <PUSH DIR12>
+ <DEAD DIR12>
+ <CALL '\1aHMAPFR 6 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE17
+ <NTHL K13 1 = FAP22 (TYPE NODE)>
+ <GETS 'BIND = TEMP21 (TYPE LBIND)>
+ <BBIND 'MPINFO 'MPINFO 'FIX>
+ <RESTL K13 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = INRAP24 (TYPE NODE)>
+ <DEAD TEMP15>
+ <BBIND 'STACKED 'FIX 'FIX 0>
+ <SET MAYBE-FALSE30 %<> (TYPE FALSE)>
+ <RESTL K13 1 = K13 (TYPE LIST)>
+ <RESTL K13 1 = K13 (TYPE LIST)>
+ <LENL K13 = NARG31 (TYPE FIX)>
+ <NTHUV NOD8 9 = TEMP15>
+ <GVAL 'MAPR = TEMP34>
+ <EQUAL? TEMP15 TEMP34 - TAG33>
+ <DEAD TEMP15 TEMP34>
+ <SET TEMP15 'T (TYPE ATOM)>
+ <JUMP + TAG35>
+TAG33
+ <SET TEMP15 %<> (TYPE FALSE)>
+TAG35
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "MAP">
+ <CALL '\1aMAKE-TAG 1 = MAPEND36>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "MAP">
+ <CALL '\1aMAKE-TAG 1 = MAPLP38>
+ <FRAME '\1aAP?>
+ <PUSH FAP22>
+ <CALL '\1aAP? 1 = SUBRC40>
+ <SET FOONARG42 NARG31>
+ <SET TEMP50 () (TYPE LIST)>
+ <SET TEMP34 () (TYPE LIST)>
+ <LOOP>
+MAP45
+ <INTGO>
+ <SUB FOONARG42 1 = FOONARG42 (TYPE FIX)>
+ <LESS? FOONARG42 0 + MAPAP48 (TYPE FIX)>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP59>
+ <CONS TEMP59 () = TEMP59 (TYPE LIST)>
+ <EMPL? TEMP50 - TAG60>
+ <SET TEMP50 TEMP59 (TYPE LIST)>
+ <JUMP + TAG61>
+TAG60
+ <PUTREST TEMP34 TEMP59>
+ <DEAD TEMP34>
+TAG61
+ <SET TEMP34 TEMP59 (TYPE LIST)>
+ <DEAD TEMP59>
+ <JUMP + MAP45>
+MAPAP48
+ <SET FOONARG42 TEMP50>
+ <DEAD TEMP50>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = FTMP62>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = EXTMP64>
+ <SET TEMP34 %<> (TYPE FALSE)>
+ <EQUAL? WHERE9 'FLUSHED - TAG68>
+ <SET TEMP50 'T (TYPE ATOM)>
+ <JUMP + TAG69>
+TAG68
+ <SET TEMP50 %<> (TYPE FALSE)>
+TAG69
+ <SET TEMP80 () (TYPE LIST)>
+ <SET TEMP78 () (TYPE LIST)>
+ <SET TEMP59 FOONARG42 (TYPE LIST)>
+ <LOOP>
+MAP73
+ <INTGO>
+ <EMPL? TEMP59 + MAPAP76>
+ <CONS %<> () = X82 (TYPE LIST)>
+ <EMPL? TEMP80 - TAG84>
+ <SET TEMP80 X82 (TYPE LIST)>
+ <JUMP + TAG85>
+TAG84
+ <PUTREST TEMP78 X82>
+ <DEAD TEMP78>
+TAG85
+ <SET TEMP78 X82 (TYPE LIST)>
+ <DEAD X82>
+ <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
+ <JUMP + MAP73>
+MAPAP76
+ <SET SEG?71 TEMP80>
+ <DEAD TEMP80>
+ <SET TEMP80 %<> (TYPE FALSE)>
+ <EQUAL? WHERE9 'FLUSHED - PHRASE89>
+ <SET WHERE9 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE90>
+PHRASE89
+ <EQUAL? WHERE9 'DONT-CARE - PHRASE90>
+ <SET WHERE9 FTMP62>
+PHRASE90
+ <FRAME '\1aDO-FIRST-SETUP>
+ <PUSH FAP22>
+ <PUSH WHERE9>
+ <PUSH FTMP62>
+ <PUSH EXTMP64>
+ <PUSH TEMP50>
+ <CALL '\1aDO-FIRST-SETUP 5 = TEMP78>
+ <TYPE? TEMP78 <TYPE-CODE FALSE> - TAG95>
+ <NTHUV FAP22 1 = TEMP59 (TYPE FIX)>
+ <VEQUAL? TEMP59 71 - TAG94 (TYPE FIX)>
+ <DEAD TEMP59>
+ <SET FF?29 'T (TYPE ATOM)>
+ <JUMP + TAG95>
+TAG94
+ <SET FF?29 %<> (TYPE FALSE)>
+TAG95
+ <FRAME '\1aPUSH-STRUCS>
+ <PUSH K13>
+ <PUSH FOONARG42>
+ <PUSH SEG?71>
+ <CALL '\1aPUSH-STRUCS 3>
+ <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE98>
+ <FRAME '\1aDO-FINAL-SETUP>
+ <PUSH FAP22>
+ <PUSH SUBRC40>
+ <PUSH FTMP62>
+ <PUSH EXTMP64>
+ <CALL '\1aDO-FINAL-SETUP 4 = MAYBE-FALSE30>
+PHRASE98
+ <VEQUAL? COD14 62 + PHRASE101 (TYPE FIX)>
+ <FRAME '\1aGEN>
+ <PUSH INRAP24>
+ <CALL '\1aGEN 1 = TEMP34>
+PHRASE101
+ <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE114>
+ <TYPE? SUBRC40 <TYPE-CODE FALSE> + TAG107>
+ <SET TEMP59 [VECTOR UVECTOR TUPLE STRING BYTES] (TYPE VECTOR)>
+ <TYPE? SUBRC40 <TYPE-CODE ATOM> - TAG107>
+ <LOOP (SUBRC40 VALUE) (TEMP59 LENGTH VALUE)>
+TAG108
+ <NTHUV TEMP59 1 = X82>
+ <VEQUAL? X82 SUBRC40 + PHRASE114>
+ <DEAD X82>
+ <RESTUV TEMP59 1 = TEMP59 (TYPE VECTOR)>
+ <EMPUV? TEMP59 - TAG108>
+TAG107
+ <FRAME '\1aSTART-FRAME>
+ <SET TEMP59 SUBRC40>
+ <TYPE? TEMP59 <TYPE-CODE FALSE> - PHRASE112>
+ <SET TEMP59 'APPLY (TYPE ATOM)>
+PHRASE112
+ <PUSH TEMP59>
+ <DEAD TEMP59>
+ <CALL '\1aSTART-FRAME 1>
+ <TYPE? SUBRC40 <TYPE-CODE FALSE> - PHRASE114>
+ <FRAME '\1aPUSH>
+ <PUSH EXTMP64>
+ <CALL '\1aPUSH 1>
+PHRASE114
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH MAPLP38>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`INTGO>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aEMPTY-MAPF-CHECK>
+ <PUSH K13>
+ <PUSH FOONARG42>
+ <PUSH MAPEND36>
+ <PUSH SEG?71>
+ <CALL '\1aEMPTY-MAPF-CHECK 4>
+ <PUSH K13>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH MAPEND36>
+ <PUSH FOONARG42>
+ <PUSH TEMP78>
+ <PUSH FTMP62>
+ <PUSH EXTMP64>
+ <PUSH SEG?71>
+ <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP59>
+ <NTHR 'MPINFO 2 = X82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR X82 1 TEMP59 (RECORD-TYPE LBIND)>
+ <DEAD X82 TEMP59>
+ <VEQUAL? COD14 62 - PHRASE124 (TYPE FIX)>
+ <DEAD COD14>
+ <FRAME '\1aOR?>
+ <SET X82 0 (TYPE FIX)>
+ <SET TEMP59 SEG?71>
+ <LOOP (TEMP59 VALUE) (X82 VALUE)>
+TAG127
+ <INTGO>
+ <EMPL? TEMP59 + TAG126>
+ <NTHL TEMP59 1 = STACK>
+ <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
+ <ADD X82 1 = X82 (TYPE FIX)>
+ <JUMP + TAG127>
+TAG126
+ <CALL '\1aOR? X82 = X82>
+ <TYPE? X82 <TYPE-CODE FALSE> - PHRASE124>
+ <DEAD X82>
+ <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE130>
+ <FRAME '\1aGEN>
+ <NTHUV INRAP24 5 = X82 (TYPE LIST)>
+ <DEAD INRAP24>
+ <NTHL X82 1 = STACK (TYPE NODE)>
+ <DEAD X82>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH FTMP62>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH FTMP62>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <JUMP + PHRASE193>
+PHRASE130
+ <VEQUAL? FF?29 0 + PHRASE133>
+ <FRAME '\1aDO-FUNNY-HACK>
+ <FRAME '\1aGEN>
+ <NTHUV INRAP24 5 = X82 (TYPE LIST)>
+ <NTHL X82 1 = STACK (TYPE NODE)>
+ <DEAD X82>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = STACK>
+ <PUSH NOD8>
+ <DEAD NOD8>
+ <PUSH FAP22>
+ <DEAD FAP22>
+ <NTHUV INRAP24 5 = X82 (TYPE LIST)>
+ <DEAD INRAP24>
+ <NTHL X82 1 = STACK (TYPE NODE)>
+ <DEAD X82>
+ <PUSH FTMP62>
+ <PUSH EXTMP64>
+ <CALL '\1aDO-FUNNY-HACK 6>
+ <JUMP + PHRASE193>
+PHRASE133
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE136>
+ <FRAME '\1aGEN>
+ <NTHUV INRAP24 5 = X82 (TYPE LIST)>
+ <DEAD INRAP24>
+ <NTHL X82 1 = STACK (TYPE NODE)>
+ <DEAD X82>
+ <PUSH FTMP62>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE193>
+PHRASE136
+ <FRAME '\1aGEN>
+ <NTHUV INRAP24 5 = X82 (TYPE LIST)>
+ <DEAD INRAP24>
+ <NTHL X82 1 = STACK (TYPE NODE)>
+ <DEAD X82>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE193>
+PHRASE124
+ <FRAME '\1aOR?>
+ <SET TEMP59 0 (TYPE FIX)>
+ <SET X82 SEG?71>
+ <LOOP (X82 VALUE) (TEMP59 VALUE)>
+TAG144
+ <INTGO>
+ <EMPL? X82 + TAG143>
+ <NTHL X82 1 = STACK>
+ <RESTL X82 1 = X82 (TYPE LIST)>
+ <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
+ <JUMP + TAG144>
+TAG143
+ <CALL '\1aOR? TEMP59 = TEMP59>
+ <TYPE? TEMP59 <TYPE-CODE FALSE> + PHRASE142>
+ <DEAD TEMP59>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TEMP80>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <PUSH TEMP80>
+ <SET TEMP15 0 (TYPE FIX)>
+ <SET TEMP59 SEG?71 (TYPE LIST)>
+ <LOOP>
+MAP149
+ <INTGO>
+ <EMPL? TEMP59 + MAPAP152>
+ <NTHL TEMP59 1 = X82>
+ <TYPE? X82 <TYPE-CODE FALSE> + PHRASE159>
+ <DEAD X82>
+ <SET COD14 0 (TYPE FIX)>
+ <JUMP + PHRASE161>
+PHRASE159
+ <SET COD14 1 (TYPE FIX)>
+PHRASE161
+ <ADD TEMP15 COD14 = TEMP15>
+ <DEAD COD14>
+ <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
+ <JUMP + MAP149>
+MAPAP152
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE163>
+ <SET TEMP59 1 (TYPE FIX)>
+ <JUMP + PHRASE164>
+PHRASE163
+ <SET TEMP59 0 (TYPE FIX)>
+PHRASE164
+ <ADD TEMP15 TEMP59 = STACK (TYPE FIX)>
+ <DEAD TEMP15 TEMP59>
+ <CALL '\1aIEMIT 3>
+PHRASE142
+ <FRAME '\1aSTART-FRAME>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE167>
+ <SET TEMP59 'APPLY (TYPE ATOM)>
+ <JUMP + PHRASE168>
+PHRASE167
+ <NTHUV INRAP24 5 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = TEMP15 (TYPE NODE)>
+ <NTHUV TEMP15 4 = TEMP59>
+ <DEAD TEMP15>
+PHRASE168
+ <PUSH TEMP59>
+ <DEAD TEMP59>
+ <CALL '\1aSTART-FRAME 1>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE170>
+ <FRAME '\1aPUSH>
+ <PUSH TEMP34>
+ <CALL '\1aPUSH 1>
+PHRASE170
+ <SET COD14 NARG31>
+ <LOOP>
+AGAIN174
+ <INTGO>
+ <FRAME '\1aMPARGS-GEN>
+ <PUSH NOD8>
+ <GVAL 'POP-STACK = STACK>
+ <PUSH TEMP80>
+ <CALL '\1aMPARGS-GEN 3>
+ <SUB COD14 1 = COD14 (TYPE FIX)>
+ <VEQUAL? COD14 0 - AGAIN174 (TYPE FIX)>
+ <FRAME '\1aMSUBR-CALL>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE181>
+ <SET TEMP15 'APPLY (TYPE ATOM)>
+ <JUMP + PHRASE182>
+PHRASE181
+ <NTHUV INRAP24 5 = X82 (TYPE LIST)>
+ <NTHL X82 1 = X82 (TYPE NODE)>
+ <NTHUV X82 4 = TEMP15>
+ <DEAD X82>
+PHRASE182
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <SET TEMP15 TEMP80>
+ <DEAD TEMP80>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE184>
+ <ADD NARG31 1 = TEMP15 (TYPE FIX)>
+ <DEAD NARG31>
+PHRASE184
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <TYPE? TEMP78 <TYPE-CODE FALSE> - BOOL187>
+ <VEQUAL? FF?29 0 + PHRASE186>
+BOOL187
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TMP70>
+ <SET TEMP15 TMP70>
+ <JUMP + PHRASE189>
+PHRASE186
+ <SET TEMP15 WHERE9>
+PHRASE189
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <CALL '\1aMSUBR-CALL 3>
+ <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE191>
+ <FRAME '\1aDO-STACK-ARGS>
+ <PUSH MAYBE-FALSE30>
+ <PUSH TMP70>
+ <DEAD TMP70>
+ <PUSH EXTMP64>
+ <PUSH FTMP62>
+ <CALL '\1aDO-STACK-ARGS 4>
+ <JUMP + PHRASE193>
+PHRASE191
+ <VEQUAL? FF?29 0 + PHRASE193>
+ <FRAME '\1aDO-FUNNY-HACK>
+ <PUSH TMP70>
+ <DEAD TMP70>
+ <PUSH NOD8>
+ <DEAD NOD8>
+ <PUSH FAP22>
+ <DEAD FAP22>
+ <PUSH INRAP24>
+ <DEAD INRAP24>
+ <PUSH FTMP62>
+ <PUSH EXTMP64>
+ <CALL '\1aDO-FUNNY-HACK 6>
+PHRASE193
+ <FRAME '\1aREST-STRUCS>
+ <PUSH FOONARG42>
+ <PUSH K13>
+ <DEAD K13>
+ <PUSH SEG?71>
+ <CALL '\1aREST-STRUCS 3>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH MAPLP38>
+ <DEAD MAPLP38>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH MAPEND36>
+ <DEAD MAPEND36>
+ <CALL '\1aLABEL-TAG 1>
+ <SET TEMP15 FOONARG42 (TYPE LIST)>
+ <LOOP>
+MAP199
+ <INTGO>
+ <EMPL? TEMP15 + MAP198>
+ <FRAME '\1aFREE-TEMP>
+ <NTHL TEMP15 1 = STACK>
+ <CALL '\1aFREE-TEMP 1>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP199>
+MAP198
+ <TYPE? TEMP34 <TYPE-CODE UNBOUND> + PHRASE203>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP34>
+ <DEAD TEMP34>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE203
+ <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE206>
+ <DEAD TEMP78>
+ <FRAME '\1aDO-LAST>
+ <PUSH SUBRC40>
+ <DEAD SUBRC40>
+ <PUSH MAYBE-FALSE30>
+ <DEAD MAYBE-FALSE30>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <PUSH EXTMP64>
+ <PUSH FTMP62>
+ <CALL '\1aDO-LAST 5 = WHERE9>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH FTMP62>
+ <DEAD FTMP62>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH EXTMP64>
+ <DEAD EXTMP64>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE216>
+PHRASE206
+ <VEQUAL? FF?29 0 + PHRASE210>
+ <DEAD FF?29>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH EXTMP64>
+ <DEAD EXTMP64>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH FTMP62>
+ <DEAD FTMP62>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <CALL '\1aMOVE-ARG 2 = WHERE9>
+ <JUMP + PHRASE216>
+PHRASE210
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE213>
+ <DEAD TEMP50>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH FTMP62>
+ <DEAD FTMP62>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <CALL '\1aMOVE-ARG 2 = WHERE9>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH EXTMP64>
+ <DEAD EXTMP64>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE216>
+PHRASE213
+ <FRAME '\1aFREE-TEMP>
+ <PUSH FTMP62>
+ <DEAD FTMP62>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH EXTMP64>
+ <DEAD EXTMP64>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE216
+ <FRAME '\1aFLUSH-TUPLES>
+ <PUSH FOONARG42>
+ <DEAD FOONARG42>
+ <PUSH SEG?71>
+ <DEAD SEG?71>
+ <CALL '\1aFLUSH-TUPLES 2>
+ <SET TEMP15 WHERE9>
+ <DEAD WHERE9>
+ <UNBIND TEMP21>
+ <DEAD TEMP21>
+ <ADJ -18>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aMAPFR-GEN>
+
+\\f
+
+#WORD *25341135016*
+ <GFCN \1aPUSH-STRUCS ("VALUE" ATOM <LIST [REST NODE]> <LIST [REST TEMP]> <LIST [REST <OR ATOM FALSE>]>) K4 STMPS5 SEG?6>
+ <TEMP TEMP3:LBIND TEMP11 TEMP18:LIST TEMP19:LIST NP24 TMPP25 SEG26 TMP28 TEMP37 TT29>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'COUNTMP 'ANY 'FIX>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP11>
+ <BBIND 'SEGLABEL 'ANY 'FIX TEMP11>
+ <DEAD TEMP11>
+ <BBIND 'SEGCALLED 'ANY 'FIX %<>>
+ <SET TEMP11 K4 (TYPE LIST)>
+ <DEAD K4>
+ <SET TEMP18 STMPS5 (TYPE LIST)>
+ <DEAD STMPS5>
+ <SET TEMP19 SEG?6 (TYPE LIST)>
+ <DEAD SEG?6>
+ <LOOP>
+MAP13
+ <INTGO>
+ <EMPL? TEMP11 + MAPAP16>
+ <EMPL? TEMP18 + MAPAP16>
+ <EMPL? TEMP19 + MAPAP16>
+ <SET NP24 TEMP11>
+ <SET TMPP25 TEMP18>
+ <SET SEG26 TEMP19>
+ <NTHL NP24 1 = NP24 (TYPE NODE)>
+ <NTHL TMPP25 1 = TMP28 (TYPE TEMP)>
+ <NTHUV NP24 1 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 3 + BOOL36 (TYPE FIX)>
+ <DEAD TEMP37>
+ <NTHUV NP24 1 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 68 - PHRASE35 (TYPE FIX)>
+ <DEAD TEMP37>
+BOOL36
+ <NTHUV NP24 5 = TEMP37 (TYPE LIST)>
+ <DEAD NP24>
+ <NTHL TEMP37 1 = NP24 (TYPE NODE)>
+ <DEAD TEMP37>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TMPP25>
+ <NTHR 'COUNTMP 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP37 1 TMPP25 (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <PUSH TMPP25>
+ <PUSH 0>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aGEN>
+ <PUSH NP24>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = TT29>
+ <GVAL 'NO-DATUM = TEMP37>
+ <EQUAL? TEMP37 TT29 + PHRASE44>
+ <DEAD TEMP37>
+ <TYPE? TT29 <TYPE-CODE TEMP> - BOOL46>
+ <NTHUV TT29 2 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 1 - PHRASE44 (TYPE FIX)>
+ <DEAD TEMP37>
+BOOL46
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TEMP37>
+ <PUSH TEMP37>
+ <PUSH TT29>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TT29>
+ <DEAD TT29>
+ <CALL '\1aFREE-TEMP 1>
+ <SET TT29 TEMP37>
+ <DEAD TEMP37>
+PHRASE44
+ <PUTL SEG26 1 'T>
+ <DEAD SEG26>
+ <GVAL 'NO-DATUM = TEMP37>
+ <EQUAL? TEMP37 TT29 + PHRASE53>
+ <DEAD TEMP37>
+ <FRAME '\1aSEGMENT-STACK>
+ <PUSH TT29>
+ <PUSH TMPP25>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV NP24 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = STACK>
+ <FRAME '\1aISTYPE?>
+ <NTHUV NP24 3 = STACK>
+ <DEAD NP24>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <NTHR 'SEGLABEL 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <CALL '\1aSEGMENT-STACK 5>
+ <JUMP + PHRASE59>
+PHRASE53
+ <NTHR 'SEGCALLED 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = TEMP37 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE59>
+ <DEAD TEMP37>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'SEGLABEL 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP37>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE59
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP37>
+ <NTHR 'SEGLABEL 2 = NP24 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR NP24 1 TEMP37 (RECORD-TYPE LBIND)>
+ <DEAD NP24 TEMP37>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TT29>
+ <DEAD TT29>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH TMP28>
+ <CALL '\1aUSE-TEMP 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`TUPLE>
+ <PUSH TMPP25>
+ <PUSH '=>
+ <PUSH TMP28>
+ <DEAD TMP28>
+ <PUSH (`TYPE TUPLE)>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TMPP25>
+ <DEAD TMPP25>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE94>
+PHRASE35
+ <FRAME '\1aGEN>
+ <PUSH NP24>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = TT29>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV NP24 3 = NP24>
+ <PUSH NP24>
+ <CALL '\1aSTRUCTYP 1 = SEG26>
+ <FRAME '\1aISTYPE?>
+ <PUSH NP24>
+ <DEAD NP24>
+ <CALL '\1aISTYPE? 1 = NP24>
+ <TYPE? TT29 <TYPE-CODE TEMP> - PHRASE78>
+ <NTHUV TT29 2 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 1 + PHRASE78 (TYPE FIX)>
+ <DEAD TEMP37>
+ <SET TMP28 TT29>
+ <DEAD TT29>
+ <PUTL TMPP25 1 TMP28>
+ <DEAD TMPP25>
+ <TYPE? SEG26 <TYPE-CODE FALSE> + PHRASE94>
+ <EQUAL? NP24 SEG26 + PHRASE94>
+ <DEAD NP24>
+ <FRAME '\1aIEMIT>
+ <PUSH '`CHTYPE>
+ <PUSH TMP28>
+ <FRAME '\1aFORM>
+ <PUSH '`TYPE-CODE>
+ <PUSH SEG26>
+ <DEAD SEG26>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH '=>
+ <PUSH TMP28>
+ <DEAD TMP28>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE94>
+PHRASE78
+ <TYPE? SEG26 <TYPE-CODE FALSE> + PHRASE87>
+ <EQUAL? SEG26 NP24 + PHRASE87>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH TMP28>
+ <PUSH SEG26>
+ <CALL '\1aUSE-TEMP 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`CHTYPE>
+ <PUSH TT29>
+ <DEAD TT29>
+ <FRAME '\1aFORM>
+ <PUSH '`TYPE-CODE>
+ <PUSH SEG26>
+ <DEAD SEG26>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH '=>
+ <PUSH TMP28>
+ <DEAD TMP28>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE94>
+PHRASE87
+ <TYPE? SEG26 <TYPE-CODE FALSE> + PHRASE92>
+ <DEAD SEG26>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TT29>
+ <DEAD TT29>
+ <PUSH TMP28>
+ <DEAD TMP28>
+ <CONS NP24 () = TEMP37>
+ <DEAD NP24>
+ <CONS '`TYPE TEMP37 = STACK>
+ <DEAD TEMP37>
+ <CALL '\1aMOVE-ARG 3>
+ <JUMP + PHRASE94>
+PHRASE92
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TT29>
+ <DEAD TT29>
+ <PUSH TMP28>
+ <DEAD TMP28>
+ <CALL '\1aMOVE-ARG 2>
+PHRASE94
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP13>
+MAPAP16
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN 'T>
+ <END \1aPUSH-STRUCS>
+
+#WORD *23346542400*
+ <GFCN \1aREST-STRUCS ("VALUE" ANY <LIST [REST TEMP]> <LIST [REST NODE]> <LIST [REST <OR ATOM FALSE>]>) STMPS4 K5 SEG?6>
+ <TEMP TEMP18 TEMP13:LIST TEMP14:LIST TEMP15:LIST TMP20 NOD21 ST23 STMP26:TEMP>
+ <INTGO>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <SET TEMP13 STMPS4 (TYPE LIST)>
+ <DEAD STMPS4>
+ <SET TEMP14 K5 (TYPE LIST)>
+ <DEAD K5>
+ <SET TEMP15 SEG?6 (TYPE LIST)>
+ <DEAD SEG?6>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <EMPL? TEMP14 + MAPAP11>
+ <EMPL? TEMP15 + MAPAP11>
+ <NTHL TEMP13 1 = TMP20>
+ <NTHL TEMP14 1 = NOD21>
+ <NTHL TEMP15 1 = TEMP18>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV NOD21 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = ST23>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE31>
+ <DEAD TEMP18>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = STMP26>
+ <PUSH STMP26>
+ <PUSH TMP20>
+ <DEAD TMP20>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aSTRUCTYP>
+ <FRAME '\1aGET-ELE-TYPE>
+ <NTHUV NOD21 5 = TEMP18 (TYPE LIST)>
+ <DEAD NOD21>
+ <NTHL TEMP18 1 = TEMP18 (TYPE NODE)>
+ <NTHUV TEMP18 3 = STACK>
+ <DEAD TEMP18>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <CALL '\1aSTRUCTYP 1 = ST23>
+ <TYPE? ST23 <TYPE-CODE FALSE> + PHRASE38>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'VALUE () = TEMP18>
+ <CONS 'LENGTH TEMP18 = TEMP18>
+ <NTHUV STMP26 1 = TMP20 (TYPE ATOM)>
+ <CONS TMP20 TEMP18 = STACK>
+ <DEAD TMP20 TEMP18>
+ <CALL '\1aIEMIT 2>
+ <JUMP + PHRASE41>
+PHRASE38
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CALL '\1aIEMIT 1>
+PHRASE41
+ <FRAME '\1aLABEL-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP18>
+ <PUSH TEMP18>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`INTGO>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aEMPTY-CHECK>
+ <PUSH 'TUPLE>
+ <PUSH STMP26>
+ <PUSH 'TUPLE>
+ <PUSH 'T>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = NOD21>
+ <PUSH NOD21>
+ <CALL '\1aEMPTY-CHECK 5>
+ <FRAME '\1aNTH-DO>
+ <PUSH 'TUPLE>
+ <PUSH STMP26>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TMP20>
+ <PUSH TMP20>
+ <PUSH 1>
+ <CALL '\1aNTH-DO 4>
+ <TYPE? ST23 <TYPE-CODE FALSE> + PHRASE51>
+ <FRAME '\1aREST-DO>
+ <PUSH ST23>
+ <DEAD ST23>
+ <PUSH TMP20>
+ <PUSH TMP20>
+ <PUSH 1>
+ <CALL '\1aREST-DO 4>
+ <JUMP + PHRASE53>
+PHRASE51
+ <FRAME '\1aIEMIT>
+ <PUSH '`REST1>
+ <PUSH TMP20>
+ <PUSH '=>
+ <PUSH TMP20>
+ <CALL '\1aIEMIT 4>
+PHRASE53
+ <FRAME '\1aPUT-VECTOR>
+ <PUSH STMP26>
+ <PUSH 1>
+ <PUSH TMP20>
+ <CALL '\1aPUT-VECTOR 3>
+ <FRAME '\1aREST-DO>
+ <PUSH 'TUPLE>
+ <PUSH STMP26>
+ <PUSH STMP26>
+ <PUSH 1>
+ <CALL '\1aREST-DO 4>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH NOD21>
+ <DEAD NOD21>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH STMP26>
+ <DEAD STMP26>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TMP20>
+ <DEAD TMP20>
+ <CALL '\1aFREE-TEMP 1 = TEMP18>
+ <JUMP + PHRASE63>
+PHRASE31
+ <TYPE? ST23 <TYPE-CODE FALSE> + PHRASE61>
+ <FRAME '\1aREST-DO>
+ <PUSH ST23>
+ <DEAD ST23>
+ <PUSH TMP20>
+ <PUSH TMP20>
+ <DEAD TMP20>
+ <PUSH 1>
+ <CALL '\1aREST-DO 4 = TEMP18>
+ <JUMP + PHRASE63>
+PHRASE61
+ <FRAME '\1aIEMIT>
+ <PUSH '`REST1>
+ <PUSH TMP20>
+ <PUSH '=>
+ <PUSH TMP20>
+ <DEAD TMP20>
+ <CALL '\1aIEMIT 4 = TEMP18>
+PHRASE63
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aREST-STRUCS>
+
+#WORD *35314562266*
+ <GFCN \1aDO-FINAL-SETUP ("VALUE" ANY NODE ANY ANY ANY) FAP4 SUBRC5 FTMP6 EXTMP7>
+ <TEMP TEMP12 MBYF8 TG1-9>
+ <INTGO>
+ <TYPE? SUBRC5 <TYPE-CODE FALSE> + TAG13>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + BOOL11>
+TAG13
+ <GEN-LVAL 'REASONABLE = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + TAG18>
+ <DEAD TEMP12>
+ <NTHUV FAP4 1 = TEMP12 (TYPE FIX)>
+ <VEQUAL? TEMP12 66 - TAG18 (TYPE FIX)>
+ <DEAD TEMP12>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + BOOL11>
+TAG18
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV FAP4 3 = STACK>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+BOOL11
+ <SET MBYF8 TEMP12>
+ <DEAD TEMP12>
+ <TYPE? SUBRC5 <TYPE-CODE FALSE> - PHRASE21>
+ <FRAME '\1aGEN>
+ <PUSH FAP4>
+ <DEAD FAP4>
+ <PUSH EXTMP7>
+ <CALL '\1aGEN 2>
+PHRASE21
+ <TYPE? MBYF8 <TYPE-CODE FALSE> + PHRASE24>
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH EXTMP7>
+ <DEAD EXTMP7>
+ <PUSH 'FALSE>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG1-9>
+ <PUSH TG1-9>
+ <PUSH 'T>
+ <CALL '\1aGEN-TYPE? 4>
+PHRASE24
+ <FRAME '\1aSET-TEMP>
+ <PUSH FTMP6>
+ <TYPE? SUBRC5 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD SUBRC5>
+ <SET TEMP12 0 (TYPE FIX)>
+ <JUMP + PHRASE30>
+PHRASE29
+ <SET TEMP12 1 (TYPE FIX)>
+PHRASE30
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aSET-TEMP 3>
+ <TYPE? MBYF8 <TYPE-CODE FALSE> + PHRASE32>
+ <FRAME '\1aBRANCH-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP12>
+ <PUSH TEMP12>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG1-9>
+ <DEAD TG1-9>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aSET-TEMP>
+ <PUSH FTMP6>
+ <DEAD FTMP6>
+ <PUSH %<>>
+ <PUSH (`TYPE FALSE)>
+ <CALL '\1aSET-TEMP 3>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE32
+ <RETURN MBYF8>
+ <DEAD MBYF8>
+ <END \1aDO-FINAL-SETUP>
+
+#WORD *33236211514*
+ <GFCN \1aDO-STACK-ARGS ("VALUE" <OR ATOM <LIST ANY>> ANY ANY ANY ANY) MAYBE-FALSE4 ARG5 SW6 COUNT7>
+ <TEMP TG1-8 TG2-9>
+ <INTGO>
+ <TYPE? MAYBE-FALSE4 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD MAYBE-FALSE4>
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH SW6>
+ <DEAD SW6>
+ <PUSH 'FALSE>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG1-8>
+ <PUSH TG1-8>
+ <PUSH 'T>
+ <CALL '\1aGEN-TYPE? 4>
+ <FRAME '\1aPUSH>
+ <PUSH ARG5>
+ <CALL '\1aPUSH 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH COUNT7>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH COUNT7>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aBRANCH-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG2-9>
+ <PUSH TG2-9>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG1-8>
+ <DEAD TG1-8>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <PUSH COUNT7>
+ <DEAD COUNT7>
+ <CALL '\1aMOVE-ARG 2>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG2-9>
+ <DEAD TG2-9>
+ <CALL '\1aLABEL-TAG 1 = TG1-8>
+ <RETURN TG1-8>
+ <DEAD TG1-8>
+PHRASE11
+ <FRAME '\1aPUSH>
+ <PUSH ARG5>
+ <DEAD ARG5>
+ <CALL '\1aPUSH 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH COUNT7>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH COUNT7>
+ <DEAD COUNT7>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6 = TG1-8>
+ <RETURN TG1-8>
+ <DEAD TG1-8>
+ <END \1aDO-STACK-ARGS>
+
+#WORD *753447722*
+ <GFCN \1aDO-STACK-TUPLE ("VALUE" <OR ATOM <LIST ANY>> ANY ANY ANY ANY) MAYBE-FALSE4 NEW-COUNT5 SW6 COUNT7>
+ <TEMP TG1-8 TG2-9>
+ <INTGO>
+ <TYPE? MAYBE-FALSE4 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD MAYBE-FALSE4>
+ <FRAME '\1aLENGTH-VECTOR>
+ <PUSH NEW-COUNT5>
+ <PUSH NEW-COUNT5>
+ <CALL '\1aLENGTH-VECTOR 2>
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH SW6>
+ <DEAD SW6>
+ <PUSH 'FALSE>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG1-8>
+ <PUSH TG1-8>
+ <PUSH 'T>
+ <CALL '\1aGEN-TYPE? 4>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH COUNT7>
+ <PUSH NEW-COUNT5>
+ <PUSH '=>
+ <PUSH COUNT7>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aBRANCH-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG2-9>
+ <PUSH TG2-9>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG1-8>
+ <DEAD TG1-8>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aPOP>
+ <PUSH COUNT7>
+ <DEAD COUNT7>
+ <CALL '\1aPOP 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 1>
+ <PUSH NEW-COUNT5>
+ <PUSH '=>
+ <PUSH NEW-COUNT5>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`MUL>
+ <PUSH NEW-COUNT5>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH NEW-COUNT5>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <PUSH NEW-COUNT5>
+ <DEAD NEW-COUNT5>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG2-9>
+ <DEAD TG2-9>
+ <CALL '\1aLABEL-TAG 1 = TG1-8>
+ <RETURN TG1-8>
+ <DEAD TG1-8>
+PHRASE11
+ <FRAME '\1aLENGTH-VECTOR>
+ <PUSH NEW-COUNT5>
+ <PUSH NEW-COUNT5>
+ <CALL '\1aLENGTH-VECTOR 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH COUNT7>
+ <PUSH NEW-COUNT5>
+ <DEAD NEW-COUNT5>
+ <PUSH '=>
+ <PUSH COUNT7>
+ <DEAD COUNT7>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6 = TG1-8>
+ <RETURN TG1-8>
+ <DEAD TG1-8>
+ <END \1aDO-STACK-TUPLE>
+
+\\f
+
+<SETG MINS '[[`LESS? `GRTR? `MUL `ADD] [`LESS? `GRTR? `MULF `ADDF]]>
+
+<GDECL (MINS) !<VECTOR [2 !<VECTOR [4 ATOM]>]>>
+
+#WORD *27063221242*
+ <GFCN \1aDO-FUNNY-HACK ("VALUE" ATOM ANY NODE NODE NODE ANY ANY) DAT4 N5 FAP6 NN7 FTMP8 EXTMP9>
+ <TEMP COD10:FIX LMOD11 MOD12 T1-13>
+ <INTGO>
+ <NTHUV FAP6 9 = COD10 (TYPE FIX)>
+ <DEAD FAP6>
+ <FRAME '\1aISTYPE?>
+ <NTHUV NN7 3 = STACK>
+ <DEAD NN7>
+ <CALL '\1aISTYPE? 1 = LMOD11>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N5 3 = STACK>
+ <DEAD N5>
+ <CALL '\1aISTYPE? 1 = MOD12>
+ <VEQUAL? COD10 5 - PHRASE20 (TYPE FIX)>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH DAT4>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = LMOD11>
+ <FRAME '\1aIEMIT>
+ <PUSH '`CONS>
+ <PUSH DAT4>
+ <DEAD DAT4>
+ <PUSH ()>
+ <PUSH '=>
+ <PUSH LMOD11>
+ <PUSH (`TYPE LIST)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aEMPTY-LIST>
+ <PUSH FTMP8>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = T1-13>
+ <PUSH T1-13>
+ <PUSH %<>>
+ <CALL '\1aEMPTY-LIST 3>
+ <FRAME '\1aSET-TEMP>
+ <PUSH FTMP8>
+ <DEAD FTMP8>
+ <PUSH LMOD11>
+ <PUSH (`TYPE LIST)>
+ <CALL '\1aSET-TEMP 3>
+ <FRAME '\1aBRANCH-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = MOD12>
+ <PUSH MOD12>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH T1-13>
+ <DEAD T1-13>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`PUTREST>
+ <PUSH EXTMP9>
+ <PUSH LMOD11>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH MOD12>
+ <DEAD MOD12>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH LMOD11>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <FRAME '\1aSET-TEMP>
+ <PUSH EXTMP9>
+ <DEAD EXTMP9>
+ <PUSH LMOD11>
+ <DEAD LMOD11>
+ <PUSH (`TYPE LIST)>
+ <CALL '\1aSET-TEMP 3>
+ <RETURN 'T>
+PHRASE20
+ <VEQUAL? MOD12 'FIX - BOOL37>
+ <DEAD MOD12>
+ <SET T1-13 1 (TYPE FIX)>
+ <JUMP + BOOL35>
+BOOL37
+ <SET T1-13 2 (TYPE FIX)>
+BOOL35
+ <SET MOD12 T1-13>
+ <DEAD T1-13>
+ <VEQUAL? MOD12 2 - PHRASE39 (TYPE FIX)>
+ <VEQUAL? LMOD11 'FIX - PHRASE39>
+ <DEAD LMOD11>
+ <FRAME '\1aGEN-FLOAT>
+ <PUSH DAT4>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = STACK>
+ <CALL '\1aGEN-FLOAT 2 = LMOD11>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH DAT4>
+ <DEAD DAT4>
+ <CALL '\1aFREE-TEMP 1>
+ <SET DAT4 LMOD11>
+ <DEAD LMOD11>
+PHRASE39
+ <GVAL 'MINS = T1-13>
+ <NTHUV T1-13 MOD12 = LMOD11 (TYPE VECTOR)>
+ <DEAD T1-13>
+ <NTHUV LMOD11 COD10 = LMOD11 (TYPE ATOM)>
+ <LESS? COD10 3 - PHRASE46 (TYPE FIX)>
+ <DEAD COD10>
+ <FRAME '\1aIEMIT>
+ <PUSH LMOD11>
+ <DEAD LMOD11>
+ <PUSH DAT4>
+ <PUSH FTMP8>
+ <PUSH '->
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = T1-13>
+ <PUSH T1-13>
+ <VEQUAL? MOD12 1 - PHRASE50 (TYPE FIX)>
+ <DEAD MOD12>
+ <SET LMOD11 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE53>
+PHRASE50
+ <SET LMOD11 'FLOAT (TYPE ATOM)>
+PHRASE53
+ <CONS LMOD11 () = LMOD11>
+ <CONS '`TYPE LMOD11 = STACK>
+ <DEAD LMOD11>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH DAT4>
+ <DEAD DAT4>
+ <PUSH FTMP8>
+ <DEAD FTMP8>
+ <CALL '\1aMOVE-ARG 2>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH T1-13>
+ <DEAD T1-13>
+ <CALL '\1aLABEL-TAG 1>
+ <RETURN 'T>
+PHRASE46
+ <FRAME '\1aFREE-TEMP>
+ <PUSH DAT4>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <FRAME '\1aIEMIT>
+ <PUSH LMOD11>
+ <DEAD LMOD11>
+ <PUSH FTMP8>
+ <PUSH DAT4>
+ <DEAD DAT4>
+ <PUSH '=>
+ <PUSH FTMP8>
+ <DEAD FTMP8>
+ <CALL '\1aIEMIT 5>
+ <RETURN 'T>
+ <END \1aDO-FUNNY-HACK>
+
+#WORD *5501626125*
+ <GFCN \1aDO-LAST ("VALUE" ANY ANY ANY ANY ANY ANY) SUBRC4 MAYBE-FALSE5 WHERE6 EXTMP7 COUNT8>
+ <TEMP TG9 TG2-10>
+ <INTGO>
+ <TYPE? MAYBE-FALSE5 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD MAYBE-FALSE5>
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH EXTMP7>
+ <DEAD EXTMP7>
+ <PUSH 'FALSE>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG9>
+ <PUSH TG9>
+ <PUSH 'T>
+ <CALL '\1aGEN-TYPE? 4>
+ <EQUAL? WHERE6 'DONT-CARE - PHRASE16>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = WHERE6>
+ <JUMP + PHRASE18>
+PHRASE16
+ <TYPE? WHERE6 <TYPE-CODE TEMP> - PHRASE18>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE6>
+ <CALL '\1aUSE-TEMP 1>
+PHRASE18
+ <TYPE? SUBRC4 <TYPE-CODE FALSE> + PHRASE21>
+ <FRAME '\1aXMSUBR-CALL>
+ <PUSH SUBRC4>
+ <DEAD SUBRC4>
+ <PUSH COUNT8>
+ <PUSH WHERE6>
+ <CALL '\1aXMSUBR-CALL 3>
+ <JUMP + PHRASE23>
+PHRASE21
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH 'APPLY>
+ <PUSH COUNT8>
+ <PUSH WHERE6>
+ <CALL '\1aMSUBR-CALL 3>
+PHRASE23
+ <FRAME '\1aBRANCH-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG2-10>
+ <PUSH TG2-10>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG9>
+ <DEAD TG9>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH COUNT8>
+ <DEAD COUNT8>
+ <PUSH WHERE6>
+ <CALL '\1aMOVE-ARG 2>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG2-10>
+ <DEAD TG2-10>
+ <CALL '\1aLABEL-TAG 1>
+ <RETURN WHERE6>
+ <DEAD WHERE6>
+PHRASE12
+ <EQUAL? WHERE6 'DONT-CARE - PHRASE32>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = WHERE6>
+ <JUMP + PHRASE34>
+PHRASE32
+ <TYPE? WHERE6 <TYPE-CODE TEMP> - PHRASE34>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE6>
+ <CALL '\1aUSE-TEMP 1>
+PHRASE34
+ <TYPE? SUBRC4 <TYPE-CODE FALSE> + PHRASE37>
+ <FRAME '\1aXMSUBR-CALL>
+ <PUSH SUBRC4>
+ <DEAD SUBRC4>
+ <PUSH COUNT8>
+ <DEAD COUNT8>
+ <PUSH WHERE6>
+ <CALL '\1aXMSUBR-CALL 3>
+ <RETURN WHERE6>
+ <DEAD WHERE6>
+PHRASE37
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH 'APPLY>
+ <PUSH COUNT8>
+ <DEAD COUNT8>
+ <PUSH WHERE6>
+ <CALL '\1aMSUBR-CALL 3>
+ <RETURN WHERE6>
+ <DEAD WHERE6>
+ <END \1aDO-LAST>
+
+#WORD *6534126241*
+ <GFCN \1aXMSUBR-CALL ("VALUE" <OR ATOM FALSE <LIST ANY>> ANY ANY ANY) SUBRC4 NARGS5 WHERE6>
+ <TEMP TEMP12 TEMP13 TEMP26:FIX>
+ <INTGO>
+ <SET TEMP12 [VECTOR UVECTOR STRING BYTES] (TYPE VECTOR)>
+ <TYPE? SUBRC4 <TYPE-CODE ATOM> - PHRASE8>
+ <LOOP (SUBRC4 VALUE) (TEMP12 LENGTH VALUE)>
+TAG10
+ <NTHUV TEMP12 1 = TEMP13>
+ <VEQUAL? TEMP13 SUBRC4 + TAG9>
+ <DEAD TEMP13>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <EMPUV? TEMP12 - TAG10>
+ <JUMP + PHRASE8>
+TAG9
+ <FRAME '\1aIEMIT>
+ <PUSH '`UBLOCK>
+ <FRAME '\1aFORM>
+ <PUSH '`TYPE-CODE>
+ <PUSH SUBRC4>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH NARGS5>
+ <DEAD NARGS5>
+ <PUSH '=>
+ <PUSH WHERE6>
+ <DEAD WHERE6>
+ <CONS SUBRC4 () = TEMP12>
+ <DEAD SUBRC4>
+ <CONS '`TYPE TEMP12 = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aIEMIT 6 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE8
+ <EQUAL? SUBRC4 'LIST - PHRASE16>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LIST>
+ <PUSH NARGS5>
+ <DEAD NARGS5>
+ <PUSH '=>
+ <PUSH WHERE6>
+ <DEAD WHERE6>
+ <PUSH (`TYPE LIST)>
+ <CALL '\1aIEMIT 5 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE16
+ <EQUAL? SUBRC4 'TUPLE - PHRASE18>
+ <FRAME '\1aIEMIT>
+ <PUSH '`TUPLE>
+ <PUSH NARGS5>
+ <DEAD NARGS5>
+ <PUSH '=>
+ <PUSH WHERE6>
+ <CALL '\1aIEMIT 4>
+ <GEN-ASSIGNED? 'LIST-TUPLE + TAG22>
+ <RETURN %<>>
+TAG22
+ <PUSH WHERE6>
+ <DEAD WHERE6>
+ <SET TEMP26 1 (TYPE FIX)>
+ <GEN-LVAL 'LIST-TUPLE = TEMP12>
+ <TYPE TEMP12 = TEMP13>
+ <AND TEMP13 7 = TEMP13>
+ <VEQUAL? TEMP13 1 + TAG29>
+ <DEAD TEMP13>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP26 VALUE)>
+TAG35
+ <INTGO>
+ <EMPTY? TEMP12 + TAG34>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG35>
+TAG34
+ <LIST TEMP26 = TEMP12 (TYPE LIST)>
+ <DEAD TEMP26>
+ <JUMP + TAG31>
+TAG29
+ <LOOP>
+TAG32
+ <VEQUAL? TEMP26 0 + TAG31>
+ <POP = TEMP13>
+ <CONS TEMP13 TEMP12 = TEMP12 (TYPE LIST)>
+ <DEAD TEMP13>
+ <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG31
+ <GEN-SET 'LIST-TUPLE TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE18
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH SUBRC4>
+ <DEAD SUBRC4>
+ <PUSH NARGS5>
+ <DEAD NARGS5>
+ <PUSH WHERE6>
+ <DEAD WHERE6>
+ <CALL '\1aMSUBR-CALL 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aXMSUBR-CALL>
+
+<SETG SLOT-FIRST [<CHTYPE <MIN> FIX> <CHTYPE <MAX> FIX> 1 0]>
+
+<COND (<GASSIGNED? MINFL> <SETG FSLOT-FIRST [,MINFL ,MAXFL 1.0 0.0]>)>
+
+<GDECL (SLOT-FIRST) <VECTOR [REST FIX]> (FSLOT-FIRST) <VECTOR [REST FLOAT]>>
+
+\\f
+
+#WORD *15723102252*
+ <GFCN \1aDO-FIRST-SETUP ("VALUE" <OR ATOM FALSE> NODE ANY ANY ANY ANY) FAP4 W5 FTMP6 EXTMP7 FLS8>
+ <TEMP (COD9 0) TYP10>
+ <INTGO>
+ <FRAME '\1aISTYPE?>
+ <NTHUV FAP4 2 = COD9 (TYPE NODE)>
+ <NTHUV COD9 3 = STACK>
+ <DEAD COD9>
+ <CALL '\1aISTYPE? 1 = TYP10>
+ <NTHUV FAP4 1 = COD9 (TYPE FIX)>
+ <VEQUAL? COD9 71 - PHRASE14 (TYPE FIX)>
+ <DEAD COD9>
+ <NTHUV FAP4 9 = COD9 (TYPE FIX)>
+ <DEAD FAP4>
+ <VEQUAL? COD9 5 - PHRASE16 (TYPE FIX)>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <TYPE? TYP10 <TYPE-CODE FALSE> + PHRASE20>
+ <FRAME '\1aCHTYPE>
+ <PUSH ()>
+ <PUSH TYP10>
+ <DEAD TYP10>
+ <CALL '\1aCHTYPE 2 = COD9>
+ <JUMP + PHRASE22>
+PHRASE20
+ <SET COD9 () (TYPE LIST)>
+PHRASE22
+ <PUSH COD9>
+ <DEAD COD9>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH FTMP6>
+ <DEAD FTMP6>
+ <CALL '\1aMOVE-ARG 2>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <PUSH ()>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH EXTMP7>
+ <DEAD EXTMP7>
+ <CALL '\1aMOVE-ARG 2>
+ <RETURN %<>>
+PHRASE16
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <VEQUAL? TYP10 'FLOAT - PHRASE29>
+ <DEAD TYP10>
+ <GVAL 'FSLOT-FIRST = TYP10>
+ <NTHUV TYP10 COD9 = COD9 (TYPE FLOAT)>
+ <DEAD TYP10>
+ <JUMP + PHRASE32>
+PHRASE29
+ <GVAL 'SLOT-FIRST = TYP10>
+ <NTHUV TYP10 COD9 = COD9 (TYPE FIX)>
+ <DEAD TYP10>
+PHRASE32
+ <PUSH COD9>
+ <DEAD COD9>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH FTMP6>
+ <DEAD FTMP6>
+ <CALL '\1aMOVE-ARG 2>
+ <RETURN %<>>
+PHRASE14
+ <NTHUV FAP4 4 = COD9>
+ <DEAD FAP4>
+ <TYPE? COD9 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD COD9>
+ <RETURN 'T>
+PHRASE33
+ <TYPE? FLS8 <TYPE-CODE FALSE> + TAG35>
+ <DEAD FLS8>
+ <RETURN %<>>
+TAG35
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <PUSH %<>>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH FTMP6>
+ <DEAD FTMP6>
+ <CALL '\1aMOVE-ARG 2 = STACK>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <RETURN %<>>
+ <END \1aDO-FIRST-SETUP>
+
+\\f
+
+#WORD *5544061030*
+ <GFCN \1aMPARGS-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) N6 W7 CNT8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP10 TEMP14:LIST>
+ <INTGO>
+ <GEN-LVAL 'MPINFO = TEMP10>
+ <FRAME '\1aSTACKM>
+ <NTHUV TEMP10 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = STACK (TYPE NODE)>
+ <DEAD TEMP14>
+ <NTHUV TEMP10 4 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = STACK (TYPE TEMP)>
+ <DEAD TEMP14>
+ <NTHUV TEMP10 2 = STACK>
+ <NTHUV TEMP10 3 = STACK (TYPE ATOM)>
+ <PUSH W7>
+ <DEAD W7>
+ <NTHUV TEMP10 8 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = STACK>
+ <DEAD TEMP14>
+ <PUSH CNT8>
+ <DEAD CNT8>
+ <CALL '\1aSTACKM 7 = W7>
+ <NTHUV TEMP10 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <PUTUV TEMP10 1 TEMP14 (TYPE LIST)>
+ <DEAD TEMP14>
+ <NTHUV TEMP10 4 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <PUTUV TEMP10 4 TEMP14 (TYPE LIST)>
+ <DEAD TEMP14>
+ <NTHUV TEMP10 8 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <PUTUV TEMP10 8 TEMP14 (TYPE LIST)>
+ <DEAD TEMP10 TEMP14>
+ <RETURN W7>
+ <DEAD W7>
+ <END \1aMPARGS-GEN>
+
+\\f
+
+#WORD *14642711726*
+ <GFCN \1aSTACKM ("VALUE" ANY NODE ANY ANY ANY ANY ANY ANY) N4 SRC5 R?6 LBL7 W8 SEG9 CNT10>
+ <TEMP STY11 TEMP20 ETY16 STMP12:TEMP LBL2-15 ETMP13:TEMP>
+ <INTGO>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV N4 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = STY11>
+ <FRAME '\1aGET-ELE-TYPE>
+ <NTHUV N4 3 = STACK>
+ <PUSH 'ALL>
+ <SET TEMP20 R?6>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + TAG22>
+ <TYPE? SEG9 <TYPE-CODE FALSE> - TAG21>
+ <SET TEMP20 'T (TYPE ATOM)>
+ <JUMP + TAG22>
+TAG21
+ <SET TEMP20 %<> (TYPE FALSE)>
+TAG22
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aGET-ELE-TYPE 3 = ETY16>
+ <EQUAL? W8 'DONT-CARE - PHRASE24>
+ <FRAME '\1aGEN-TEMP>
+ <FRAME '\1aISTYPE?>
+ <PUSH ETY16>
+ <CALL '\1aISTYPE? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - COND26>
+ <SET TEMP20 'T (TYPE ATOM)>
+COND26
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aGEN-TEMP 1 = W8>
+ <JUMP + PHRASE28>
+PHRASE24
+ <TYPE? W8 <TYPE-CODE TEMP> - PHRASE28>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH W8>
+ <FRAME '\1aISTYPE?>
+ <PUSH ETY16>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE28
+ <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD SEG9>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = STMP12>
+ <PUSH STMP12>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'VALUE () = TEMP20>
+ <CONS 'LENGTH TEMP20 = TEMP20>
+ <NTHUV STMP12 1 = STY11 (TYPE ATOM)>
+ <CONS STY11 TEMP20 = STACK>
+ <DEAD STY11 TEMP20>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aLABEL-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = STY11>
+ <PUSH STY11>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`INTGO>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aEMPTY-CHECK>
+ <PUSH 'TUPLE>
+ <PUSH STMP12>
+ <PUSH 'TUPLE>
+ <PUSH 'T>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = LBL2-15>
+ <PUSH LBL2-15>
+ <CALL '\1aEMPTY-CHECK 5>
+ <FRAME '\1aNTH-DO>
+ <PUSH 'TUPLE>
+ <PUSH STMP12>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = ETMP13>
+ <PUSH ETMP13>
+ <PUSH 1>
+ <CALL '\1aNTH-DO 4>
+ <FRAME '\1aGET-ELE-TYPE>
+ <NTHUV N4 5 = TEMP20 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP20 1 = TEMP20 (TYPE NODE)>
+ <NTHUV TEMP20 3 = STACK>
+ <DEAD TEMP20>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = ETY16>
+ <TYPE? R?6 <TYPE-CODE FALSE> + PHRASE46>
+ <DEAD R?6>
+ <FRAME '\1aPUSH>
+ <PUSH ETMP13>
+ <CALL '\1aPUSH 1>
+ <JUMP + PHRASE51>
+PHRASE46
+ <FRAME '\1aSTRUCTYP>
+ <PUSH ETY16>
+ <DEAD ETY16>
+ <CALL '\1aSTRUCTYP 1 = ETY16>
+ <TYPE? ETY16 <TYPE-CODE FALSE> + PHRASE48>
+ <FRAME '\1aNTH-DO>
+ <PUSH ETY16>
+ <DEAD ETY16>
+ <PUSH ETMP13>
+ <GVAL 'POP-STACK = STACK>
+ <PUSH 1>
+ <CALL '\1aNTH-DO 4>
+ <JUMP + PHRASE51>
+PHRASE48
+ <FRAME '\1aIEMIT>
+ <PUSH '`NTH1>
+ <PUSH ETMP13>
+ <PUSH '=>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aIEMIT 4>
+PHRASE51
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH CNT10>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH CNT10>
+ <DEAD CNT10>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aREST-DO>
+ <PUSH 'TUPLE>
+ <PUSH STMP12>
+ <PUSH STMP12>
+ <PUSH 1>
+ <CALL '\1aREST-DO 4>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH STY11>
+ <DEAD STY11>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH LBL2-15>
+ <DEAD LBL2-15>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH ETMP13>
+ <DEAD ETMP13>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH STMP12>
+ <DEAD STMP12>
+ <CALL '\1aFREE-TEMP 1>
+ <RETURN W8>
+ <DEAD W8>
+PHRASE32
+ <FRAME '\1aISTYPE?>
+ <PUSH ETY16>
+ <DEAD ETY16>
+ <CALL '\1aISTYPE? 1>
+ <TYPE? R?6 <TYPE-CODE FALSE> + PHRASE62>
+ <DEAD R?6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <PUSH W8>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <CALL '\1aIEMIT 3>
+ <RETURN W8>
+ <DEAD W8>
+PHRASE62
+ <TYPE? STY11 <TYPE-CODE FALSE> + PHRASE64>
+ <FRAME '\1aNTH-DO>
+ <PUSH STY11>
+ <DEAD STY11>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <PUSH W8>
+ <PUSH 1>
+ <CALL '\1aNTH-DO 4>
+ <RETURN W8>
+ <DEAD W8>
+PHRASE64
+ <FRAME '\1aIEMIT>
+ <PUSH '`NTH1>
+ <PUSH SRC5>
+ <DEAD SRC5>
+ <PUSH '=>
+ <PUSH W8>
+ <CALL '\1aIEMIT 4>
+ <RETURN W8>
+ <DEAD W8>
+ <END \1aSTACKM>
+
+#WORD *622006372*
+ <GFCN \1aEMPTY-MAPF-CHECK ("VALUE" ANY <LIST [REST NODE]> <LIST [REST TEMP]> ANY <LIST [REST <OR ATOM FALSE>]>) K4 STMPS5 LBL6 SEG?7>
+ <TEMP TEMP24 TEMP19:LIST TEMP20:LIST TEMP21:LIST N26:NODE TMP27 STYP29 STMP8:TEMP LBL2-11>
+ <INTGO>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <SET TEMP19 K4 (TYPE LIST)>
+ <DEAD K4>
+ <SET TEMP20 STMPS5 (TYPE LIST)>
+ <DEAD STMPS5>
+ <SET TEMP21 SEG?7 (TYPE LIST)>
+ <DEAD SEG?7>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP17>
+ <EMPL? TEMP20 + MAPAP17>
+ <EMPL? TEMP21 + MAPAP17>
+ <NTHL TEMP19 1 = N26>
+ <NTHL TEMP20 1 = TMP27>
+ <NTHL TEMP21 1 = TEMP24>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV N26 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = STYP29>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP24>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = STMP8>
+ <PUSH STMP8>
+ <PUSH TMP27>
+ <DEAD TMP27>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'LENGTH () = TEMP24>
+ <CONS 'VALUE TEMP24 = TEMP24>
+ <NTHUV STMP8 1 = TMP27 (TYPE ATOM)>
+ <CONS TMP27 TEMP24 = STACK>
+ <DEAD TMP27 TEMP24>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aLABEL-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = STYP29>
+ <PUSH STYP29>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`INTGO>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aEMPTY-CHECK>
+ <PUSH 'TUPLE>
+ <PUSH STMP8>
+ <PUSH 'TUPLE>
+ <PUSH 'T>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = LBL2-11>
+ <PUSH LBL2-11>
+ <CALL '\1aEMPTY-CHECK 5>
+ <FRAME '\1aSTRUCTYP>
+ <FRAME '\1aGET-ELE-TYPE>
+ <NTHUV N26 5 = TEMP24 (TYPE LIST)>
+ <DEAD N26>
+ <NTHL TEMP24 1 = TEMP24 (TYPE NODE)>
+ <NTHUV TEMP24 3 = STACK>
+ <DEAD TEMP24>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <CALL '\1aSTRUCTYP 1 = TEMP24>
+ <FRAME '\1aNTH-DO>
+ <PUSH 'TUPLE>
+ <PUSH STMP8>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TMP27>
+ <PUSH TMP27>
+ <PUSH 1>
+ <CALL '\1aNTH-DO 4>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE48>
+ <FRAME '\1aEMPTY-CHECK>
+ <PUSH TEMP24>
+ <PUSH TMP27>
+ <PUSH TEMP24>
+ <DEAD TEMP24>
+ <PUSH 'T>
+ <PUSH LBL6>
+ <CALL '\1aEMPTY-CHECK 5>
+ <JUMP + PHRASE50>
+PHRASE48
+ <FRAME '\1aIEMIT>
+ <PUSH '`EMPTY?>
+ <PUSH TMP27>
+ <PUSH '+>
+ <PUSH LBL6>
+ <CALL '\1aIEMIT 4>
+PHRASE50
+ <FRAME '\1aREST-DO>
+ <PUSH 'TUPLE>
+ <PUSH STMP8>
+ <PUSH STMP8>
+ <PUSH 1>
+ <CALL '\1aREST-DO 4>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH STYP29>
+ <DEAD STYP29>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH LBL2-11>
+ <DEAD LBL2-11>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH STMP8>
+ <DEAD STMP8>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TMP27>
+ <DEAD TMP27>
+ <CALL '\1aFREE-TEMP 1 = TEMP24>
+ <JUMP + PHRASE59>
+PHRASE32
+ <TYPE? STYP29 <TYPE-CODE FALSE> + PHRASE57>
+ <FRAME '\1aEMPTY-CHECK>
+ <PUSH STYP29>
+ <PUSH TMP27>
+ <DEAD TMP27>
+ <PUSH STYP29>
+ <DEAD STYP29>
+ <PUSH 'T>
+ <PUSH LBL6>
+ <CALL '\1aEMPTY-CHECK 5 = TEMP24>
+ <JUMP + PHRASE59>
+PHRASE57
+ <FRAME '\1aIEMIT>
+ <PUSH '`EMPTY?>
+ <PUSH TMP27>
+ <DEAD TMP27>
+ <PUSH '+>
+ <PUSH LBL6>
+ <CALL '\1aIEMIT 4 = TEMP24>
+PHRASE59
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <JUMP + MAP14>
+MAPAP17
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+ <END \1aEMPTY-MAPF-CHECK>
+
+#WORD *17510610437*
+ <GFCN \1aREM-TUPS ("VALUE" ANY)>
+ <TEMP TEMP6 TEMP13>
+ <INTGO>
+ <GEN-LVAL 'STK-CHARS8 = TEMP6>
+ <VEQUAL? TEMP6 0 + PHRASE5 (TYPE FIX)>
+ <DEAD TEMP6>
+ <GEN-LVAL 'STK-CHARS8 = TEMP6>
+ <GEN-LVAL 'STK = TEMP13>
+ <ADD TEMP6 TEMP13 = TEMP6 (TYPE FIX)>
+ <DEAD TEMP13>
+ <GEN-SET 'STK-CHARS8 TEMP6>
+ <DEAD TEMP6>
+ <GEN-LVAL 'STK-CHARS7 = TEMP6>
+ <GEN-LVAL 'STK = TEMP13>
+ <ADD TEMP6 TEMP13 = TEMP6 (TYPE FIX)>
+ <DEAD TEMP13>
+ <GEN-SET 'STK-CHARS7 TEMP6>
+ <DEAD TEMP6>
+ <GEN-SET 'STK 0>
+PHRASE5
+ <GEN-ASSIGNED? 'STKTMP - PHRASE27>
+ <GEN-LVAL 'STK = TEMP13>
+ <VEQUAL? TEMP13 0 + PHRASE29 (TYPE FIX)>
+ <DEAD TEMP13>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <GEN-LVAL 'STKTMP = STACK>
+ <GEN-LVAL 'STK = STACK>
+ <PUSH '=>
+ <GEN-LVAL 'STKTMP = STACK>
+ <CONS 'FIX () = TEMP6>
+ <CONS '`TYPE TEMP6 = STACK>
+ <DEAD TEMP6>
+ <CALL '\1aIEMIT 6>
+ <JUMP + PHRASE44>
+PHRASE29
+ <GEN-LVAL 'STK-CHARS7 = TEMP6>
+ <VEQUAL? TEMP6 0 + PHRASE44 (TYPE FIX)>
+ <DEAD TEMP6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <GEN-LVAL 'STKTMP = STACK>
+ <GEN-LVAL 'STK-CHARS7 = STACK>
+ <PUSH '=>
+ <GEN-LVAL 'STKTMP = STACK>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <GEN-LVAL 'STKTMP = STACK>
+ <GEN-LVAL 'STK-CHARS8 = STACK>
+ <PUSH '=>
+ <GEN-LVAL 'STKTMP = STACK>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+PHRASE44
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <GEN-LVAL 'STKTMP = STACK>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFREE-TEMP>
+ <GEN-LVAL 'STKTMP = STACK>
+ <CALL '\1aFREE-TEMP 1 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+PHRASE27
+ <GEN-LVAL 'STK = TEMP6>
+ <VEQUAL? TEMP6 0 + PHRASE81 (TYPE FIX)>
+ <DEAD TEMP6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <GEN-LVAL 'STK = TEMP6>
+ <SUB 0 TEMP6 = STACK (TYPE FIX)>
+ <DEAD TEMP6>
+ <CALL '\1aIEMIT 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+PHRASE81
+ <GEN-LVAL 'STK-CHARS8 = TEMP6>
+ <VEQUAL? TEMP6 0 - TAG93 (TYPE FIX)>
+ <DEAD TEMP6>
+ <RETURN %<>>
+TAG93
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <GEN-LVAL 'STK-CHARS7 = TEMP6>
+ <SUB 0 TEMP6 = STACK (TYPE FIX)>
+ <DEAD TEMP6>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <GEN-LVAL 'STK-CHARS8 = TEMP6>
+ <SUB 0 TEMP6 = STACK (TYPE FIX)>
+ <DEAD TEMP6>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aREM-TUPS>
+
+#WORD *12047442126*
+ <GFCN \1aFLUSH-TUPLES ("VALUE" ANY LIST LIST) STMPS4 SEG?5>
+ <TEMP TEMP16 TEMP12:LIST TEMP13:LIST SEGF19>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP12 STMPS4 (TYPE LIST)>
+ <DEAD STMPS4>
+ <SET TEMP13 SEG?5 (TYPE LIST)>
+ <DEAD SEG?5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <EMPL? TEMP13 + MAPAP10>
+ <NTHL TEMP12 1 = TEMP16>
+ <NTHL TEMP13 1 = SEGF19>
+ <TYPE? SEGF19 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD SEGF19>
+ <FRAME '\1aLENGTH-VECTOR>
+ <PUSH TEMP16>
+ <PUSH TEMP16>
+ <CALL '\1aLENGTH-VECTOR 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH TEMP16>
+ <PUSH '=>
+ <PUSH TEMP16>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`MUL>
+ <PUSH TEMP16>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH TEMP16>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <PUSH TEMP16>
+ <CALL '\1aIEMIT 2>
+PHRASE21
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aFREE-TEMP 1 = TEMP16>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aFLUSH-TUPLES>
+
+\\f
+
+#WORD *35220652003*
+ <GFCN \1aHMAPFR ("VALUE" ANY NODE ANY <LIST [REST NODE]> ANY ANY ANY) MNOD4 MWHERE5 K6 NF7 BR8 DIR9>
+ <TEMP TEMP3:LBIND FAP11:NODE TEMP46 TEMP50 (FF?16 %<>) SUBRC20 FOONARG28 TEMP73 TEMP82 X97 SEG?34:LIST SEGCNT35 (FWHERE38 %<>) (ANY-EMPTY41 %<>) TEMP119 TEMP113 FEXIT31 K278:LIST STMPS281:LIST SEG?283:LIST TMP279:TEMP T-NAME284:ATOM VAL282>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'MNOD 'NODE %<> MNOD4>
+ <DEAD MNOD4>
+ <BBIND 'MWHERE 'ANY %<> MWHERE5>
+ <DEAD MWHERE5>
+ <BBIND 'BR 'ANY %<> BR8>
+ <DEAD BR8>
+ <BBIND 'DIR 'ANY %<> DIR9>
+ <DEAD DIR9>
+ <FIXBIND>
+ <BBIND 'SPECD <OR FALSE ATOM> 'FIX %<>>
+ <NTHL K6 1 = FAP11 (TYPE NODE)>
+ <RESTL K6 1 = TEMP46 (TYPE LIST)>
+ <NTHL TEMP46 1 = TEMP46 (TYPE NODE)>
+ <BBIND 'INRAP 'NODE 'FIX TEMP46>
+ <DEAD TEMP46>
+ <BBIND 'F? 'ANY 'FIX>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <LENL K6 = TEMP46 (TYPE FIX)>
+ <BBIND 'NARG 'FIX 'FIX TEMP46>
+ <DEAD TEMP46>
+ <NTHR 'MNOD 2 = TEMP46 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP46 1 = TEMP46 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP46 9 = TEMP46>
+ <GVAL 'MAPR = TEMP50>
+ <EQUAL? TEMP46 TEMP50 - TAG47>
+ <DEAD TEMP46 TEMP50>
+ <SET TEMP46 'T (TYPE ATOM)>
+ <JUMP + TAG51>
+TAG47
+ <SET TEMP46 %<> (TYPE FALSE)>
+TAG51
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "MAP">
+ <CALL '\1aMAKE-TAG 1 = TEMP50>
+ <BBIND 'MAPEND 'ATOM 'FIX TEMP50>
+ <DEAD TEMP50>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "MAP">
+ <CALL '\1aMAKE-TAG 1 = TEMP50>
+ <BBIND 'MAPLP 'ATOM 'FIX TEMP50>
+ <DEAD TEMP50>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "MAP">
+ <CALL '\1aMAKE-TAG 1 = TEMP50>
+ <BBIND 'REST-TAG 'ATOM 'FIX TEMP50>
+ <DEAD TEMP50>
+ <FRAME '\1aAP?>
+ <PUSH FAP11>
+ <CALL '\1aAP? 1 = SUBRC20>
+ <GEN-LVAL 'BASEF = TEMP50>
+ <BBIND 'BASEF 'NODE 'FIX TEMP50>
+ <DEAD TEMP50>
+ <BBIND 'MAYBE-FALSE 'ANY 'FIX %<>>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "MAPEX">
+ <CALL '\1aMAKE-TAG 1 = TEMP50>
+ <BBIND 'EXIT 'ATOM 'FIX TEMP50>
+ <DEAD TEMP50>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "MAPAP">
+ <CALL '\1aMAKE-TAG 1 = TEMP50>
+ <BBIND 'APPLTAG 'ATOM 'FIX TEMP50>
+ <DEAD TEMP50>
+ <NTHR 'MWHERE 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP50 1 = TEMP50 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP50 'FLUSHED - TAG60>
+ <DEAD TEMP50>
+ <SET TEMP50 'T (TYPE ATOM)>
+ <JUMP + TAG63>
+TAG60
+ <SET TEMP50 %<> (TYPE FALSE)>
+TAG63
+ <BBIND 'FLS 'ANY 'FIX TEMP50>
+ <DEAD TEMP50>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "MAP">
+ <CALL '\1aMAKE-TAG 1 = TEMP50>
+ <BBIND 'RTAG 'ATOM 'FIX TEMP50>
+ <DEAD TEMP50>
+ <NTHR 'NARG 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP50 1 = FOONARG28 (RECORD-TYPE LBIND)>
+ <DEAD TEMP50>
+ <SET TEMP73 () (TYPE LIST)>
+ <SET TEMP50 () (TYPE LIST)>
+ <LOOP>
+MAP68
+ <INTGO>
+ <SUB FOONARG28 1 = FOONARG28 (TYPE FIX)>
+ <LESS? FOONARG28 0 + MAPAP71 (TYPE FIX)>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP82>
+ <CONS TEMP82 () = TEMP82 (TYPE LIST)>
+ <EMPL? TEMP73 - TAG83>
+ <SET TEMP73 TEMP82 (TYPE LIST)>
+ <JUMP + TAG84>
+TAG83
+ <PUTREST TEMP50 TEMP82>
+ <DEAD TEMP50>
+TAG84
+ <SET TEMP50 TEMP82 (TYPE LIST)>
+ <DEAD TEMP82>
+ <JUMP + MAP68>
+MAPAP71
+ <SET FOONARG28 TEMP73>
+ <DEAD TEMP73>
+ <BBIND 'FTMP 'ANY 'FIX>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP82>
+ <BBIND 'EXTMP 'ANY 'FIX TEMP82>
+ <DEAD TEMP82>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP82>
+ <BBIND 'BNDTMP 'TEMP 'FIX TEMP82>
+ <DEAD TEMP82>
+ <SET TEMP50 () (TYPE LIST)>
+ <SET TEMP73 () (TYPE LIST)>
+ <SET TEMP82 FOONARG28 (TYPE LIST)>
+ <LOOP>
+MAP88
+ <INTGO>
+ <EMPL? TEMP82 + MAPAP91>
+ <CONS %<> () = X97 (TYPE LIST)>
+ <EMPL? TEMP50 - TAG99>
+ <SET TEMP50 X97 (TYPE LIST)>
+ <JUMP + TAG100>
+TAG99
+ <PUTREST TEMP73 X97>
+ <DEAD TEMP73>
+TAG100
+ <SET TEMP73 X97 (TYPE LIST)>
+ <DEAD X97>
+ <RESTL TEMP82 1 = TEMP82 (TYPE LIST)>
+ <JUMP + MAP88>
+MAPAP91
+ <SET SEG?34 TEMP50>
+ <DEAD TEMP50>
+ <FRAME '\1aISTYPE?>
+ <NTHR 'INRAP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP82 3 = STACK>
+ <DEAD TEMP82>
+ <CALL '\1aISTYPE? 1 = TEMP50>
+ <BBIND 'LEAVE? 'TEMP 'FIX>
+ <GEN-LVAL 'FREE-TEMPS = TEMP73>
+ <BBIND 'STKTMP 'ANY 'FIX>
+ <BBIND 'STK 'FIX 'FIX 0>
+ <BBIND 'STK-CHARS7 'FIX 'FIX 0>
+ <BBIND 'STK-CHARS8 'FIX 'FIX 0>
+ <SET TEMP82 K6 (TYPE LIST)>
+ <LOOP>
+MAP107
+ <INTGO>
+ <EMPL? TEMP82 + MAPAP110>
+ <NTHL TEMP82 1 = X97>
+ <FRAME '\1aMINL>
+ <NTHUV X97 3 = STACK>
+ <DEAD X97>
+ <CALL '\1aMINL 1 = TEMP119>
+ <LESS? TEMP119 1 - PHRASE117 (TYPE FIX)>
+ <DEAD TEMP119>
+ <SET ANY-EMPTY41 'T (TYPE ATOM)>
+ <JUMP + MAPAP110>
+PHRASE117
+ <RESTL TEMP82 1 = TEMP82 (TYPE LIST)>
+ <JUMP + MAP107>
+MAPAP110
+ <TYPE? NF7 <TYPE-CODE FALSE> + PHRASE123>
+ <DEAD NF7>
+ <NTHR 'DIR 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP82 <TYPE-CODE FALSE> - TAG124>
+ <DEAD TEMP82>
+ <SET TEMP82 'T (TYPE ATOM)>
+ <JUMP + TAG125>
+TAG124
+ <SET TEMP82 %<> (TYPE FALSE)>
+TAG125
+ <NTHR 'DIR 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP113 1 TEMP82 (RECORD-TYPE LBIND)>
+ <DEAD TEMP113 TEMP82>
+PHRASE123
+ <GETS 'BIND = TEMP82 (TYPE LBIND)>
+ <GEN-LVAL 'TMPS = TEMP113>
+ <BBIND 'TMPS 'FORM 'FIX TEMP113>
+ <DEAD TEMP113>
+ <GEN-LVAL 'TMPS-NEXT = TEMP113>
+ <BBIND 'TMPS-NEXT 'LIST 'FIX TEMP113>
+ <DEAD TEMP113>
+ <GEN-LVAL 'FREE-TEMPS = TEMP113>
+ <BBIND 'FREE-TEMPS 'LIST 'FIX TEMP113>
+ <DEAD TEMP113>
+ <GEN-LVAL 'ALL-TEMPS-LIST = TEMP113>
+ <BBIND 'ALL-TEMPS-LIST 'LIST 'FIX TEMP113>
+ <DEAD TEMP113>
+ <NTHR 'MWHERE 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP113 'DONT-CARE - PHRASE145>
+ <DEAD TEMP113>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP113>
+ <NTHR 'MWHERE 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR X97 1 TEMP113 (RECORD-TYPE LBIND)>
+ <DEAD X97>
+ <NTHR 'FTMP 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR X97 1 TEMP113 (RECORD-TYPE LBIND)>
+ <DEAD X97 TEMP113>
+ <JUMP + PHRASE153>
+PHRASE145
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP113>
+ <NTHR 'FTMP 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR X97 1 TEMP113 (RECORD-TYPE LBIND)>
+ <DEAD X97 TEMP113>
+PHRASE153
+ <FRAME '\1aDO-FIRST-SETUP>
+ <PUSH FAP11>
+ <NTHR 'MWHERE 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP113>
+ <NTHR 'FTMP 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP113>
+ <NTHR 'EXTMP 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP113>
+ <NTHR 'FLS 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP113>
+ <CALL '\1aDO-FIRST-SETUP 5 = TEMP113>
+ <NTHR 'F? 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR X97 1 TEMP113 (RECORD-TYPE LBIND)>
+ <DEAD X97 TEMP113>
+ <NTHR 'F? 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP113 <TYPE-CODE FALSE> - TAG172>
+ <DEAD TEMP113>
+ <NTHUV FAP11 1 = TEMP119 (TYPE FIX)>
+ <VEQUAL? TEMP119 71 - TAG171 (TYPE FIX)>
+ <DEAD TEMP119>
+ <SET FF?16 'T (TYPE ATOM)>
+ <JUMP + TAG172>
+TAG171
+ <SET FF?16 %<> (TYPE FALSE)>
+TAG172
+ <FRAME '\1aPUSH-STRUCS>
+ <PUSH K6>
+ <PUSH FOONARG28>
+ <PUSH SEG?34>
+ <CALL '\1aPUSH-STRUCS 3>
+ <NTHR 'F? 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE175>
+ <DEAD TEMP119>
+ <FRAME '\1aDO-FINAL-SETUP>
+ <PUSH FAP11>
+ <PUSH SUBRC20>
+ <NTHR 'FTMP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP119>
+ <NTHR 'EXTMP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP119>
+ <CALL '\1aDO-FINAL-SETUP 4 = TEMP119>
+ <NTHR 'MAYBE-FALSE 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP113 1 TEMP119 (RECORD-TYPE LBIND)>
+ <DEAD TEMP113 TEMP119>
+PHRASE175
+ <NTHR 'F? 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE198>
+ <DEAD TEMP119>
+ <TYPE? SUBRC20 <TYPE-CODE FALSE> + TAG191>
+ <SET TEMP119 [VECTOR UVECTOR TUPLE STRING BYTES] (TYPE VECTOR)>
+ <TYPE? SUBRC20 <TYPE-CODE ATOM> - TAG191>
+ <LOOP (SUBRC20 VALUE) (TEMP119 LENGTH VALUE)>
+TAG192
+ <NTHUV TEMP119 1 = TEMP113>
+ <VEQUAL? TEMP113 SUBRC20 + PHRASE198>
+ <DEAD TEMP113>
+ <RESTUV TEMP119 1 = TEMP119 (TYPE VECTOR)>
+ <EMPUV? TEMP119 - TAG192>
+TAG191
+ <FRAME '\1aSTART-FRAME>
+ <SET TEMP119 SUBRC20>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> - PHRASE196>
+ <SET TEMP119 'APPLY (TYPE ATOM)>
+PHRASE196
+ <PUSH TEMP119>
+ <DEAD TEMP119>
+ <CALL '\1aSTART-FRAME 1>
+ <TYPE? SUBRC20 <TYPE-CODE FALSE> - PHRASE198>
+ <FRAME '\1aPUSH>
+ <NTHR 'EXTMP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP119>
+ <CALL '\1aPUSH 1>
+PHRASE198
+ <VEQUAL? ANY-EMPTY41 0 + PHRASE203>
+ <DEAD ANY-EMPTY41>
+ <NTHR 'BR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE203>
+ <DEAD TEMP119>
+ <VEQUAL? TEMP50 'FALSE + PHRASE203>
+ <NTHR 'DIR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> - PHRASE203>
+ <DEAD TEMP119>
+ <FRAME '\1aEMPTY-MAPF-CHECK>
+ <PUSH K6>
+ <PUSH FOONARG28>
+ <NTHR 'BR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP119>
+ <PUSH SEG?34>
+ <CALL '\1aEMPTY-MAPF-CHECK 4>
+PHRASE203
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'MAPLP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP119>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`INTGO>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aEMPTY-MAPF-CHECK>
+ <PUSH K6>
+ <PUSH FOONARG28>
+ <NTHR 'BR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE219>
+ <DEAD TEMP119>
+ <NTHR 'DIR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE224>
+ <DEAD TEMP119>
+ <VEQUAL? TEMP50 'FALSE + PHRASE219>
+ <DEAD TEMP50>
+ <JUMP + PHRASE227>
+PHRASE224
+ <VEQUAL? TEMP50 'FALSE - PHRASE219>
+ <DEAD TEMP50>
+PHRASE227
+ <NTHR 'BR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE230>
+PHRASE219
+ <NTHR 'APPLTAG 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+PHRASE230
+ <PUSH TEMP119>
+ <DEAD TEMP119>
+ <PUSH SEG?34>
+ <CALL '\1aEMPTY-MAPF-CHECK 4>
+ <NTHR 'INRAP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP119 13 = TEMP119>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> - BOOL236>
+ <DEAD TEMP119>
+ <FRAME '\1aOR?>
+ <SET TEMP113 0 (TYPE FIX)>
+ <SET TEMP119 SEG?34>
+ <LOOP (TEMP119 VALUE) (TEMP113 VALUE)>
+TAG240
+ <INTGO>
+ <EMPL? TEMP119 + TAG239>
+ <NTHL TEMP119 1 = STACK>
+ <RESTL TEMP119 1 = TEMP119 (TYPE LIST)>
+ <ADD TEMP113 1 = TEMP113 (TYPE FIX)>
+ <JUMP + TAG240>
+TAG239
+ <CALL '\1aOR? TEMP113 = TEMP113>
+ <TYPE? TEMP113 <TYPE-CODE FALSE> + PHRASE234>
+ <DEAD TEMP113>
+BOOL236
+ <NTHR 'INRAP 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP113 12 = TEMP113>
+ <TYPE? TEMP113 <TYPE-CODE FALSE> + PHRASE234>
+ <DEAD TEMP113>
+ <NTHR 'F? 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP113 <TYPE-CODE FALSE> + PHRASE234>
+ <DEAD TEMP113>
+ <VEQUAL? FF?16 0 - PHRASE234>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TEMP113>
+ <NTHR 'LEAVE? 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP119 1 TEMP113 (RECORD-TYPE LBIND)>
+ <DEAD TEMP119 TEMP113>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <NTHR 'LEAVE? 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP113>
+ <PUSH 0>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ICALL>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = FEXIT31>
+ <PUSH FEXIT31>
+ <PUSH '=>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = FWHERE38>
+ <PUSH FWHERE38>
+ <CALL '\1aIEMIT 4>
+ <NTHR 'ALL-TEMPS-LIST 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
+ <CONS %<> () = TEMP119>
+ <NTHR 'FREE-TEMPS 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR X97 1 = X97 (RECORD-TYPE LBIND)>
+ <CONS X97 TEMP119 = TEMP119>
+ <DEAD X97>
+ <NTHR 'TMPS-NEXT 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR X97 1 = X97 (RECORD-TYPE LBIND)>
+ <CONS X97 TEMP119 = TEMP119>
+ <DEAD X97>
+ <NTHR 'TMPS 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR X97 1 = X97 (RECORD-TYPE LBIND)>
+ <CONS X97 TEMP119 = TEMP119>
+ <DEAD X97>
+ <CONS TEMP119 TEMP113 = TEMP113>
+ <DEAD TEMP119>
+ <NTHR 'ALL-TEMPS-LIST 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP119 1 TEMP113 (RECORD-TYPE LBIND)>
+ <DEAD TEMP119 TEMP113>
+ <FRAME '\1aMIM-TEMPS-HOLD>
+ <CALL '\1aMIM-TEMPS-HOLD 0>
+ <FRAME '\1aMIM-TEMPS-EMIT>
+ <CALL '\1aMIM-TEMPS-EMIT 0>
+ <NTHR 'FREE-TEMPS 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP113 1 () (RECORD-TYPE LBIND)>
+ <DEAD TEMP113>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TEMP50>
+ <FRAME '\1aPREV-FRAME>
+ <PUSH TEMP50>
+ <CALL '\1aPREV-FRAME 1>
+ <FRAME '\1aPUT>
+ <NTHR 'ALL-TEMPS-LIST 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
+ <NTHL TEMP113 1 = STACK>
+ <DEAD TEMP113>
+ <PUSH 4>
+ <PUSH TEMP50>
+ <DEAD TEMP50>
+ <CALL '\1aPUT 3>
+PHRASE234
+ <NTHR 'INRAP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP119 10 = TEMP113 (TYPE LIST)>
+ <DEAD TEMP119>
+ <SET K278 K6>
+ <SET STMPS281 FOONARG28>
+ <SET SEG?283 SEG?34>
+ <LOOP>
+AGAIN287
+ <INTGO>
+ <EMPL? STMPS281 - PHRASE289 (TYPE LIST)>
+ <SET TEMP119 TEMP113 (TYPE LIST)>
+ <DEAD TEMP113>
+ <LOOP>
+MAP291
+ <INTGO>
+ <EMPL? TEMP119 + EXIT274>
+ <NTHL TEMP119 1 = TEMP46>
+ <NTHR 'SPECD 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP50 1 = TEMP50 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE301>
+ <DEAD TEMP50>
+ <NTHUV TEMP46 3 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> + PHRASE301>
+ <DEAD TEMP50>
+ <FRAME '\1aSAVE-BINDING>
+ <NTHR 'BNDTMP 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP50 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP50>
+ <CALL '\1aSAVE-BINDING 1>
+ <NTHR 'SPECD 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP50 1 'T (RECORD-TYPE LBIND)>
+ <DEAD TEMP50>
+PHRASE301
+ <NTHUV TEMP46 3 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE312>
+ <DEAD TEMP50>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <NTHUV TEMP46 2 = STACK (TYPE ATOM)>
+ <PUSH 'T>
+ <NTHUV TEMP46 7 = STACK>
+ <CALL '\1aGEN-TEMP 4 = TMP279>
+ <PUTUV TEMP46 10 TMP279>
+ <NTHUV TMP279 1 = T-NAME284 (TYPE ATOM)>
+PHRASE312
+ <FRAME '\1aMBIND-GENERATE>
+ <PUSH TEMP46>
+ <CALL '\1aMBIND-GENERATE 1 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> + PHRASE315>
+ <DEAD TEMP50>
+ <NTHUV TEMP46 3 = TEMP50>
+ <DEAD TEMP46>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE315>
+ <DEAD TEMP50>
+ <NTHR 'TMPS-NEXT 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP50 1 = TEMP50 (RECORD-TYPE LBIND)>
+ <CONS T-NAME284 () = X97>
+ <NTHR 'TMPS-NEXT 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR ANY-EMPTY41 1 X97 (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <PUTREST TEMP50 X97>
+ <DEAD TEMP50 X97>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH TMP279>
+ <CALL '\1aUSE-TEMP 1>
+ <PUTUV TMP279 2 1 (TYPE FIX)>
+PHRASE315
+ <RESTL TEMP119 1 = TEMP119 (TYPE LIST)>
+ <JUMP + MAP291>
+PHRASE289
+ <NTHL TEMP113 1 = TEMP50>
+ <NTHUV TEMP50 3 = TEMP119>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE327>
+ <DEAD TEMP119>
+ <NTHR 'SPECD 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> - PHRASE327>
+ <DEAD TEMP119>
+ <FRAME '\1aSAVE-BINDING>
+ <NTHR 'BNDTMP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP119>
+ <CALL '\1aSAVE-BINDING 1>
+ <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR ANY-EMPTY41 1 'T (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+PHRASE327
+ <NTHUV TEMP50 3 = ANY-EMPTY41>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> - PHRASE337>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <NTHUV TEMP50 2 = STACK (TYPE ATOM)>
+ <PUSH 'T>
+ <PUSH 'T>
+ <CALL '\1aGEN-TEMP 4 = TMP279>
+ <PUTUV TEMP50 10 TMP279>
+ <NTHR 'TMPS-NEXT 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP50 12 = TEMP119>
+ <TYPE? TEMP119 <TYPE-CODE FALSE> - PHRASE342>
+ <DEAD TEMP119>
+ <FRAME '\1aISTYPE?>
+ <NTHUV TEMP50 18 = STACK>
+ <CALL '\1aISTYPE? 1 = X97>
+ <TYPE? X97 <TYPE-CODE FALSE> + PHRASE342>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH X97>
+ <CALL '\1aTYPEPRIM 1 = TEMP119>
+ <EQUAL? TEMP119 'FIX + BOOL345>
+ <EQUAL? TEMP119 'WORD + BOOL345>
+ <EQUAL? TEMP119 'LIST - PHRASE342>
+ <DEAD TEMP119>
+BOOL345
+ <NTHUV TMP279 1 = STACK (TYPE ATOM)>
+ <PUSH X97>
+ <DEAD X97>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP119>
+ <CHTYPE TEMP119 <TYPE-CODE ADECL> = TEMP119>
+ <JUMP + PHRASE348>
+PHRASE342
+ <NTHUV TMP279 1 = TEMP119 (TYPE ATOM)>
+PHRASE348
+ <CONS TEMP119 () = X97>
+ <DEAD TEMP119>
+ <NTHR 'TMPS-NEXT 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP119 1 X97 (RECORD-TYPE LBIND)>
+ <DEAD TEMP119>
+ <PUTREST ANY-EMPTY41 X97>
+ <DEAD ANY-EMPTY41 X97>
+ <PUTUV TMP279 2 1 (TYPE FIX)>
+PHRASE337
+ <NTHL SEG?283 1 = ANY-EMPTY41>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE352>
+ <DEAD ANY-EMPTY41>
+ <NTHUV TEMP50 4 = ANY-EMPTY41 (TYPE FIX)>
+ <VEQUAL? ANY-EMPTY41 4 - PHRASE352 (TYPE FIX)>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = SEGCNT35>
+ <PUSH SEGCNT35>
+ <PUSH 0>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aSTACKM>
+ <NTHL K278 1 = STACK (TYPE NODE)>
+ <NTHL STMPS281 1 = STACK (TYPE TEMP)>
+ <PUSH TEMP46>
+ <NTHR 'MAPEND 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <GVAL 'POP-STACK = STACK>
+ <PUSH 'T>
+ <PUSH SEGCNT35>
+ <CALL '\1aSTACKM 7>
+ <FRAME '\1aIEMIT>
+ <PUSH '`TUPLE>
+ <PUSH SEGCNT35>
+ <PUSH '=>
+ <NTHUV TEMP50 3 = ANY-EMPTY41>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE361>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = VAL282>
+ <SET ANY-EMPTY41 VAL282>
+ <JUMP + PHRASE363>
+PHRASE361
+ <SET ANY-EMPTY41 TMP279>
+PHRASE363
+ <PUSH ANY-EMPTY41>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aIEMIT 4>
+ <JUMP + PHRASE366>
+PHRASE352
+ <NTHL SEG?283 1 = ANY-EMPTY41>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE364>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aCOMPILE-LOSSAGE>
+ <PUSH "Not quite implemented SEGMENTS in MAPFS">
+ <CALL '\1aCOMPILE-LOSSAGE 1>
+ <JUMP + PHRASE366>
+PHRASE364
+ <FRAME '\1aSTACKM>
+ <NTHL K278 1 = STACK (TYPE NODE)>
+ <NTHL STMPS281 1 = STACK (TYPE TEMP)>
+ <PUSH TEMP46>
+ <NTHR 'MAPEND 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <NTHUV TEMP50 3 = ANY-EMPTY41>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE371>
+ <DEAD ANY-EMPTY41>
+ <SET ANY-EMPTY41 'DONT-CARE (TYPE ATOM)>
+ <JUMP + PHRASE372>
+PHRASE371
+ <SET ANY-EMPTY41 TMP279>
+PHRASE372
+ <PUSH ANY-EMPTY41>
+ <DEAD ANY-EMPTY41>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aSTACKM 7 = VAL282>
+PHRASE366
+ <NTHUV TEMP50 3 = ANY-EMPTY41>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE374>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aSPECIAL-BINDING>
+ <PUSH TEMP50>
+ <DEAD TEMP50>
+ <PUSH 'T>
+ <PUSH VAL282>
+ <CALL '\1aSPECIAL-BINDING 3>
+ <NTHR 'STK 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <ADD ANY-EMPTY41 9 = ANY-EMPTY41 (TYPE FIX)>
+ <NTHR 'STK 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR X97 1 ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <DEAD X97 ANY-EMPTY41>
+PHRASE374
+ <RESTL STMPS281 1 = STMPS281 (TYPE LIST)>
+ <RESTL TEMP113 1 = TEMP113 (TYPE LIST)>
+ <RESTL K278 1 = K278 (TYPE LIST)>
+ <RESTL SEG?283 1 = SEG?283 (TYPE LIST)>
+ <JUMP + AGAIN287>
+EXIT274
+ <NTHR 'F? 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE381>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aSEQ-GEN>
+ <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <NTHUV ANY-EMPTY41 5 = STACK (TYPE LIST)>
+ <DEAD ANY-EMPTY41>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aSEQ-GEN 2 = TEMP46>
+ <GVAL 'NO-DATUM = ANY-EMPTY41>
+ <EQUAL? ANY-EMPTY41 TEMP46 + PHRASE471>
+ <DEAD ANY-EMPTY41>
+ <TYPE? FWHERE38 <TYPE-CODE FALSE> + PHRASE390>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP46>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <FRAME '\1aPUSH>
+ <PUSH TEMP46>
+ <DEAD TEMP46>
+ <CALL '\1aPUSH 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`RTUPLE>
+ <PUSH 1>
+ <FRAME '\1aFREE-TEMP>
+ <FRAME '\1aCURRENT-FRAME>
+ <CALL '\1aCURRENT-FRAME 0 = STACK>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2 = STACK>
+ <CALL '\1aIEMIT 3>
+ <JUMP + PHRASE471>
+PHRASE390
+ <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE398>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aIEMIT>
+ <PUSH '`UNBIND>
+ <NTHR 'BNDTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aIEMIT 2>
+PHRASE398
+ <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE405>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH SEGCNT35>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`MUL>
+ <PUSH SEGCNT35>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <PUSH SEGCNT35>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGCNT35>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE405
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+ <FRAME '\1aDO-STACK-ARGS>
+ <NTHR 'MAYBE-FALSE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <PUSH TEMP46>
+ <NTHR 'EXTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aDO-STACK-ARGS 4>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP46>
+ <DEAD TEMP46>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE471>
+PHRASE381
+ <VEQUAL? FF?16 0 + PHRASE420>
+ <FRAME '\1aSEQ-GEN>
+ <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <NTHUV ANY-EMPTY41 5 = STACK (TYPE LIST)>
+ <DEAD ANY-EMPTY41>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aSEQ-GEN 2 = TEMP46>
+ <GVAL 'NO-DATUM = ANY-EMPTY41>
+ <EQUAL? ANY-EMPTY41 TEMP46 + PHRASE471>
+ <DEAD ANY-EMPTY41>
+ <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE427>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aIEMIT>
+ <PUSH '`UNBIND>
+ <NTHR 'BNDTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aIEMIT 2>
+PHRASE427
+ <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE434>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH SEGCNT35>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`MUL>
+ <PUSH SEGCNT35>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <PUSH SEGCNT35>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGCNT35>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE434
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+ <FRAME '\1aDO-FUNNY-HACK>
+ <PUSH TEMP46>
+ <DEAD TEMP46>
+ <NTHR 'MNOD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <PUSH FAP11>
+ <DEAD FAP11>
+ <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <NTHR 'EXTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aDO-FUNNY-HACK 6>
+ <JUMP + PHRASE471>
+PHRASE420
+ <NTHR 'FLS 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE450>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aSEQ-GEN>
+ <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <NTHUV ANY-EMPTY41 5 = STACK (TYPE LIST)>
+ <DEAD ANY-EMPTY41>
+ <PUSH 'FLUSHED>
+ <CALL '\1aSEQ-GEN 2>
+ <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE457>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aIEMIT>
+ <PUSH '`UNBIND>
+ <NTHR 'BNDTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aIEMIT 2>
+PHRASE457
+ <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE464>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH SEGCNT35>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`MUL>
+ <PUSH SEGCNT35>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <PUSH SEGCNT35>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGCNT35>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE464
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+ <JUMP + PHRASE471>
+PHRASE450
+ <FRAME '\1aSEQ-GEN>
+ <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <NTHUV ANY-EMPTY41 5 = STACK (TYPE LIST)>
+ <DEAD ANY-EMPTY41>
+ <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aSEQ-GEN 2>
+ <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE478>
+ <DEAD ANY-EMPTY41>
+ <FRAME '\1aIEMIT>
+ <PUSH '`UNBIND>
+ <NTHR 'BNDTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aIEMIT 2>
+PHRASE478
+ <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE485>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH SEGCNT35>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`MUL>
+ <PUSH SEGCNT35>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <PUSH SEGCNT35>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGCNT35>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE485
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+PHRASE471
+ <NTHR 'LEAVE? 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <TYPE? ANY-EMPTY41 <TYPE-CODE UNBOUND> - PHRASE493>
+ <DEAD ANY-EMPTY41>
+ <NTHR 'FREE-TEMPS 2 = TEMP73 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP73 1 = TEMP73 (RECORD-TYPE LBIND)>
+PHRASE493
+ <UNBIND TEMP82>
+ <DEAD TEMP82>
+ <ADJ -36>
+ <GEN-SET 'FREE-TEMPS TEMP73>
+ <DEAD TEMP73>
+ <GEN-LVAL 'TMPS = TEMP82>
+ <GEN-LVAL 'TMPS = ANY-EMPTY41>
+ <LENL ANY-EMPTY41 = ANY-EMPTY41 (TYPE FIX)>
+ <SUB ANY-EMPTY41 1 = ANY-EMPTY41 (TYPE FIX)>
+ <GRTR? ANY-EMPTY41 0 - RESTL504 (TYPE FIX)>
+ <LOOP (TEMP82 VALUE) (ANY-EMPTY41 VALUE)>
+RESTL503
+ <INTGO>
+ <RESTL TEMP82 1 = TEMP82 (TYPE LIST)>
+ <SUB ANY-EMPTY41 1 = ANY-EMPTY41 (TYPE FIX)>
+ <GRTR? ANY-EMPTY41 0 + RESTL503 (TYPE FIX)>
+RESTL504
+ <CHTYPE TEMP82 <TYPE-CODE LIST> = TEMP82>
+ <GEN-SET 'TMPS-NEXT TEMP82>
+ <DEAD TEMP82>
+ <TYPE? FWHERE38 <TYPE-CODE FALSE> + PHRASE508>
+ <NTHR 'F? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP82 <TYPE-CODE FALSE> + PHRASE508>
+ <DEAD TEMP82>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH FEXIT31>
+ <DEAD FEXIT31>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`VEQUAL?>
+ <NTHR 'LEAVE? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <PUSH 2>
+ <PUSH '+>
+ <NTHR 'EXIT 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aDO-STACK-TUPLE>
+ <NTHR 'MAYBE-FALSE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <PUSH FWHERE38>
+ <DEAD FWHERE38>
+ <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aDO-STACK-TUPLE 4>
+ <FRAME '\1aIEMIT>
+ <PUSH '`VEQUAL?>
+ <NTHR 'LEAVE? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <PUSH 1>
+ <PUSH '+>
+ <NTHR 'APPLTAG 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'LEAVE? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE508
+ <NTHR 'F? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP82 <TYPE-CODE FALSE> - PHRASE534>
+ <DEAD TEMP82>
+ <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE534>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH SEGCNT35>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`MUL>
+ <PUSH SEGCNT35>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH SEGCNT35>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <PUSH SEGCNT35>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGCNT35>
+ <DEAD SEGCNT35>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE534
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'REST-TAG 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aREST-STRUCS>
+ <PUSH FOONARG28>
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH SEG?34>
+ <CALL '\1aREST-STRUCS 3>
+ <FRAME '\1aBRANCH-TAG>
+ <NTHR 'MAPLP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'APPLTAG 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aLABEL-TAG 1>
+ <NTHR 'F? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP82 <TYPE-CODE FALSE> + PHRASE553>
+ <DEAD TEMP82>
+ <FRAME '\1aDO-LAST>
+ <PUSH SUBRC20>
+ <DEAD SUBRC20>
+ <NTHR 'MAYBE-FALSE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <NTHR 'MWHERE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aDO-LAST 5 = TEMP82>
+ <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR ANY-EMPTY41 1 TEMP82 (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41 TEMP82>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE601>
+PHRASE553
+ <VEQUAL? FF?16 0 + PHRASE573>
+ <DEAD FF?16>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aMOVE-ARG>
+ <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <NTHR 'MWHERE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aMOVE-ARG 2 = TEMP82>
+ <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR ANY-EMPTY41 1 TEMP82 (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41 TEMP82>
+ <JUMP + PHRASE601>
+PHRASE573
+ <NTHR 'MWHERE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP82 'FLUSHED + PHRASE584>
+ <DEAD TEMP82>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP82>
+ <CALL '\1aFREE-TEMP 1>
+ <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
+ <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP82 ANY-EMPTY41 + PHRASE601>
+ <DEAD TEMP82 ANY-EMPTY41>
+ <FRAME '\1aMOVE-ARG>
+ <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aMOVE-ARG 2>
+ <JUMP + PHRASE601>
+PHRASE584
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'EXTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE601
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'EXIT 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD ANY-EMPTY41>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFLUSH-TUPLES>
+ <PUSH FOONARG28>
+ <DEAD FOONARG28>
+ <PUSH SEG?34>
+ <DEAD SEG?34>
+ <CALL '\1aFLUSH-TUPLES 2>
+ <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -225>
+ <RETURN ANY-EMPTY41>
+ <DEAD ANY-EMPTY41>
+ <END \1aHMAPFR>
+
+#WORD *12044755363*
+ <GFCN \1aSAVE-BINDING ("VALUE" ATOM ANY) BNDTMP4>
+ <TEMP TEMP7:ATOM>
+ <INTGO>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH BNDTMP4>
+ <CALL '\1aUSE-TEMP 1>
+ <FRAME '\1aGET-BINDING>
+ <PUSH BNDTMP4>
+ <DEAD BNDTMP4>
+ <CALL '\1aGET-BINDING 1 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSAVE-BINDING>
+
+#WORD *2303506701*
+ <GFCN \1aNO-INTERFERE ("VALUE" <OR ATOM FALSE> NODE <LIST [REST SYMTAB]>) N4 B5>
+ <TEMP TEMP9 TEMP13 TEMP14>
+ <INTGO>
+ <NTHUV N4 1 = TEMP9 (TYPE FIX)>
+ <VEQUAL? TEMP9 10 - PHRASE7 (TYPE FIX)>
+ <DEAD TEMP9>
+ <NTHUV N4 4 = TEMP9>
+ <SET TEMP13 B5>
+ <TYPE? TEMP9 <TYPE-CODE SYMTAB> - PHRASE7>
+ <EMPL? TEMP13 + PHRASE7>
+ <LOOP (TEMP9 VALUE) (TEMP13 VALUE)>
+TAG11
+ <NTHL TEMP13 1 = TEMP14>
+ <VEQUAL? TEMP14 TEMP9 + TAG10>
+ <DEAD TEMP14>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <EMPL? TEMP13 - TAG11>
+ <JUMP + PHRASE7>
+TAG10
+ <RETURN %<>>
+PHRASE7
+ <NTHUV N4 1 = TEMP9 (TYPE FIX)>
+ <GVAL 'SNODES = TEMP14>
+ <EMPUU? TEMP14 + PHRASE15>
+ <LOOP (TEMP9 VALUE) (TEMP14 LENGTH VALUE)>
+TAG17
+ <NTHUU TEMP14 1 = TEMP13>
+ <VEQUAL? TEMP13 TEMP9 + TAG16>
+ <DEAD TEMP13>
+ <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
+ <EMPUU? TEMP14 - TAG17>
+ <JUMP + PHRASE15>
+TAG16
+ <RETURN 'T>
+PHRASE15
+ <NTHUV N4 1 = TEMP14 (TYPE FIX)>
+ <VEQUAL? TEMP14 7 - PHRASE20 (TYPE FIX)>
+ <DEAD TEMP14>
+ <FRAME '\1aNO-INTERFERE>
+ <NTHUV N4 4 = STACK (TYPE NODE)>
+ <PUSH B5>
+ <CALL '\1aNO-INTERFERE 2 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE20>
+ <DEAD TEMP14>
+ <RETURN %<>>
+PHRASE20
+ <SET TEMP9 %<> (TYPE FALSE)>
+ <NTHUV N4 5 = TEMP13 (TYPE LIST)>
+ <DEAD N4>
+ <LOOP>
+MAP25
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP28>
+ <NTHL TEMP13 1 = TEMP9>
+ <FRAME '\1aNO-INTERFERE>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <PUSH B5>
+ <CALL '\1aNO-INTERFERE 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE35>
+ <DEAD TEMP9>
+ <SET TEMP9 'T (TYPE ATOM)>
+ <JUMP + PHRASE38>
+PHRASE35
+ <RETURN %<>>
+PHRASE38
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP25>
+MAPAP28
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aNO-INTERFERE>
+
+\\f
+
+#WORD *24527460216*
+ <GFCN \1aNOTIMP ("VALUE" ANY ANY) ARG4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "NOT IMPLEMENTED MAPF/R TUPLES">
+ <CALL '\1aCOMPILE-ERROR 1 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aNOTIMP>
+
+#WORD *24572033427*
+ <GFCN \1aMENTROPY ("VALUE" ATOM ANY) SYM4>
+ <TEMP>
+ <INTGO>
+ <RETURN 'T>
+ <END \1aMENTROPY>
+
+#WORD *25434044011*
+ <GFCN \1aMBIND-GENERATE ("VALUE" ANY SYMTAB) SYM4>
+ <TEMP COD5>
+ <INTGO>
+ <NTHUV SYM4 4 = COD5 (TYPE FIX)>
+ <DISPATCH COD5 1 CASE8 CASE9 CASE10 CASE11 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASE18 CASE19 CASE20>
+ <DEAD COD5>
+ <RETURN %<>>
+CASE8
+ <FRAME '\1aACT-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aACT-B 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE9
+ <FRAME '\1aAUX1-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <CALL '\1aAUX1-B 2 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE10
+ <FRAME '\1aAUX2-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <CALL '\1aAUX2-B 2 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE11
+ <FRAME '\1aNOTIMP>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNOTIMP 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE12
+ <FRAME '\1aMENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aMENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE13
+ <FRAME '\1aAUX1-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <CALL '\1aAUX1-B 2 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE14
+ <FRAME '\1aAUX1-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <CALL '\1aAUX1-B 2 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE15
+ <FRAME '\1aAUX2-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <CALL '\1aAUX2-B 2 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE16
+ <FRAME '\1aAUX2-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <CALL '\1aAUX2-B 2 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE17
+ <FRAME '\1aMENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aMENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE18
+ <FRAME '\1aBIND-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aBIND-B 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE19
+ <FRAME '\1aMENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aMENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE20
+ <FRAME '\1aMENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aMENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+ <END \1aMBIND-GENERATE>
+
+#WORD *11036113255*
+ <GFCN \1aMAPLEAVE-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP TEMP14 BR8 DIR9 FRAME?11 TEMP25 FOK12 TRUE-OK13>
+ <INTGO>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP14>
+ <GEN-LVAL 'BR = BR8>
+ <GEN-LVAL 'DIR = DIR9>
+ <GEN-ASSIGNED? 'LEAVE? - TAG22>
+ <SET FRAME?11 'T (TYPE ATOM)>
+ <JUMP + TAG23>
+TAG22
+ <SET FRAME?11 %<> (TYPE FALSE)>
+TAG23
+ <FRAME '\1aTYPE-AND>
+ <NTHUV N4 5 = TEMP25 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP25 1 = N4 (TYPE NODE)>
+ <DEAD TEMP25>
+ <NTHUV N4 3 = TEMP25>
+ <PUSH TEMP25>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-AND 2 = FOK12>
+ <FRAME '\1aISTYPE?>
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <CALL '\1aISTYPE? 1 = TEMP25>
+ <VEQUAL? TEMP25 'FALSE + TAG26>
+ <DEAD TEMP25>
+ <SET TRUE-OK13 'T (TYPE ATOM)>
+ <JUMP + TAG28>
+TAG26
+ <SET TRUE-OK13 %<> (TYPE FALSE)>
+TAG28
+ <GEN-LVAL 'MWHERE = TEMP25>
+ <EQUAL? TEMP25 'FLUSHED - PHRASE30>
+ <DEAD TEMP25>
+ <TYPE? BR8 <TYPE-CODE FALSE> + PHRASE34>
+ <TYPE? FOK12 <TYPE-CODE FALSE> + PHRASE36>
+ <VEQUAL? TRUE-OK13 0 + PHRASE36>
+ <DEAD TRUE-OK13>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BR8>
+ <DEAD BR8>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH DIR9>
+ <DEAD DIR9>
+ <CALL '\1aPRED-BRANCH-GEN 3>
+ <JUMP + PHRASE49>
+PHRASE36
+ <FRAME '\1aGEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <TYPE? FOK12 <TYPE-CODE FALSE> + PHRASE44>
+ <DEAD FOK12>
+ <TYPE? DIR9 <TYPE-CODE FALSE> - PHRASE49>
+ <DEAD DIR9>
+ <JUMP + PHRASE45>
+PHRASE44
+ <TYPE? DIR9 <TYPE-CODE FALSE> + PHRASE49>
+ <DEAD DIR9>
+PHRASE45
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BR8>
+ <DEAD BR8>
+ <CALL '\1aBRANCH-TAG 1>
+ <JUMP + PHRASE49>
+PHRASE34
+ <FRAME '\1aGEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE49>
+PHRASE30
+ <GEN-LVAL 'F? = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE51>
+ <DEAD TEMP25>
+ <GEN-LVAL 'MWHERE = TEMP25>
+ <GEN-LVAL 'FTMP = BR8>
+ <EQUAL? TEMP25 BR8 - PHRASE51>
+ <DEAD TEMP25 BR8>
+ <VEQUAL? FRAME?11 0 - PHRASE51>
+ <FRAME '\1aSET-TEMP>
+ <PUSH TEMP14>
+ <GEN-LVAL 'FTMP = STACK>
+ <CALL '\1aSET-TEMP 2>
+ <JUMP + PHRASE63>
+PHRASE51
+ <GEN-LVAL 'FTMP = TEMP14>
+PHRASE63
+ <FRAME '\1aGEN>
+ <PUSH N4>
+ <DEAD N4>
+ <GEN-LVAL 'MWHERE = STACK>
+ <CALL '\1aGEN 2 = BR8>
+ <GEN-SET 'MWHERE BR8>
+ <DEAD BR8>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <GEN-LVAL 'MWHERE = STACK>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+PHRASE49
+ <VEQUAL? FRAME?11 0 + PHRASE77>
+ <DEAD FRAME?11>
+ <FRAME '\1aSET-TEMP>
+ <GEN-LVAL 'LEAVE? = STACK>
+ <PUSH 2>
+ <CALL '\1aSET-TEMP 2>
+ <JUMP + PHRASE82>
+PHRASE77
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+ <FRAME '\1aMAP-UNBIND>
+ <PUSH TEMP14>
+ <GEN-LVAL 'F? = STACK>
+ <GEN-LVAL 'BNDTMP = STACK>
+ <GEN-LVAL 'SPECD = STACK>
+ <CALL '\1aMAP-UNBIND 4>
+ <GEN-LVAL 'FTMP = BR8>
+ <EQUAL? BR8 TEMP14 + PHRASE95>
+ <DEAD BR8>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE95
+ <FRAME '\1aBRANCH-TAG>
+ <GEN-LVAL 'EXIT = STACK>
+ <CALL '\1aBRANCH-TAG 1>
+PHRASE82
+ <GVAL 'NO-DATUM = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aMAPLEAVE-GEN>
+
+#WORD *14352141552*
+ <GFCN \1aMAP-UNBIND ("VALUE" ATOM ANY ANY ANY ANY) EXTMP4 F?5 BNDTMP6 SPECD7>
+ <TEMP>
+ <INTGO>
+ <TYPE? F?5 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD F?5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH EXTMP4>
+ <PUSH '=>
+ <PUSH EXTMP4>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`MUL>
+ <PUSH EXTMP4>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH EXTMP4>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <PUSH EXTMP4>
+ <DEAD EXTMP4>
+ <CALL '\1aIEMIT 2>
+PHRASE9
+ <TYPE? SPECD7 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD SPECD7>
+ <FRAME '\1aIEMIT>
+ <PUSH '`UNBIND>
+ <PUSH BNDTMP6>
+ <DEAD BNDTMP6>
+ <CALL '\1aIEMIT 2>
+PHRASE14
+ <RETURN 'T>
+ <END \1aMAP-UNBIND>
+
+\\f
+
+#WORD *207353144*
+ <GFCN \1aMAPRET-STOP-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP SG6 K7 LN8:FIX TEMP23 FAP9:NODE FF?12 TEMP29 EXTMP14 FTMP15 F?16 MAYBE-FALSE17 SEGTMP18 FRAME?19 TEMP3:LBIND TG90 STYP91>
+ <INTGO>
+ <NTHUV N4 6 = SG6>
+ <NTHUV N4 5 = K7 (TYPE LIST)>
+ <LENL K7 = LN8 (TYPE FIX)>
+ <GEN-LVAL 'MNOD = TEMP23>
+ <NTHUV TEMP23 5 = TEMP23 (TYPE LIST)>
+ <NTHL TEMP23 1 = FAP9 (TYPE NODE)>
+ <DEAD TEMP23>
+ <NTHUV FAP9 1 = TEMP23 (TYPE FIX)>
+ <VEQUAL? TEMP23 71 - TAG26 (TYPE FIX)>
+ <DEAD TEMP23>
+ <SET FF?12 'T (TYPE ATOM)>
+ <JUMP + TAG27>
+TAG26
+ <SET FF?12 %<> (TYPE FALSE)>
+TAG27
+ <NTHUV N4 9 = TEMP23>
+ <GVAL 'MAPSTOP = TEMP29>
+ <EQUAL? TEMP23 TEMP29 - TAG28>
+ <DEAD TEMP23 TEMP29>
+ <SET TEMP29 'T (TYPE ATOM)>
+ <JUMP + TAG30>
+TAG28
+ <SET TEMP29 %<> (TYPE FALSE)>
+TAG30
+ <GEN-LVAL 'EXTMP = EXTMP14>
+ <GEN-LVAL 'FTMP = FTMP15>
+ <GEN-LVAL 'F? = F?16>
+ <GEN-LVAL 'MAYBE-FALSE = MAYBE-FALSE17>
+ <GEN-ASSIGNED? 'LEAVE? - TAG39>
+ <SET FRAME?19 'T (TYPE ATOM)>
+ <JUMP + TAG40>
+TAG39
+ <SET FRAME?19 %<> (TYPE FALSE)>
+TAG40
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP23>
+ <BBIND 'SEGLABEL 'ANY 'FIX TEMP23>
+ <DEAD TEMP23>
+ <BBIND 'COUNTMP 'ANY 'FIX FTMP15>
+ <BBIND 'SEGCALLED 'ANY 'FIX %<>>
+ <TYPE? SG6 <TYPE-CODE FALSE> - PHRASE43>
+ <DEAD SG6>
+ <LESS? LN8 2 - PHRASE43 (TYPE FIX)>
+ <VEQUAL? LN8 0 + PHRASE46 (TYPE FIX)>
+ <DEAD LN8>
+ <FRAME '\1aGEN>
+ <NTHL K7 1 = STACK (TYPE NODE)>
+ <CALL '\1aGEN 1 = SG6>
+ <VEQUAL? FF?12 0 + PHRASE51>
+ <DEAD FF?12>
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+ <FRAME '\1aDO-FUNNY-HACK>
+ <PUSH SG6>
+ <DEAD SG6>
+ <NTHL K7 1 = STACK (TYPE NODE)>
+ <DEAD K7>
+ <PUSH FAP9>
+ <DEAD FAP9>
+ <GEN-LVAL 'INRAP = STACK>
+ <PUSH FTMP15>
+ <DEAD FTMP15>
+ <PUSH EXTMP14>
+ <DEAD EXTMP14>
+ <CALL '\1aDO-FUNNY-HACK 6>
+ <JUMP + PHRASE153>
+PHRASE51
+ <TYPE? F?16 <TYPE-CODE FALSE> + PHRASE153>
+ <DEAD F?16>
+ <VEQUAL? FRAME?19 0 + PHRASE58>
+ <FRAME '\1aPUSH>
+ <PUSH SG6>
+ <CALL '\1aPUSH 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`RTUPLE>
+ <PUSH 1>
+ <FRAME '\1aFREE-TEMP>
+ <FRAME '\1aCURRENT-FRAME>
+ <CALL '\1aCURRENT-FRAME 0 = STACK>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2 = STACK>
+ <CALL '\1aIEMIT 3>
+ <JUMP + PHRASE63>
+PHRASE58
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+ <FRAME '\1aPUSH>
+ <PUSH SG6>
+ <CALL '\1aPUSH 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH FTMP15>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH FTMP15>
+ <DEAD FTMP15>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+PHRASE63
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SG6>
+ <DEAD SG6>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE153>
+PHRASE46
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+ <JUMP + PHRASE153>
+PHRASE43
+ <VEQUAL? FF?12 0 + PHRASE70>
+ <DEAD FF?12>
+ <FRAME '\1aDO-FUNNY-MAPRET>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH K7>
+ <DEAD K7>
+ <PUSH FAP9>
+ <DEAD FAP9>
+ <CALL '\1aDO-FUNNY-MAPRET 3>
+ <FRAME '\1aREM-TUPS>
+ <CALL '\1aREM-TUPS 0>
+ <JUMP + PHRASE153>
+PHRASE70
+ <VEQUAL? FRAME?19 0 + PHRASE75>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = FTMP15>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <PUSH FTMP15>
+ <PUSH 0>
+ <CALL '\1aIEMIT 3>
+PHRASE75
+ <SET SG6 K7 (TYPE LIST)>
+ <DEAD K7>
+ <LOOP>
+MAP79
+ <INTGO>
+ <EMPL? SG6 + MAPAP82>
+ <NTHL SG6 1 = FAP9>
+ <NTHUV FAP9 1 = TEMP23 (TYPE FIX)>
+ <VEQUAL? TEMP23 3 - PHRASE96 (TYPE FIX)>
+ <DEAD TEMP23>
+ <TYPE? SEGTMP18 <TYPE-CODE UNBOUND> - PHRASE99>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = SEGTMP18>
+PHRASE99
+ <FRAME '\1aGEN>
+ <NTHUV FAP9 5 = TEMP23 (TYPE LIST)>
+ <DEAD FAP9>
+ <NTHL TEMP23 1 = FAP9 (TYPE NODE)>
+ <DEAD TEMP23>
+ <PUSH FAP9>
+ <PUSH SEGTMP18>
+ <CALL '\1aGEN 2 = FF?12>
+ <TYPE? MAYBE-FALSE17 <TYPE-CODE FALSE> + PHRASE103>
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH EXTMP14>
+ <PUSH 'FALSE>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG90>
+ <PUSH TG90>
+ <PUSH 'T>
+ <CALL '\1aGEN-TYPE? 4>
+PHRASE103
+ <GVAL 'NO-DATUM = TEMP23>
+ <EQUAL? TEMP23 FF?12 + PHRASE107>
+ <DEAD TEMP23 FF?12>
+ <FRAME '\1aSEGMENT-STACK>
+ <PUSH SEGTMP18>
+ <PUSH FTMP15>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV FAP9 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = STYP91>
+ <PUSH STYP91>
+ <FRAME '\1aISTYPE?>
+ <NTHUV FAP9 3 = STACK>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <NTHR 'SEGLABEL 2 = TEMP23 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP23 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP23>
+ <CALL '\1aSEGMENT-STACK 5>
+ <JUMP + PHRASE113>
+PHRASE107
+ <NTHR 'SEGCALLED 2 = TEMP23 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP23 1 = TEMP23 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE113>
+ <DEAD TEMP23>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'SEGLABEL 2 = TEMP23 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP23 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP23>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE113
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP23>
+ <NTHR 'SEGLABEL 2 = K7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR K7 1 TEMP23 (RECORD-TYPE LBIND)>
+ <DEAD K7 TEMP23>
+ <TYPE? MAYBE-FALSE17 <TYPE-CODE FALSE> + PHRASE149>
+ <FRAME '\1aBRANCH-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP23>
+ <PUSH TEMP23>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG90>
+ <CALL '\1aLABEL-TAG 1>
+ <TYPE? STYP91 <TYPE-CODE FALSE> + PHRASE129>
+ <FRAME '\1aEMPTY-CHECK>
+ <PUSH STYP91>
+ <PUSH SEGTMP18>
+ <PUSH STYP91>
+ <PUSH 'T>
+ <PUSH TEMP23>
+ <CALL '\1aEMPTY-CHECK 5>
+ <JUMP + PHRASE131>
+PHRASE129
+ <FRAME '\1aIEMIT>
+ <PUSH '`EMPTY?>
+ <PUSH SEGTMP18>
+ <PUSH '+>
+ <PUSH TEMP23>
+ <CALL '\1aIEMIT 4>
+PHRASE131
+ <FRAME '\1aSTACKM>
+ <PUSH FAP9>
+ <DEAD FAP9>
+ <PUSH SEGTMP18>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH FTMP15>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aSTACKM 7>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <CALL '\1aLABEL-TAG 1>
+ <JUMP + PHRASE149>
+PHRASE96
+ <TYPE? MAYBE-FALSE17 <TYPE-CODE FALSE> + PHRASE137>
+ <FRAME '\1aGEN>
+ <PUSH FAP9>
+ <DEAD FAP9>
+ <CALL '\1aGEN 1 = FF?12>
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH EXTMP14>
+ <PUSH 'FALSE>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG90>
+ <PUSH TG90>
+ <PUSH 'T>
+ <CALL '\1aGEN-TYPE? 4>
+ <FRAME '\1aPUSH>
+ <PUSH FF?12>
+ <CALL '\1aPUSH 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH FTMP15>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH FTMP15>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aBRANCH-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP23>
+ <PUSH TEMP23>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG90>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aSET-TEMP>
+ <PUSH FTMP15>
+ <PUSH FF?12>
+ <CALL '\1aSET-TEMP 2>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH FF?12>
+ <DEAD FF?12>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE149>
+PHRASE137
+ <FRAME '\1aGEN>
+ <PUSH FAP9>
+ <DEAD FAP9>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH FTMP15>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH FTMP15>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+PHRASE149
+ <RESTL SG6 1 = SG6 (TYPE LIST)>
+ <JUMP + MAP79>
+MAPAP82
+ <VEQUAL? FRAME?19 0 + PHRASE153>
+ <VEQUAL? TEMP29 0 + PHRASE155>
+ <FRAME '\1aSET-TEMP>
+ <GEN-LVAL 'LEAVE? = STACK>
+ <PUSH 1>
+ <CALL '\1aSET-TEMP 2>
+PHRASE155
+ <FRAME '\1aIEMIT>
+ <PUSH '`RTUPLE>
+ <PUSH FTMP15>
+ <DEAD FTMP15>
+ <FRAME '\1aFREE-TEMP>
+ <FRAME '\1aCURRENT-FRAME>
+ <CALL '\1aCURRENT-FRAME 0 = STACK>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2 = STACK>
+ <CALL '\1aIEMIT 3>
+PHRASE153
+ <VEQUAL? FRAME?19 0 - PHRASE163>
+ <DEAD FRAME?19>
+ <FRAME '\1aBRANCH-TAG>
+ <VEQUAL? TEMP29 0 + PHRASE166>
+ <DEAD TEMP29>
+ <GEN-LVAL 'APPLTAG = SG6>
+ <JUMP + PHRASE169>
+PHRASE166
+ <GEN-LVAL 'REST-TAG = SG6>
+PHRASE169
+ <PUSH SG6>
+ <DEAD SG6>
+ <CALL '\1aBRANCH-TAG 1>
+PHRASE163
+ <GVAL 'NO-DATUM = SG6>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN SG6>
+ <DEAD SG6>
+ <END \1aMAPRET-STOP-GEN>
+
+\\f
+
+#WORD *12127604203*
+ <GFCN \1aDO-FUNNY-MAPRET ("VALUE" ANY NODE <LIST [REST NODE]> NODE) N4 K5 FAP6>
+ <TEMP SEGTMP7 TEMP3:LBIND TEMP21 TEMP18:LIST NN23:NODE TEMP37 TEM29 TG2-25:ATOM STYP27 TMPX28:TEMP>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'SEGLABEL 'ANY 'FIX>
+ <BBIND 'COUNTMP 'ANY 'FIX>
+ <BBIND 'SEGCALLED 'ANY 'FIX %<>>
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <SET TEMP18 K5 (TYPE LIST)>
+ <DEAD K5>
+ <LOOP>
+MAP13
+ <INTGO>
+ <EMPL? TEMP18 + MAPAP16>
+ <NTHL TEMP18 1 = NN23>
+ <NTHUV NN23 1 = TEMP21 (TYPE FIX)>
+ <VEQUAL? TEMP21 68 + BOOL32 (TYPE FIX)>
+ <DEAD TEMP21>
+ <NTHUV NN23 1 = TEMP21 (TYPE FIX)>
+ <VEQUAL? TEMP21 3 - PHRASE31 (TYPE FIX)>
+ <DEAD TEMP21>
+BOOL32
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TEMP21>
+ <NTHR 'COUNTMP 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP37 1 TEMP21 (RECORD-TYPE LBIND)>
+ <DEAD TEMP37 TEMP21>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP21>
+ <NTHR 'SEGLABEL 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP37 1 TEMP21 (RECORD-TYPE LBIND)>
+ <DEAD TEMP37 TEMP21>
+ <FRAME '\1aGEN>
+ <NTHUV NN23 5 = TEMP21 (TYPE LIST)>
+ <DEAD NN23>
+ <NTHL TEMP21 1 = NN23 (TYPE NODE)>
+ <DEAD TEMP21>
+ <PUSH NN23>
+ <CALL '\1aGEN 1 = TEM29>
+ <TYPE? TEM29 <TYPE-CODE TEMP> - PHRASE43>
+ <NTHUV TEM29 2 = TEMP21 (TYPE FIX)>
+ <GRTR? TEMP21 1 + PHRASE43 (TYPE FIX)>
+ <DEAD TEMP21>
+ <SET SEGTMP7 TEM29>
+ <JUMP + PHRASE47>
+PHRASE43
+ <GVAL 'NO-DATUM = TEMP21>
+ <EQUAL? TEMP21 TEM29 + PHRASE47>
+ <DEAD TEMP21>
+ <TYPE? SEGTMP7 <TYPE-CODE UNBOUND> - PHRASE49>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = SEGTMP7>
+PHRASE49
+ <FRAME '\1aSET-TEMP>
+ <PUSH SEGTMP7>
+ <PUSH TEM29>
+ <CALL '\1aSET-TEMP 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEM29>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE47
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG2-25>
+ <GVAL 'NO-DATUM = TEMP21>
+ <EQUAL? TEMP21 TEM29 + PHRASE55>
+ <DEAD TEMP21>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV NN23 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = STYP27>
+ <EQUAL? STYP27 'LIST - PHRASE58>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'VALUE () = TEMP21>
+ <NTHUV SEGTMP7 1 = TEMP37 (TYPE ATOM)>
+ <CONS TEMP37 TEMP21 = STACK>
+ <DEAD TEMP37 TEMP21>
+ <CALL '\1aIEMIT 2>
+ <JUMP + PHRASE60>
+PHRASE58
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'LENGTH () = TEMP21>
+ <CONS 'VALUE TEMP21 = TEMP21>
+ <NTHUV SEGTMP7 1 = TEMP37 (TYPE ATOM)>
+ <CONS TEMP37 TEMP21 = STACK>
+ <DEAD TEMP37 TEMP21>
+ <CALL '\1aIEMIT 2>
+PHRASE60
+ <FRAME '\1aLABEL-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP21>
+ <PUSH TEMP21>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`INTGO>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TMPX28>
+ <TYPE? STYP27 <TYPE-CODE FALSE> + PHRASE67>
+ <FRAME '\1aEMPTY-CHECK>
+ <PUSH STYP27>
+ <PUSH SEGTMP7>
+ <PUSH STYP27>
+ <PUSH 'T>
+ <PUSH TG2-25>
+ <CALL '\1aEMPTY-CHECK 5>
+ <FRAME '\1aNTH-DO>
+ <PUSH STYP27>
+ <PUSH SEGTMP7>
+ <PUSH TMPX28>
+ <PUSH 1>
+ <CALL '\1aNTH-DO 4>
+ <JUMP + PHRASE70>
+PHRASE67
+ <FRAME '\1aIEMIT>
+ <PUSH '`EMPTY?>
+ <PUSH SEGTMP7>
+ <PUSH '+>
+ <PUSH TG2-25>
+ <CALL '\1aIEMIT 4>
+ <FRAME '\1aIEMIT>
+ <PUSH '`NTH1>
+ <PUSH SEGTMP7>
+ <PUSH '=>
+ <PUSH TMPX28>
+ <CALL '\1aIEMIT 4>
+PHRASE70
+ <FRAME '\1aDO-FUNNY-HACK>
+ <PUSH TMPX28>
+ <DEAD TMPX28>
+ <GEN-LVAL 'MNOD = STACK>
+ <PUSH FAP6>
+ <PUSH NN23>
+ <GEN-LVAL 'FTMP = STACK>
+ <GEN-LVAL 'EXTMP = STACK>
+ <CALL '\1aDO-FUNNY-HACK 6>
+ <TYPE? STYP27 <TYPE-CODE FALSE> + PHRASE82>
+ <FRAME '\1aREST-DO>
+ <PUSH STYP27>
+ <DEAD STYP27>
+ <PUSH SEGTMP7>
+ <PUSH SEGTMP7>
+ <PUSH 1>
+ <CALL '\1aREST-DO 4>
+ <JUMP + PHRASE84>
+PHRASE82
+ <FRAME '\1aIEMIT>
+ <PUSH '`REST1>
+ <PUSH SEGTMP7>
+ <PUSH '=>
+ <PUSH SEGTMP7>
+ <CALL '\1aIEMIT 4>
+PHRASE84
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <CALL '\1aBRANCH-TAG 1>
+PHRASE55
+ <NTHR 'SEGCALLED 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP21 1 = TEMP21 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE88>
+ <DEAD TEMP21>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TMPX28>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'SEGLABEL 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP21>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aLABEL-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP37>
+ <PUSH TEMP37>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`VEQUAL?>
+ <NTHR 'COUNTMP 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP21>
+ <PUSH 0>
+ <PUSH '+>
+ <PUSH TG2-25>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aPOP>
+ <PUSH TMPX28>
+ <CALL '\1aPOP 1>
+ <FRAME '\1aDO-FUNNY-HACK>
+ <PUSH TMPX28>
+ <GEN-LVAL 'MNOD = STACK>
+ <PUSH FAP6>
+ <PUSH NN23>
+ <DEAD NN23>
+ <GEN-LVAL 'FTMP = STACK>
+ <GEN-LVAL 'EXTMP = STACK>
+ <CALL '\1aDO-FUNNY-HACK 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <NTHR 'COUNTMP 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP21>
+ <PUSH 1>
+ <PUSH '=>
+ <NTHR 'COUNTMP 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP21>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG2-25>
+ <DEAD TG2-25>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP21>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TMPX28>
+ <DEAD TMPX28>
+ <CALL '\1aFREE-TEMP 1 = TEMP21>
+ <JUMP + PHRASE127>
+PHRASE88
+ <GVAL 'NO-DATUM = TEMP21>
+ <EQUAL? TEMP21 TEM29 - TAG125>
+ <DEAD TEMP21 TEM29>
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <JUMP + PHRASE127>
+TAG125
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG2-25>
+ <DEAD TG2-25>
+ <CALL '\1aLABEL-TAG 1 = TEMP21>
+ <JUMP + PHRASE127>
+PHRASE31
+ <FRAME '\1aGEN>
+ <PUSH NN23>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = TEMP21>
+ <FRAME '\1aDO-FUNNY-HACK>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <GEN-LVAL 'MNOD = STACK>
+ <PUSH FAP6>
+ <PUSH NN23>
+ <DEAD NN23>
+ <GEN-LVAL 'FTMP = STACK>
+ <GEN-LVAL 'EXTMP = STACK>
+ <CALL '\1aDO-FUNNY-HACK 6 = TEMP21>
+PHRASE127
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + MAP13>
+MAPAP16
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aDO-FUNNY-MAPRET>
+
+#WORD *35266271771*
+ <GFCN \1aAP? ("VALUE" ANY NODE) N4>
+ <TEMP TEMP8 TEMP7 AT5>
+ <INTGO>
+ <NTHUV N4 1 = TEMP8 (TYPE FIX)>
+ <VEQUAL? TEMP8 66 + TAG9 (TYPE FIX)>
+ <DEAD TEMP8>
+ <RETURN %<>>
+TAG9
+ <NTHUV N4 5 = TEMP8 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP8 1 = N4 (TYPE NODE)>
+ <DEAD TEMP8>
+ <NTHUV N4 1 = TEMP8 (TYPE FIX)>
+ <VEQUAL? TEMP8 2 + TAG10 (TYPE FIX)>
+ <DEAD TEMP8>
+ <RETURN %<>>
+TAG10
+ <NTHUV N4 4 = AT5>
+ <DEAD N4>
+ <SET TEMP7 AT5>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + BOOL6>
+ <GEN-LVAL 'REASONABLE = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - TAG29>
+ <DEAD TEMP8>
+ <NTHR AT5 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL14)>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL14>
+ <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP8 <TYPE-CODE UNBOUND> + BOOL14>
+ <DEAD TEMP8>
+ <GVAL AT5 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE MSUBR> + TAG29>
+ <DEAD TEMP8>
+BOOL14
+ <NTHR AT5 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG17)>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG17>
+ <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP8 <TYPE-CODE UNBOUND> - TAG16>
+ <DEAD TEMP8>
+TAG17
+ <RETURN %<>>
+TAG16
+ <GVAL AT5 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FUNCTION> + TAG18>
+ <DEAD TEMP8>
+ <RETURN %<>>
+TAG18
+ <GEN-LVAL 'FCNS = TEMP8>
+ <EQUAL? TEMP8 AT5 + TAG29>
+ <DEAD TEMP8>
+ <GEN-LVAL 'FCNS = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE LIST> + TAG26>
+ <DEAD TEMP8>
+ <RETURN %<>>
+TAG26
+ <GEN-LVAL 'FCNS = TEMP7>
+ <EMPTY? TEMP7 + TAG28>
+ <LOOP (AT5 VALUE) (TEMP7 LENGTH VALUE TYPE)>
+TAG30
+ <NTH1 TEMP7 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE ATOM> - TAG31>
+ <VEQUAL? TEMP8 AT5 + TAG29>
+ <DEAD TEMP8>
+TAG31
+ <REST1 TEMP7 = TEMP7>
+ <EMPTY? TEMP7 - TAG30>
+TAG28
+ <RETURN %<>>
+TAG29
+ <SET TEMP7 AT5>
+ <DEAD AT5>
+BOOL6
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aAP?>
+
+<ENDPACKAGE>