--- /dev/null
+
+<PACKAGE "CODGEN">
+
+<ENTRY GEN CODE-GEN SEQ-GEN SEGMENT-STACK GOOD-TUPLE NO-KILL DELAY-KILL BASEF LADDR TRUE-FALSE SUBR-GEN BIND-CODE NPRUNE ARG? OPT? COND-GEN OR-GEN AND-GEN ASSIGNED?-GEN BIND-B ACT-B AUX1-B AUX2-B SMSUBR-CALL CALL-GEN T-NAME GASSIGNED?-GEN INTERFERE? INTERF-CHANGE SEGLABEL SEGCALLED COUNTMP SET-GEN PSEQ-GEN>
+
+<USE "CHKDCL" "COMPDEC" "MIMGEN" "STRGEN" "MAPGEN" "MMQGEN" "BUILDL" "BITSGEN" "LNQGEN" "CARGEN" "NOTGEN" "ALLR" "SUBRTY" "NEWREP" "ADVMESS" "CASECOMP">
+
+<SETG THE-UNBOUND <CHTYPE 0 T$UNBOUND>>
+
+" This file contains the major general codde generators. These include
+ variable access functions (LVAL, SETG etc.), FSUBRs (COND, AND, REPEAT)
+ and a few assorted others."
+
+" Main generator, dispatches to specific code generators. "
+
+#WORD *27750327121*
+<GFCN \1aGEN ("VALUE" ANY NODE "OPTIONAL" ANY) NOD6 WHERE7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH 'DONT-CARE>
+OPT5
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aGEN-DISPATCH>
+ <PUSH NOD6>
+ <PUSH WHERE7>
+ <DEAD WHERE7>
+ <CALL '\1aGEN-DISPATCH 2 = TEMP8>
+ <GEN-ASSIGNED? 'NPRUNE + BOOL10>
+ <PUTUV NOD6 5 () (TYPE LIST)>
+ <DEAD NOD6>
+BOOL10
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aGEN>
+" Generate a sequence of nodes flushing all values except the ladt."
+
+#WORD *1036732747*
+<GFCN \1aSEQ-GEN ("VALUE" ANY <LIST [REST NODE]> ANY "OPTIONAL" ANY ANY ANY) L8 WHERE9 INPROG10 SINPROG11 INCODE-GEN12>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP (WSET14 %<>) TEMP21:LIST N26:LIST ND27 TEMP32 NX28>
+ <INTGO>
+ <SET TEMP21 L8 (TYPE LIST)>
+ <DEAD L8>
+ <LOOP>
+MAP16
+ <INTGO>
+ <EMPL? TEMP21 + MAPAP19>
+ <SET N26 TEMP21>
+ <NTHL N26 1 = ND27 (TYPE NODE)>
+ <RESTL N26 1 = TEMP32 (TYPE LIST)>
+ <EMPL? TEMP32 + PHRASE31 (TYPE LIST)>
+ <DEAD TEMP32>
+ <RESTL N26 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = NX28 (TYPE NODE)>
+ <DEAD TEMP32>
+ <NTHUV NX28 1 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 90 - PHRASE34 (TYPE FIX)>
+ <DEAD TEMP32>
+ <NTHUV NX28 5 = NX28 (TYPE LIST)>
+ <EMPL? NX28 + PHRASE34>
+ <RESTL NX28 1 = TEMP32 (TYPE LIST)>
+ <EMPL? TEMP32 + PHRASE34>
+ <DEAD TEMP32>
+ <NTHL NX28 1 = TEMP32 (TYPE NODE)>
+ <DEAD NX28>
+ <NTHUV TEMP32 4 = TEMP32>
+ <EQUAL? TEMP32 '`ENDIF - PHRASE34>
+ <DEAD TEMP32>
+ <FRAME '\1aGEN>
+ <PUSH ND27>
+ <DEAD ND27>
+ <PUSH WHERE9>
+ <CALL '\1aGEN 2 = ND27>
+ <VEQUAL? WSET14 0 - PHRASE38>
+ <EQUAL? WHERE9 'FLUSHED + PHRASE38>
+ <GVAL 'NO-DATUM = TEMP32>
+ <EQUAL? TEMP32 ND27 + PHRASE38>
+ <DEAD TEMP32>
+ <GVAL 'POP-STACK = TEMP32>
+ <EQUAL? TEMP32 WHERE9 + PHRASE38>
+ <DEAD TEMP32>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <PUSH ND27>
+ <DEAD ND27>
+ <CALL '\1aFIXUP-TEMP 2 = WHERE9>
+ <SET WSET14 'T (TYPE ATOM)>
+PHRASE38
+ <RESTL N26 1 = TEMP32 (TYPE LIST)>
+ <DEAD N26>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <EMPL? TEMP32 + PHRASE53 (TYPE LIST)>
+ <DEAD TEMP32>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH WHERE9>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <JUMP + PHRASE53>
+PHRASE34
+ <LENUV ND27 = TEMP32 (TYPE FIX)>
+ <LESS? TEMP32 8 + BOOL47 (TYPE FIX)>
+ <DEAD TEMP32>
+ <NTHUV ND27 8 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL46>
+ <DEAD TEMP32>
+BOOL47
+ <FRAME '\1aGETPROP>
+ <PUSH ND27>
+ <PUSH 'DONT-FLUSH-ME>
+ <CALL '\1aGETPROP 2 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL46>
+ <DEAD TEMP32>
+ <GVAL 'DONT-FLUSH-ME = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE53>
+ <DEAD TEMP32>
+BOOL46
+ <FRAME '\1aGEN>
+ <PUSH ND27>
+ <DEAD ND27>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE53>
+PHRASE31
+ <NTHUV ND27 1 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 90 - PHRASE50 (TYPE FIX)>
+ <DEAD TEMP32>
+ <NTHUV ND27 5 = NX28 (TYPE LIST)>
+ <EMPL? NX28 + PHRASE50>
+ <RESTL NX28 1 = TEMP32 (TYPE LIST)>
+ <EMPL? TEMP32 + PHRASE50>
+ <DEAD TEMP32>
+ <NTHL NX28 1 = TEMP32 (TYPE NODE)>
+ <DEAD NX28>
+ <NTHUV TEMP32 4 = TEMP32>
+ <EQUAL? TEMP32 '`ENDIF - PHRASE50>
+ <DEAD TEMP32>
+ <FRAME '\1aGEN>
+ <PUSH ND27>
+ <DEAD ND27>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE53>
+PHRASE50
+ <FRAME '\1aGEN>
+ <PUSH ND27>
+ <DEAD ND27>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <CALL '\1aGEN 2 = WHERE9>
+PHRASE53
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <JUMP + MAP16>
+MAPAP19
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+ <END \1aSEQ-GEN>
+" The main code generation entry (called from CDRIVE). Sets up initial
+ stack model, calls to generate code for the bindings and generates code for
+ the function's body."
+
+#WORD *31133576555*
+<GFCN \1aCODE-GEN ("VALUE" LIST NODE ANY) BASEF4 EXTRA-CODE5>
+ <TEMP TEMP3:LBIND TEMP27 TEMP28 K6 ATAG10:ATOM RTAG11:ATOM BNDTMP23:TEMP>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'BASEF 'NODE %<> BASEF4>
+ <DEAD BASEF4>
+ <FIXBIND>
+ <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <NTHUV TEMP27 5 = K6 (TYPE LIST)>
+ <DEAD TEMP27>
+ <BBIND 'NO-KILL 'LIST 'FIX ()>
+ <BBIND 'KILL-LIST 'LIST 'FIX ()>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "AGAIN">
+ <CALL '\1aMAKE-TAG 1 = ATAG10>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "RETURN">
+ <CALL '\1aMAKE-TAG 1 = RTAG11>
+ <BBIND 'CODE-START 'LIST 'FIX EXTRA-CODE5>
+ <DEAD EXTRA-CODE5>
+ <NTHR 'CODE-START 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <BBIND 'CODE-PTR 'LIST 'FIX TEMP27>
+ <DEAD TEMP27>
+ <BBIND 'EVERY-TEMP 'LIST 'FIX ()>
+ <BBIND 'ARGS-NEXT 'LIST 'FIX>
+ <BBIND 'TMPS 'FORM 'FIX>
+ <BBIND 'TMPS-NEXT 'LIST 'FIX>
+ <BBIND 'STK 'FIX 'FIX 0>
+ <BBIND 'FREE-TEMPS <LIST [REST TEMP]> 'FIX ()>
+ <BBIND 'ALL-TEMPS-LIST 'LIST 'FIX ()>
+ <BBIND 'TMP-DEST 'ATOM 'FIX>
+ <BBIND 'SPECD 'ANY 'FIX>
+ <BBIND 'STKTMP 'ANY 'FIX>
+ <BBIND 'STK-CHARS7 'FIX 'FIX 0>
+ <BBIND 'STK-CHARS8 'FIX 'FIX 0>
+ <FRAME '\1aMIM-FCN>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP27 4 = STACK>
+ <DEAD TEMP27>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP27 9 = STACK>
+ <DEAD TEMP27>
+ <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP28 12 = TEMP27>
+ <DEAD TEMP28>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> - BOOL40>
+ <FRAME '\1aACTIV?>
+ <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP28 10 = STACK (TYPE LIST)>
+ <DEAD TEMP28>
+ <CALL '\1aACTIV? 1 = TEMP27>
+ <VEQUAL? TEMP27 0 - BOOL40>
+ <FRAME '\1aGETPROP>
+ <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP28 4 = STACK>
+ <DEAD TEMP28>
+ <PUSH 'FRAME>
+ <CALL '\1aGETPROP 2 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> - BOOL40>
+ <FRAME '\1aGETPROP>
+ <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <PUSH 'UNWIND>
+ <CALL '\1aGETPROP 2 = TEMP27>
+BOOL40
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <CALL '\1aMIM-FCN 3>
+ <FRAME '\1aMIM-TEMPS-HOLD>
+ <CALL '\1aMIM-TEMPS-HOLD 0>
+ <FRAME '\1aBIND-CODE>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <PUSH %<>>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = BNDTMP23>
+ <PUSH BNDTMP23>
+ <CALL '\1aBIND-CODE 3 = TEMP27>
+ <NTHR 'SPECD 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
+ <DEAD TEMP28 TEMP27>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP27 19 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE60>
+ <DEAD TEMP27>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CALL '\1aIEMIT 1>
+PHRASE60
+ <FRAME '\1aLABEL-TAG>
+ <PUSH ATAG10>
+ <CALL '\1aLABEL-TAG 1>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP27 14 'DONT-CARE>
+ <DEAD TEMP27>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP27 15 'DONT-CARE>
+ <DEAD TEMP27>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP27 16 ATAG10>
+ <DEAD TEMP27 ATAG10>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP27 17 RTAG11>
+ <DEAD TEMP27>
+ <FRAME '\1aSEQ-GEN>
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH 'DONT-CARE>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aSEQ-GEN 5 = K6>
+ <GVAL 'NO-DATUM = TEMP27>
+ <EQUAL? K6 TEMP27 - PHRASE75>
+ <DEAD TEMP27>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP27 15 = K6>
+ <DEAD TEMP27>
+PHRASE75
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP27 15 = TEMP27>
+ <EQUAL? TEMP27 K6 + PHRASE79>
+ <DEAD TEMP27>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH K6>
+ <DEAD K6>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP27 15 = STACK>
+ <DEAD TEMP27>
+ <CALL '\1aMOVE-ARG 2 = K6>
+PHRASE79
+ <FRAME '\1aLABEL-TAG>
+ <PUSH RTAG11>
+ <DEAD RTAG11>
+ <CALL '\1aLABEL-TAG 1>
+ <NTHR 'TMP-DEST 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE87>
+ <DEAD TEMP27>
+ <NTHR 'TMPS-NEXT 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHR 'TMP-DEST 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
+ <CONS TEMP28 () = TEMP28>
+ <CONS '= TEMP28 = TEMP28>
+ <PUTREST TEMP27 TEMP28>
+ <DEAD TEMP27 TEMP28>
+PHRASE87
+ <FRAME '\1aFREE-TEMP>
+ <PUSH K6>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <NTHR 'SPECD 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE94>
+ <DEAD TEMP27>
+ <FRAME '\1aIEMIT>
+ <PUSH '`UNBIND>
+ <PUSH BNDTMP23>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH BNDTMP23>
+ <DEAD BNDTMP23>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE94
+ <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <VEQUAL? TEMP27 0 + PHRASE100 (TYPE FIX)>
+ <DEAD TEMP27>
+ <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHR 'STK 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
+ <ADD TEMP27 TEMP28 = TEMP27 (TYPE FIX)>
+ <DEAD TEMP28>
+ <NTHR 'STK-CHARS8 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
+ <DEAD TEMP28 TEMP27>
+ <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHR 'STK 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
+ <ADD TEMP27 TEMP28 = TEMP27 (TYPE FIX)>
+ <DEAD TEMP28>
+ <NTHR 'STK-CHARS7 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
+ <DEAD TEMP28 TEMP27>
+ <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP27 1 0 (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+PHRASE100
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE120>
+ <DEAD TEMP27>
+ <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <VEQUAL? TEMP27 0 + PHRASE122 (TYPE FIX)>
+ <DEAD TEMP27>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <PUSH '=>
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <CONS 'FIX () = TEMP27>
+ <CONS '`TYPE TEMP27 = STACK>
+ <DEAD TEMP27>
+ <CALL '\1aIEMIT 6>
+ <JUMP + PHRASE134>
+PHRASE122
+ <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <VEQUAL? TEMP27 0 + PHRASE134 (TYPE FIX)>
+ <DEAD TEMP27>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <PUSH '=>
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <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>
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <PUSH '=>
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+PHRASE134
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE171>
+PHRASE120
+ <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <VEQUAL? TEMP27 0 + PHRASE163 (TYPE FIX)>
+ <DEAD TEMP27>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <SUB 0 TEMP27 = STACK (TYPE FIX)>
+ <DEAD TEMP27>
+ <CALL '\1aIEMIT 2>
+ <JUMP + PHRASE171>
+PHRASE163
+ <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <VEQUAL? TEMP27 0 + PHRASE171 (TYPE FIX)>
+ <DEAD TEMP27>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADJ>
+ <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <SUB 0 TEMP27 = STACK (TYPE FIX)>
+ <DEAD TEMP27>
+ <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>
+ <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <SUB 0 TEMP27 = STACK (TYPE FIX)>
+ <DEAD TEMP27>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+PHRASE171
+ <FRAME '\1aMIM-RETURN>
+ <PUSH K6>
+ <DEAD K6>
+ <CALL '\1aMIM-RETURN 1>
+ <FRAME '\1aTYPIFY-TEMPS>
+ <NTHR 'EVERY-TEMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <CALL '\1aTYPIFY-TEMPS 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`END>
+ <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP27 4 = TEMP27>
+ <CHTYPE TEMP27 <TYPE-CODE FCN-ATOM> = STACK>
+ <DEAD TEMP27>
+ <CALL '\1aIEMIT 2>
+ <NTHR 'CODE-START 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -153>
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+ <END \1aCODE-GEN>
+" Generate code for setting up and binding agruments."
+
+#WORD *137601750*
+<GFCN \1aBIND-CODE ("VALUE" ANY NODE "OPTIONAL" ANY ANY) NOD7 FORPROG8 BNDTMP9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP BST10:LIST TEMP3:LBIND (LARG12 %<>) (ANY-ARG13 %<>) (ANY-SPEC14 %<>) (OPTS?15 %<>) (OL16 ()) (TUP?18 %<>) TEMP28 TEMP27 SYM32 TEMP36 TEMP41>
+ <INTGO>
+ <NTHUV NOD7 10 = BST10 (TYPE LIST)>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'NPRUNE 'ANY 'FIX 'T>
+ <BBIND 'T-NAME 'ANY 'FIX>
+ <TYPE? FORPROG8 <TYPE-CODE FALSE> - PHRASE81>
+ <SET OL16 () (TYPE LIST)>
+ <SET TEMP28 () (TYPE LIST)>
+ <SET TEMP27 BST10 (TYPE LIST)>
+ <LOOP>
+MAP22
+ <INTGO>
+ <EMPL? TEMP27 + MAPAP25>
+ <NTHL TEMP27 1 = SYM32>
+ <FRAME '\1aOPT?>
+ <PUSH SYM32>
+ <CALL '\1aOPT? 1 = TEMP36>
+ <VEQUAL? TEMP36 0 + PHRASE34>
+ <DEAD TEMP36>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "OPT">
+ <CALL '\1aMAKE-TAG 1 = TEMP36>
+ <JUMP + PHRASE38>
+PHRASE34
+ <NTHUV SYM32 4 = TEMP41 (TYPE FIX)>
+ <DEAD SYM32>
+ <VEQUAL? TEMP41 4 - MAP23 (TYPE FIX)>
+ <DEAD TEMP41>
+ <NTHUV NOD7 20 = TUP?18 (TYPE FIX)>
+ <JUMP + MAP23>
+PHRASE38
+ <CONS TEMP36 () = TEMP36 (TYPE LIST)>
+ <EMPL? OL16 - TAG43>
+ <SET OL16 TEMP36 (TYPE LIST)>
+ <JUMP + TAG44>
+TAG43
+ <PUTREST TEMP28 TEMP36>
+ <DEAD TEMP28>
+TAG44
+ <SET TEMP28 TEMP36 (TYPE LIST)>
+ <DEAD TEMP36>
+MAP23
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <JUMP + MAP22>
+MAPAP25
+ <EMPL? OL16 + PHRASE46 (TYPE LIST)>
+ <SET TEMP27 OL16>
+ <LOOP (TEMP27 VALUE)>
+TAG47
+ <RESTL TEMP27 1 = TEMP36 (TYPE LIST)>
+ <EMPL? TEMP36 + TAG48>
+ <SET TEMP27 TEMP36>
+ <DEAD TEMP36>
+ <JUMP + TAG47>
+TAG48
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "OPT">
+ <CALL '\1aMAKE-TAG 1 = TEMP36>
+ <CONS TEMP36 () = TEMP36>
+ <PUTREST TEMP27 TEMP36>
+ <DEAD TEMP27 TEMP36>
+ <FRAME '\1aIEMIT>
+ <PUSH '`OPT-DISPATCH>
+ <NTHUV NOD7 21 = STACK (TYPE FIX)>
+ <PUSH TUP?18>
+ <DEAD TUP?18>
+ <SET TEMP41 3 (TYPE FIX)>
+ <SET TEMP36 OL16>
+ <LOOP (TEMP36 VALUE) (TEMP41 VALUE)>
+TAG51
+ <INTGO>
+ <EMPL? TEMP36 + TAG50>
+ <NTHL TEMP36 1 = STACK>
+ <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
+ <ADD TEMP41 1 = TEMP41 (TYPE FIX)>
+ <JUMP + TAG51>
+TAG50
+ <CALL '\1aIEMIT TEMP41>
+ <DEAD TEMP41>
+PHRASE46
+ <SET TEMP41 BST10 (TYPE LIST)>
+ <LOOP>
+MAP54
+ <INTGO>
+ <EMPL? TEMP41 + MAPAP57>
+ <NTHL TEMP41 1 = SYM32>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <NTHUV SYM32 2 = STACK (TYPE ATOM)>
+ <PUSH 'T>
+ <NTHUV SYM32 7 = STACK>
+ <CALL '\1aGEN-TEMP 4 = TUP?18>
+ <PUTUV SYM32 10 TUP?18>
+ <DEAD TUP?18>
+ <FRAME '\1aOPT?>
+ <PUSH SYM32>
+ <CALL '\1aOPT? 1 = TUP?18>
+ <VEQUAL? TUP?18 0 + PHRASE78>
+ <DEAD TUP?18>
+ <FRAME '\1aLABEL-TAG>
+ <NTHL OL16 1 = STACK>
+ <CALL '\1aLABEL-TAG 1>
+ <RESTL OL16 1 = OL16 (TYPE LIST)>
+ <NTHUV SYM32 3 = TUP?18>
+ <TYPE? TUP?18 <TYPE-CODE FALSE> - PHRASE71>
+ <DEAD TUP?18>
+ <NTHUV SYM32 4 = TUP?18 (TYPE FIX)>
+ <VEQUAL? TUP?18 9 + PHRASE71 (TYPE FIX)>
+ <DEAD TUP?18>
+ <NTHUV SYM32 4 = TUP?18 (TYPE FIX)>
+ <VEQUAL? TUP?18 8 + PHRASE71 (TYPE FIX)>
+ <DEAD TUP?18>
+ <NTHUV SYM32 9 = TUP?18 (TYPE NODE)>
+ <NTHUV TUP?18 1 = TUP?18 (TYPE FIX)>
+ <VEQUAL? TUP?18 2 + BOOL73 (TYPE FIX)>
+ <VEQUAL? TUP?18 10 - PHRASE71 (TYPE FIX)>
+ <DEAD TUP?18>
+BOOL73
+ <FRAME '\1aGEN>
+ <NTHUV SYM32 9 = STACK (TYPE NODE)>
+ <DEAD SYM32>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE75>
+PHRASE71
+ <FRAME '\1aPUSH>
+ <GVAL 'THE-UNBOUND = STACK>
+ <CALL '\1aPUSH 1>
+PHRASE75
+ <RESTL OL16 1 = TUP?18 (TYPE LIST)>
+ <EMPL? TUP?18 - PHRASE78 (TYPE LIST)>
+ <DEAD TUP?18>
+ <FRAME '\1aLABEL-TAG>
+ <NTHL OL16 1 = STACK>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE78
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <JUMP + MAP54>
+MAPAP57
+ <NTHUV NOD7 1 = TUP?18 (TYPE FIX)>
+ <VEQUAL? TUP?18 1 - PHRASE81 (TYPE FIX)>
+ <DEAD TUP?18>
+ <FRAME '\1aMIM-TEMPS-EMIT>
+ <CALL '\1aMIM-TEMPS-EMIT 0>
+PHRASE81
+ <SET TUP?18 BST10 (TYPE LIST)>
+ <DEAD BST10>
+ <LOOP>
+MAP86
+ <INTGO>
+ <EMPL? TUP?18 + MAPAP89>
+ <SET BST10 TUP?18>
+ <NTHL BST10 1 = OL16 (TYPE SYMTAB)>
+ <FRAME '\1aARG?>
+ <PUSH OL16>
+ <CALL '\1aARG? 1 = TEMP28>
+ <FRAME '\1aOPT?>
+ <PUSH OL16>
+ <CALL '\1aOPT? 1 = TEMP27>
+ <NTHUV OL16 15 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> - PHRASE105>
+ <DEAD TEMP36>
+ <NTHUV OL16 3 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE103>
+ <DEAD TEMP36>
+ <FRAME '\1aCOMPILE-NOTE>
+ <PUSH "Special variable never used: ">
+ <NTHUV OL16 2 = STACK (TYPE ATOM)>
+ <CALL '\1aCOMPILE-NOTE 2>
+ <JUMP + PHRASE105>
+PHRASE103
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "Variable never used: ">
+ <NTHUV OL16 2 = STACK (TYPE ATOM)>
+ <CALL '\1aCOMPILE-WARNING 2>
+PHRASE105
+ <VEQUAL? LARG12 0 - PHRASE108>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE108>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE108>
+ <VEQUAL? ANY-SPEC14 0 + PHRASE111>
+ <VEQUAL? ANY-ARG13 0 + PHRASE111>
+ <FRAME '\1aGEN-FIX-BIND>
+ <CALL '\1aGEN-FIX-BIND 0>
+PHRASE111
+ <SET LARG12 'T (TYPE ATOM)>
+PHRASE108
+ <NTHUV OL16 10 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE TEMP> + PHRASE115>
+ <DEAD TEMP36>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <NTHUV OL16 2 = STACK (TYPE ATOM)>
+ <PUSH 'T>
+ <NTHUV OL16 7 = STACK>
+ <CALL '\1aGEN-TEMP 4 = TEMP36>
+ <PUTUV OL16 10 TEMP36>
+ <DEAD TEMP36>
+PHRASE115
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE118>
+ <VEQUAL? OPTS?15 0 - PHRASE118>
+ <SET OPTS?15 'T (TYPE ATOM)>
+PHRASE118
+ <TYPE? BNDTMP9 <TYPE-CODE UNBOUND> + PHRASE121>
+ <NTHUV OL16 3 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE121>
+ <DEAD TEMP36>
+ <VEQUAL? ANY-SPEC14 0 - PHRASE121>
+ <SET ANY-SPEC14 'T (TYPE ATOM)>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH BNDTMP9>
+ <PUSH 'LBIND>
+ <CALL '\1aUSE-TEMP 2>
+ <FRAME '\1aGET-BINDING>
+ <PUSH BNDTMP9>
+ <CALL '\1aGET-BINDING 1>
+PHRASE121
+ <NTHUV OL16 10 = SYM32 (TYPE TEMP)>
+ <NTHUV OL16 12 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE126>
+ <DEAD TEMP36>
+ <SET TEMP36 'ANY (TYPE ATOM)>
+ <JUMP + PHRASE127>
+PHRASE126
+ <NTHUV OL16 18 = TEMP36>
+PHRASE127
+ <PUTUV SYM32 6 TEMP36>
+ <DEAD TEMP36>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL130>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE129>
+BOOL130
+ <GEN-LVAL 'ARGS-NEXT = TEMP36>
+ <NTHUV SYM32 1 = TEMP41 (TYPE ATOM)>
+ <CONS TEMP41 () = TEMP41>
+ <GEN-SET 'ARGS-NEXT TEMP41>
+ <PUTREST TEMP36 TEMP41>
+ <DEAD TEMP36 TEMP41>
+PHRASE129
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL138>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE137>
+BOOL138
+ <SET ANY-ARG13 'T (TYPE ATOM)>
+PHRASE137
+ <NTHUV SYM32 1 = TEMP36 (TYPE ATOM)>
+ <NTHR 'T-NAME 2 = TEMP41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP41 1 TEMP36 (RECORD-TYPE LBIND)>
+ <DEAD TEMP41 TEMP36>
+ <FRAME '\1aBIND-GENERATE>
+ <PUSH OL16>
+ <PUSH FORPROG8>
+ <CALL '\1aBIND-GENERATE 2 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE142>
+ <DEAD TEMP36>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE142>
+ <DEAD TEMP28>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE142>
+ <DEAD TEMP27>
+ <NTHUV OL16 3 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> - PHRASE142>
+ <DEAD TEMP36>
+ <GEN-LVAL 'TMPS-NEXT = TEMP36>
+ <NTHR 'T-NAME 2 = TEMP41 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP41 1 = TEMP41 (RECORD-TYPE LBIND)>
+ <CONS TEMP41 () = TEMP41>
+ <GEN-SET 'TMPS-NEXT TEMP41>
+ <PUTREST TEMP36 TEMP41>
+ <DEAD TEMP36 TEMP41>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH SYM32>
+ <FRAME '\1aISTYPE?>
+ <NTHUV OL16 18 = STACK>
+ <DEAD OL16>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <CALL '\1aUSE-TEMP 2>
+ <PUTUV SYM32 2 1 (TYPE FIX)>
+ <DEAD SYM32>
+PHRASE142
+ <VEQUAL? LARG12 0 - PHRASE154>
+ <RESTL BST10 1 = TEMP36 (TYPE LIST)>
+ <DEAD BST10>
+ <EMPL? TEMP36 - PHRASE154 (TYPE LIST)>
+ <DEAD TEMP36>
+ <VEQUAL? ANY-SPEC14 0 + PHRASE157>
+ <VEQUAL? ANY-ARG13 0 + PHRASE157>
+ <FRAME '\1aGEN-FIX-BIND>
+ <CALL '\1aGEN-FIX-BIND 0>
+PHRASE157
+ <SET LARG12 'T (TYPE ATOM)>
+PHRASE154
+ <RESTL TUP?18 1 = TUP?18 (TYPE LIST)>
+ <JUMP + MAP86>
+MAPAP89
+ <NTHUV NOD7 12 = TUP?18>
+ <TYPE? TUP?18 <TYPE-CODE FALSE> + PHRASE161>
+ <DEAD TUP?18>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ACTIVATION>
+ <CALL '\1aIEMIT 1>
+PHRASE161
+ <TYPE? BNDTMP9 <TYPE-CODE UNBOUND> + PHRASE164>
+ <VEQUAL? ANY-SPEC14 0 - PHRASE164>
+ <FRAME '\1aPUTPROP>
+ <PUSH NOD7>
+ <DEAD NOD7>
+ <PUSH 'UNWIND>
+ <CALL '\1aPUTPROP 2 = TUP?18>
+ <TYPE? TUP?18 <TYPE-CODE FALSE> + PHRASE164>
+ <DEAD TUP?18>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH BNDTMP9>
+ <PUSH 'LBIND>
+ <CALL '\1aUSE-TEMP 2>
+ <FRAME '\1aGET-BINDING>
+ <PUSH BNDTMP9>
+ <CALL '\1aGET-BINDING 1>
+PHRASE164
+ <SET TUP?18 ANY-SPEC14>
+ <DEAD ANY-SPEC14>
+ <VEQUAL? TUP?18 0 + PHRASE170>
+ <SET TUP?18 BNDTMP9>
+ <DEAD BNDTMP9>
+PHRASE170
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TUP?18>
+ <DEAD TUP?18>
+ <END \1aBIND-CODE>\r\r
+" Generate \"BIND\" binding code."
+
+#WORD *37113541656*
+<GFCN \1aBIND-B ("VALUE" ATOM SYMTAB) SYM4>
+ <TEMP TEMP9 FTMP6>
+ <INTGO>
+ <NTHUV SYM4 3 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD TEMP9>
+ <FRAME '\1aPREV-FRAME>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FRAME>
+ <CALL '\1aGEN-TEMP 1 = STACK>
+ <CALL '\1aPREV-FRAME 1 = FTMP6>
+ <FRAME '\1aSPECIAL-BINDING>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <PUSH FTMP6>
+ <CALL '\1aSPECIAL-BINDING 3>
+ <GEN-LVAL 'STK = TEMP9>
+ <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
+ <GEN-SET 'STK TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH FTMP6>
+ <DEAD FTMP6>
+ <CALL '\1aFREE-TEMP 1>
+ <RETURN 'T>
+PHRASE8
+ <FRAME '\1aPREV-FRAME>
+ <NTHUV SYM4 10 = STACK>
+ <CALL '\1aPREV-FRAME 1>
+ <FRAME '\1aUSE-TEMP>
+ <NTHUV SYM4 10 = STACK (TYPE TEMP)>
+ <DEAD SYM4>
+ <CALL '\1aUSE-TEMP 1>
+ <RETURN 'T>
+ <END \1aBIND-B>
+" Do code generation for normal arguments."
+
+#WORD *4177374232*
+<GFCN \1aNORM-B ("VALUE" ATOM SYMTAB) SYM4>
+ <TEMP TEMP7>
+ <INTGO>
+ <NTHUV SYM4 3 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
+ <DEAD TEMP7>
+ <FRAME '\1aSPECIAL-BINDING>
+ <PUSH SYM4>
+ <PUSH %<>>
+ <NTHUV SYM4 10 = STACK>
+ <DEAD SYM4>
+ <CALL '\1aSPECIAL-BINDING 3>
+ <GEN-LVAL 'STK = TEMP7>
+ <ADD TEMP7 9 = TEMP7 (TYPE FIX)>
+ <GEN-SET 'STK TEMP7>
+ <DEAD TEMP7>
+PHRASE6
+ <RETURN 'T>
+ <END \1aNORM-B>
+" Initialized optional argument binder."
+
+#WORD *37501164407*
+<GFCN \1aOPT1-B ("VALUE" <OR ATOM FALSE> SYMTAB) SYM4>
+ <TEMP TEMP10>
+ <INTGO>
+ <NTHUV SYM4 3 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG13>
+ <DEAD TEMP10>
+ <NTHUV SYM4 9 = TEMP10 (TYPE NODE)>
+ <NTHUV TEMP10 1 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP10 2 - TAG12 (TYPE FIX)>
+ <RETURN %<>>
+TAG12
+ <VEQUAL? TEMP10 10 - TAG13 (TYPE FIX)>
+ <DEAD TEMP10>
+ <RETURN %<>>
+TAG13
+ <FRAME '\1aOPTBIND>
+ <PUSH SYM4>
+ <NTHUV SYM4 9 = STACK (TYPE NODE)>
+ <DEAD SYM4>
+ <CALL '\1aOPTBIND 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aOPT1-B>
+" Uninitialized optional argument binder."
+
+#WORD *3414757261*
+<GFCN \1aOPT2-B ("VALUE" ATOM SYMTAB) SYM4>
+ <TEMP TEMP7>
+ <INTGO>
+ <NTHUV SYM4 3 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
+ <DEAD TEMP7>
+ <FRAME '\1aOPTBIND>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aOPTBIND 1>
+PHRASE6
+ <RETURN 'T>
+ <END \1aOPT2-B>
+" Create a binding for either intitialized or unitialized optional."
+
+#WORD *14505637637*
+<GFCN \1aOPTBIND ("VALUE" ATOM SYMTAB "OPTIONAL" NODE) SYM6 DVAL7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP GIVE8:ATOM DEF9 TMP11:TEMP>
+ <INTGO>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = GIVE8>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0>
+ <NTHUV SYM6 3 = DEF9>
+ <TYPE? DVAL7 <TYPE-CODE UNBOUND> - BOOL18>
+ <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE17>
+BOOL18
+ <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE20>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = TMP11>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <PUSH TMP11>
+ <PUSH 0>
+ <CALL '\1aIEMIT 3>
+PHRASE20
+ <FRAME '\1aTEST-ARG>
+ <NTHUV SYM6 10 = STACK (TYPE TEMP)>
+ <PUSH GIVE8>
+ <CALL '\1aTEST-ARG 2>
+ <TYPE? DVAL7 <TYPE-CODE UNBOUND> + PHRASE25>
+ <FRAME '\1aGEN>
+ <PUSH DVAL7>
+ <DEAD DVAL7>
+ <NTHUV SYM6 10 = STACK>
+ <CALL '\1aGEN 2>
+PHRASE25
+ <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE28>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <PUSH TMP11>
+ <PUSH 1>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aFREE-TEMP>
+ <NTHUV SYM6 10 = STACK>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+PHRASE28
+ <FRAME '\1aLABEL-TAG>
+ <PUSH GIVE8>
+ <DEAD GIVE8>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE17
+ <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD DEF9>
+ <FRAME '\1aSPECIAL-BINDING>
+ <PUSH SYM6>
+ <PUSH %<>>
+ <NTHUV SYM6 10 = STACK>
+ <DEAD SYM6>
+ <CALL '\1aSPECIAL-BINDING 3>
+ <GEN-LVAL 'STK = DEF9>
+ <ADD DEF9 9 = DEF9 (TYPE FIX)>
+ <GEN-SET 'STK DEF9>
+ <DEAD DEF9>
+ <FRAME '\1aIEMIT>
+ <PUSH '`VEQUAL?>
+ <PUSH TMP11>
+ <PUSH 0>
+ <PUSH '+>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = DEF9>
+ <PUSH DEF9>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aGEN-FIX-BIND>
+ <CALL '\1aGEN-FIX-BIND 0>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH DEF9>
+ <DEAD DEF9>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TMP11>
+ <DEAD TMP11>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE33
+ <RETURN 'T>
+ <END \1aOPTBIND>
+" Do a binding for a named activation."
+
+#WORD *5356220577*
+<GFCN \1aACT-B ("VALUE" ATOM SYMTAB) SYM4>
+ <TEMP TEMP9 FTMP6>
+ <INTGO>
+ <NTHUV SYM4 3 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD TEMP9>
+ <FRAME '\1aCURRENT-FRAME>
+ <CALL '\1aCURRENT-FRAME 0 = FTMP6>
+ <FRAME '\1aSPECIAL-BINDING>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <PUSH FTMP6>
+ <CALL '\1aSPECIAL-BINDING 3>
+ <GEN-LVAL 'STK = TEMP9>
+ <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
+ <GEN-SET 'STK TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH FTMP6>
+ <DEAD FTMP6>
+ <CALL '\1aFREE-TEMP 1>
+ <GEN-LVAL 'BASEF = TEMP9>
+ <PUTUV TEMP9 12 'T>
+ <DEAD TEMP9>
+ <RETURN 'T>
+PHRASE8
+ <GEN-LVAL 'BASEF = TEMP9>
+ <NTHUV TEMP9 12 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL20>
+ <DEAD TEMP9>
+ <FRAME '\1aACTIV?>
+ <GEN-LVAL 'BASEF = TEMP9>
+ <NTHUV TEMP9 10 = STACK (TYPE LIST)>
+ <DEAD TEMP9>
+ <CALL '\1aACTIV? 1 = TEMP9>
+ <VEQUAL? TEMP9 0 + PHRASE19>
+ <DEAD TEMP9>
+BOOL20
+ <GEN-LVAL 'BASEF = TEMP9>
+ <PUTUV TEMP9 12 'T>
+ <DEAD TEMP9>
+ <FRAME '\1aCURRENT-FRAME>
+ <NTHUV SYM4 10 = STACK>
+ <CALL '\1aCURRENT-FRAME 1>
+ <FRAME '\1aUSE-TEMP>
+ <NTHUV SYM4 10 = STACK (TYPE TEMP)>
+ <DEAD SYM4>
+ <CALL '\1aUSE-TEMP 1>
+PHRASE19
+ <RETURN 'T>
+ <END \1aACT-B>
+" Bind an \"AUX\" variable."
+
+#WORD *35401215260*
+<GFCN \1aAUX1-B ("VALUE" ATOM SYMTAB "OPTIONAL" ANY) SYM6 FORCE-INIT7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TMP8 NOD12:NODE TY9 PT10>
+ <INTGO>
+ <NTHUV SYM6 10 = TMP8>
+ <NTHUV SYM6 9 = NOD12 (TYPE NODE)>
+ <FRAME '\1aISTYPE?>
+ <NTHUV SYM6 18 = STACK>
+ <CALL '\1aISTYPE? 1 = TY9>
+ <TYPE? TY9 <TYPE-CODE FALSE> + BOOL14>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH TY9>
+ <CALL '\1aTYPEPRIM 1 = PT10>
+ <EQUAL? PT10 'FIX + BOOL16>
+ <EQUAL? PT10 'WORD + BOOL16>
+ <EQUAL? PT10 'LIST - BOOL14>
+ <DEAD PT10>
+BOOL16
+ <NTHUV SYM6 12 = PT10>
+ <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD PT10>
+BOOL14
+ <SET TY9 %<> (TYPE FALSE)>
+PHRASE19
+ <NTHUV SYM6 3 = PT10>
+ <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD PT10>
+ <FRAME '\1aSPECIAL-BINDING>
+ <PUSH SYM6>
+ <DEAD SYM6>
+ <PUSH 'T>
+ <FRAME '\1aGEN>
+ <PUSH NOD12>
+ <DEAD NOD12>
+ <CALL '\1aGEN 1 = TMP8>
+ <PUSH TMP8>
+ <CALL '\1aSPECIAL-BINDING 3>
+ <GEN-LVAL 'STK = PT10>
+ <ADD PT10 9 = PT10 (TYPE FIX)>
+ <GEN-SET 'STK PT10>
+ <DEAD PT10>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TMP8>
+ <DEAD TMP8>
+ <CALL '\1aFREE-TEMP 1>
+ <RETURN 'T>
+PHRASE21
+ <TYPE? FORCE-INIT7 <TYPE-CODE FALSE> - PHRASE29>
+ <DEAD FORCE-INIT7>
+ <NTHUV NOD12 1 = PT10 (TYPE FIX)>
+ <VEQUAL? PT10 2 - PHRASE29 (TYPE FIX)>
+ <DEAD PT10>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH TMP8>
+ <PUSH TY9>
+ <CALL '\1aUSE-TEMP 2>
+ <TYPE? TY9 <TYPE-CODE FALSE> + PHRASE33>
+ <NTHUV TMP8 1 = STACK (TYPE ATOM)>
+ <DEAD TMP8>
+ <PUSH TY9>
+ <DEAD TY9>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = PT10>
+ <CHTYPE PT10 <TYPE-CODE ADECL> = PT10>
+ <JUMP + PHRASE35>
+PHRASE33
+ <NTHUV TMP8 1 = PT10 (TYPE ATOM)>
+ <DEAD TMP8>
+PHRASE35
+ <CONS PT10 () = PT10>
+ <FRAME '\1aATOMCHK>
+ <NTHUV NOD12 4 = STACK>
+ <DEAD NOD12>
+ <CALL '\1aATOMCHK 1 = TMP8>
+ <CONS TMP8 () = TMP8>
+ <PUTREST PT10 TMP8>
+ <DEAD TMP8>
+ <GEN-SET 'T-NAME PT10>
+ <DEAD PT10>
+ <RETURN 'T>
+PHRASE29
+ <TYPE? TY9 <TYPE-CODE FALSE> + PHRASE42>
+ <NTHUV TMP8 1 = STACK (TYPE ATOM)>
+ <DEAD TMP8>
+ <PUSH TY9>
+ <DEAD TY9>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = PT10>
+ <CHTYPE PT10 <TYPE-CODE ADECL> = PT10>
+ <GEN-SET 'T-NAME PT10>
+ <DEAD PT10>
+PHRASE42
+ <FRAME '\1aGEN>
+ <PUSH NOD12>
+ <DEAD NOD12>
+ <NTHUV SYM6 10 = STACK>
+ <DEAD SYM6>
+ <CALL '\1aGEN 2>
+ <RETURN 'T>
+ <END \1aAUX1-B>
+" Do a binding for an uninitialized \"AUX\" "
+
+#WORD *15246034310*
+<GFCN \1aAUX2-B ("VALUE" <OR ATOM !<FALSE> FIX> SYMTAB ANY) SYM4 FP5>
+ <TEMP TEMP9>
+ <INTGO>
+ <NTHUV SYM4 3 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD TEMP9>
+ <FRAME '\1aSPECIAL-BINDING>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <CALL '\1aSPECIAL-BINDING 2>
+ <GEN-LVAL 'STK = TEMP9>
+ <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
+ <GEN-SET 'STK TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE8
+ <TYPE? FP5 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD FP5>
+ <NTHUV SYM4 12 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD TEMP9>
+ <FRAME '\1aSET-SYM>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <GVAL 'THE-UNBOUND = STACK>
+ <PUSH 'T>
+ <CALL '\1aSET-SYM 3>
+ <RETURN 'T>
+PHRASE15
+ <NTHUV SYM4 12 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE19>
+ <NTHUV SYM4 10 = TEMP9 (TYPE TEMP)>
+ <DEAD SYM4>
+ <PUTUV TEMP9 4 %<>>
+ <PUTUV TEMP9 2 0 (TYPE FIX)>
+ <DEAD TEMP9>
+ <SET TEMP9 %<> (TYPE FALSE)>
+PHRASE19
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aAUX2-B>
+" Do a \"TUPLE\" binding."
+
+#WORD *16453444313*
+<GFCN \1aTUPL-B ("VALUE" ATOM SYMTAB) SYM4>
+ <TEMP TMP1-5 TEMP10>
+ <INTGO>
+ <NTHUV SYM4 10 = TMP1-5>
+ <FRAME '\1aGET-ARG-TUPLE>
+ <PUSH TMP1-5>
+ <CALL '\1aGET-ARG-TUPLE 1>
+ <NTHUV SYM4 3 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
+ <DEAD TEMP10>
+ <FRAME '\1aSPECIAL-BINDING>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH 'T>
+ <PUSH TMP1-5>
+ <DEAD TMP1-5>
+ <CALL '\1aSPECIAL-BINDING 3>
+ <GEN-LVAL 'STK = TEMP10>
+ <ADD TEMP10 9 = TEMP10 (TYPE FIX)>
+ <GEN-SET 'STK TEMP10>
+ <DEAD TEMP10>
+PHRASE9
+ <RETURN 'T>
+ <END \1aTUPL-B>
+" Dispatch table for binding generation code."
+
+#WORD *21301774502*
+<GFCN \1aBIND-GENERATE ("VALUE" <OR ATOM FALSE FIX> SYMTAB ANY) SYM4 FORPROG5>
+ <TEMP COD6>
+ <INTGO>
+ <NTHUV SYM4 4 = COD6 (TYPE FIX)>
+ <DISPATCH COD6 1 CASE9 CASE10 CASE11 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASE18 CASE19 CASE20 CASE21>
+ <DEAD COD6>
+ <RETURN %<>>
+CASE9
+ <FRAME '\1aACT-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aACT-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE10
+ <FRAME '\1aAUX1-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH FORPROG5>
+ <DEAD FORPROG5>
+ <CALL '\1aAUX1-B 2 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE11
+ <FRAME '\1aAUX2-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <PUSH FORPROG5>
+ <DEAD FORPROG5>
+ <CALL '\1aAUX2-B 2 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE12
+ <FRAME '\1aTUPL-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aTUPL-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE13
+ <FRAME '\1aNORM-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE14
+ <FRAME '\1aOPT1-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aOPT1-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE15
+ <FRAME '\1aOPT1-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aOPT1-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE16
+ <FRAME '\1aOPT2-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aOPT2-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE17
+ <FRAME '\1aOPT2-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aOPT2-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE18
+ <FRAME '\1aNORM-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE19
+ <FRAME '\1aBIND-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aBIND-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE20
+ <FRAME '\1aNORM-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+CASE21
+ <FRAME '\1aNORM-B>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-B 1 = COD6>
+ <RETURN COD6>
+ <DEAD COD6>
+ <END \1aBIND-GENERATE>
+" Appliacation of a form could still be an NTH."
+
+#WORD *626521543*
+<GFCN \1aFORM-F-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP K6:LIST TEMP11 TY7>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aISTYPE?>
+ <NTHL K6 1 = TEMP11 (TYPE NODE)>
+ <NTHUV TEMP11 3 = TY7>
+ <DEAD TEMP11>
+ <PUSH TY7>
+ <CALL '\1aISTYPE? 1 = TEMP11>
+ <VEQUAL? TEMP11 'FIX - PHRASE9>
+ <DEAD TEMP11>
+ <PUTUV NOD4 4 'INTH>
+ <NTHUV NOD4 9 = TEMP11>
+ <PUTUV NOD4 1 TEMP11>
+ <DEAD TEMP11>
+ <GVAL 'NTH = TEMP11>
+ <PUTUV NOD4 9 TEMP11>
+ <DEAD TEMP11>
+ <NTHUV NOD4 1 = TEMP11 (TYPE FIX)>
+ <VEQUAL? TEMP11 79 + BOOL14 (TYPE FIX)>
+ <DEAD TEMP11>
+ <NTHUV NOD4 1 = TEMP11 (TYPE FIX)>
+ <VEQUAL? TEMP11 27 - PHRASE13 (TYPE FIX)>
+ <DEAD TEMP11>
+BOOL14
+ <NTHL K6 1 = TEMP11>
+ <CONS TEMP11 () = TEMP11>
+ <RESTL K6 1 = TY7 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL TY7 1 = TY7>
+ <CONS TY7 TEMP11 = K6>
+ <DEAD TY7 TEMP11>
+PHRASE13
+ <PUTUV NOD4 5 K6 (TYPE LIST)>
+ <DEAD K6>
+ <FRAME '\1aGEN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <CALL '\1aGEN 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE9
+ <TYPE? TY7 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TY7>
+ <FRAME '\1aFORM-GEN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <CALL '\1aFORM-GEN 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE17
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Non-applicabe object type ">
+ <NTHUV NOD4 4 = STACK>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 3 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aFORM-F-GEN>
+" Generate a call to EVAL for uncompilable FORM."
+
+#WORD *6517466001*
+<GFCN \1aFORM-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP>
+ <INTGO>
+ <EQUAL? WHERE5 'DONT-CARE - PHRASE7>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = WHERE5>
+PHRASE7
+ <FRAME '\1aSTART-FRAME>
+ <PUSH 'EVAL>
+ <CALL '\1aSTART-FRAME 1>
+ <FRAME '\1aPUSH>
+ <FRAME '\1aREFERENCE>
+ <NTHUV NOD4 4 = STACK>
+ <DEAD NOD4>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <CALL '\1aPUSH 1>
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH 'EVAL>
+ <PUSH 1>
+ <PUSH WHERE5>
+ <CALL '\1aMSUBR-CALL 3>
+ <RETURN WHERE5>
+ <DEAD WHERE5>
+ <END \1aFORM-GEN>
+" Generate code for LIST/VECTOR etc. evaluation."
+
+<GDECL (COPIERS) <UVECTOR [REST ATOM]>>
+
+#WORD *15031765770*
+<GFCN \1aCOPY-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP (I6:FIX 0) ARGS7:LIST TEMP3:LBIND TEMP18 INAME10 SEGTMP11 TEMP22 STACK?16 TEMP35 N37:NODE>
+ <INTGO>
+ <NTHUV NOD4 5 = ARGS7 (TYPE LIST)>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP18>
+ <BBIND 'SEGLABEL 'ANY 'FIX TEMP18>
+ <DEAD TEMP18>
+ <NTHUV NOD4 4 = INAME10>
+ <BBIND 'COUNTMP 'ANY 'FIX>
+ <BBIND 'SEGCALLED 'ANY 'FIX %<>>
+ <NTHUV NOD4 2 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE NODE> - TAG25>
+ <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
+ <VEQUAL? TEMP22 98 - TAG23 (TYPE FIX)>
+ <DEAD TEMP22>
+ <SET TEMP18 'T (TYPE ATOM)>
+ <JUMP + TAG27>
+TAG23
+ <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
+ <VEQUAL? TEMP22 37 - TAG25 (TYPE FIX)>
+ <DEAD TEMP22>
+ <NTHUV TEMP18 2 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE NODE> - TAG25>
+ <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
+ <DEAD TEMP18>
+ <VEQUAL? TEMP22 98 - TAG25 (TYPE FIX)>
+ <DEAD TEMP22>
+ <SET TEMP18 'T (TYPE ATOM)>
+ <JUMP + TAG27>
+TAG25
+ <EQUAL? INAME10 'TUPLE - TAG26>
+ <SET TEMP18 'T (TYPE ATOM)>
+ <JUMP + TAG27>
+TAG26
+ <SET TEMP18 %<> (TYPE FALSE)>
+TAG27
+ <SET STACK?16 TEMP18>
+ <DEAD TEMP18>
+ <SET TEMP35 0 (TYPE FIX)>
+ <SET TEMP18 ARGS7 (TYPE LIST)>
+ <LOOP>
+MAP29
+ <INTGO>
+ <EMPL? TEMP18 + MAPAP32>
+ <NTHL TEMP18 1 = N37>
+ <NTHUV N37 1 = TEMP22 (TYPE FIX)>
+ <DEAD N37>
+ <VEQUAL? TEMP22 3 - PHRASE39 (TYPE FIX)>
+ <DEAD TEMP22>
+ <SET TEMP22 0 (TYPE FIX)>
+ <JUMP + PHRASE41>
+PHRASE39
+ <SET TEMP22 1 (TYPE FIX)>
+PHRASE41
+ <ADD TEMP35 TEMP22 = TEMP35>
+ <DEAD TEMP22>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <JUMP + MAP29>
+MAPAP32
+ <SET I6 TEMP35>
+ <DEAD TEMP35>
+ <LOOP>
+AGAIN46
+ <INTGO>
+ <EMPL? ARGS7 + EXIT44 (TYPE LIST)>
+ <NTHL ARGS7 1 = N37 (TYPE NODE)>
+ <NTHUV N37 1 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 3 - PHRASE50 (TYPE FIX)>
+ <DEAD TEMP35>
+ <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> - PHRASE52>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = SEGTMP11>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = TEMP35>
+ <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
+ <DEAD TEMP22 TEMP35>
+ <FRAME '\1aSET-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <PUSH I6>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aSET-TEMP 3>
+PHRASE52
+ <FRAME '\1aGEN>
+ <NTHUV N37 5 = TEMP35 (TYPE LIST)>
+ <DEAD N37>
+ <NTHL TEMP35 1 = N37 (TYPE NODE)>
+ <DEAD TEMP35>
+ <PUSH N37>
+ <PUSH SEGTMP11>
+ <CALL '\1aGEN 2 = TEMP18>
+ <FRAME '\1aSTRUCTYP-SEG>
+ <NTHUV N37 3 = STACK>
+ <CALL '\1aSTRUCTYP-SEG 1 = TEMP22>
+ <NTHUV NOD4 4 = TEMP35>
+ <EQUAL? TEMP35 'LIST - PHRASE63>
+ <DEAD TEMP35>
+ <RESTL ARGS7 1 = TEMP35 (TYPE LIST)>
+ <EMPL? TEMP35 - PHRASE63 (TYPE LIST)>
+ <DEAD TEMP35>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL65>
+ <EQUAL? TEMP22 'LIST - PHRASE63>
+BOOL65
+ <GVAL 'NO-DATUM = TEMP35>
+ <EQUAL? TEMP35 TEMP18 + PHRASE63>
+ <DEAD TEMP35>
+ <EQUAL? WHERE5 'DONT-CARE - PHRASE67>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'LIST>
+ <CALL '\1aGEN-TEMP 1 = WHERE5>
+ <JUMP + PHRASE69>
+PHRASE67
+ <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE69>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE5>
+ <PUSH 'LIST>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE69
+ <FRAME '\1aSEGMENT-LIST>
+ <PUSH SEGTMP11>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <PUSH WHERE5>
+ <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <CALL '\1aSEGMENT-LIST 6>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGTMP11>
+ <DEAD SEGTMP11>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE192>
+PHRASE63
+ <GVAL 'NO-DATUM = TEMP35>
+ <EQUAL? TEMP35 TEMP18 + PHRASE80>
+ <DEAD TEMP35 TEMP18>
+ <EQUAL? TEMP22 'MULTI + PHRASE80>
+ <FRAME '\1aSEGMENT-STACK>
+ <PUSH SEGTMP11>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N37 3 = STACK>
+ <DEAD N37>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <CALL '\1aSEGMENT-STACK 5>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP35>
+ <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
+ <DEAD TEMP22 TEMP35>
+ <JUMP + PHRASE100>
+PHRASE80
+ <NTHR 'SEGCALLED 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE100>
+ <DEAD TEMP35>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP35>
+ <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
+ <DEAD TEMP22 TEMP35>
+ <JUMP + PHRASE100>
+PHRASE50
+ <FRAME '\1aGEN>
+ <NTHL ARGS7 1 = STACK (TYPE NODE)>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+PHRASE100
+ <RESTL ARGS7 1 = ARGS7 (TYPE LIST)>
+ <JUMP + AGAIN46>
+EXIT44
+ <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE106>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGTMP11>
+ <CALL '\1aFREE-TEMP 1>
+ <TYPE? STACK?16 <TYPE-CODE FALSE> - PHRASE106>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE106
+ <EQUAL? WHERE5 'DONT-CARE - PHRASE111>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH INAME10>
+ <CALL '\1aGEN-TEMP 1 = WHERE5>
+ <JUMP + PHRASE113>
+PHRASE111
+ <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE113>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE5>
+ <PUSH INAME10>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE113
+ <EQUAL? INAME10 'VECTOR - PHRASE116>
+ <FRAME '\1aGEN-VECTOR>
+ <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE119>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE122>
+PHRASE119
+ <SET TEMP35 I6>
+PHRASE122
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <PUSH WHERE5>
+ <PUSH STACK?16>
+ <CALL '\1aGEN-VECTOR 3>
+ <JUMP + PHRASE144>
+PHRASE116
+ <EQUAL? INAME10 'LIST - PHRASE123>
+ <FRAME '\1aGEN-LIST>
+ <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE126>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE129>
+PHRASE126
+ <SET TEMP35 I6>
+PHRASE129
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <PUSH WHERE5>
+ <CALL '\1aGEN-LIST 2>
+ <JUMP + PHRASE144>
+PHRASE123
+ <EQUAL? INAME10 'UVECTOR - PHRASE130>
+ <FRAME '\1aGEN-UVECTOR>
+ <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE133>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE136>
+PHRASE133
+ <SET TEMP35 I6>
+PHRASE136
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <PUSH WHERE5>
+ <PUSH STACK?16>
+ <CALL '\1aGEN-UVECTOR 3>
+ <JUMP + PHRASE144>
+PHRASE130
+ <EQUAL? INAME10 'TUPLE - PHRASE137>
+ <FRAME '\1aGEN-TUPLE>
+ <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE140>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE143>
+PHRASE140
+ <SET TEMP35 I6>
+PHRASE143
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <PUSH WHERE5>
+ <CALL '\1aGEN-TUPLE 2>
+ <JUMP + PHRASE144>
+PHRASE137
+ <FRAME '\1aERROR>
+ <PUSH "NOT READY YET">
+ <CALL '\1aERROR 1>
+PHRASE144
+ <TYPE? STACK?16 <TYPE-CODE FALSE> + PHRASE192>
+ <DEAD STACK?16>
+ <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE149>
+ <DEAD SEGTMP11>
+ <EQUAL? INAME10 'UVECTOR + PHRASE151>
+ <DEAD INAME10>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LSH>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <PUSH 1>
+ <PUSH '=>
+ <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP22 2 = TEMP22 (TYPE FIX)>
+ <GRTR? TEMP22 1 + TAG159 (TYPE FIX)>
+ <DEAD TEMP22>
+ <SET TEMP35 %<> (TYPE FALSE)>
+ <JUMP + PHRASE156>
+TAG159
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = TEMP35>
+ <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+PHRASE156
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <CALL '\1aIEMIT 5>
+PHRASE151
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP35>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <GEN-ASSIGNED? 'STKTMP - PHRASE172>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <GEN-LVAL 'STKTMP = STACK>
+ <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <PUSH '=>
+ <GEN-LVAL 'STKTMP = STACK>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE180>
+PHRASE172
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <NTHR 'COUNTMP 2 = TEMP18 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP18 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP18>
+ <PUSH '=>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = TEMP18>
+ <GEN-SET 'STKTMP TEMP18>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <CALL '\1aIEMIT 5>
+PHRASE180
+ <GEN-LVAL 'STK = TEMP18>
+ <ADD TEMP18 2 = TEMP18 (TYPE FIX)>
+ <GEN-SET 'STK TEMP18>
+ <DEAD TEMP18>
+ <JUMP + PHRASE192>
+PHRASE149
+ <GEN-LVAL 'STK = TEMP18>
+ <EQUAL? INAME10 'UVECTOR + PHRASE198>
+ <DEAD INAME10>
+ <LSH I6 1 = I6 (TYPE FIX)>
+PHRASE198
+ <ADD TEMP18 I6 = TEMP18 (TYPE FIX)>
+ <DEAD I6>
+ <ADD TEMP18 2 = TEMP18 (TYPE FIX)>
+ <GEN-SET 'STK TEMP18>
+ <DEAD TEMP18>
+PHRASE192
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN WHERE5>
+ <DEAD WHERE5>
+ <END \1aCOPY-GEN>
+"Generate code for a call to a SUBR."
+
+#WORD *31706506554*
+<GFCN \1aSUBR-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP N6>
+ <INTGO>
+ <NTHUV NOD4 2 = N6>
+ <TYPE? N6 <TYPE-CODE NODE> - PHRASE9>
+ <NTHUV N6 1 = N6 (TYPE FIX)>
+ <VEQUAL? N6 3 - PHRASE9 (TYPE FIX)>
+ <DEAD N6>
+ <FRAME '\1aSTRUCTYP-SEG>
+ <NTHUV NOD4 3 = STACK>
+ <CALL '\1aSTRUCTYP-SEG 1 = N6>
+ <EQUAL? N6 'MULTI + BOOL12>
+ <TYPE? N6 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD N6>
+BOOL12
+ <GEN-SET 'SEGCALLED 'T>
+ <FRAME '\1aCOMP-SUBR-CALL>
+ <PUSH NOD4>
+ <NTHUV NOD4 5 = STACK (TYPE LIST)>
+ <DEAD NOD4>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <GEN-LVAL 'COUNTMP = STACK>
+ <GEN-LVAL 'SEGLABEL = STACK>
+ <CALL '\1aCOMP-SUBR-CALL 5 = N6>
+ <RETURN N6>
+ <DEAD N6>
+PHRASE9
+ <FRAME '\1aCOMP-SUBR-CALL>
+ <PUSH NOD4>
+ <NTHUV NOD4 5 = STACK (TYPE LIST)>
+ <DEAD NOD4>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCOMP-SUBR-CALL 5 = N6>
+ <RETURN N6>
+ <DEAD N6>
+ <END \1aSUBR-GEN>
+" Compile call to a SUBR that doesn't compile or PUSHJ."
+
+#WORD *1577076423*
+<GFCN \1aCOMP-SUBR-CALL ("VALUE" ANY NODE <LIST [REST NODE]> ANY ANY ANY) N4 OBJ5 W6 PARENT-COUNT7 PARENT-LABEL8>
+ <TEMP (I9:FIX 0) SEGTMP10 TEMP3:LBIND TEMP20 SUBR14 (SLNT17 0) TEMP26 TEMP42 N44:NODE TEMP52>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'COUNTMP 'ANY 'FIX>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP20>
+ <BBIND 'SEGLABEL 'ANY 'FIX TEMP20>
+ <DEAD TEMP20>
+ <NTHUV N4 4 = SUBR14>
+ <BBIND 'SEGCALLED 'ANY 'FIX %<>>
+ <NTHUV N4 2 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE NODE> + TAG23>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + TAG33>
+TAG23
+ <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
+ <VEQUAL? TEMP26 98 - TAG27 (TYPE FIX)>
+ <DEAD TEMP26>
+ <SET TEMP20 'T (TYPE ATOM)>
+ <JUMP + TAG33>
+TAG27
+ <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
+ <VEQUAL? TEMP26 37 + TAG29 (TYPE FIX)>
+ <DEAD TEMP26>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + TAG33>
+TAG29
+ <NTHUV TEMP20 2 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE NODE> + TAG30>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <JUMP + TAG33>
+TAG30
+ <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
+ <DEAD TEMP20>
+ <VEQUAL? TEMP26 98 - TAG32 (TYPE FIX)>
+ <DEAD TEMP26>
+ <SET TEMP20 'T (TYPE ATOM)>
+ <JUMP + TAG33>
+TAG32
+ <SET TEMP20 %<> (TYPE FALSE)>
+TAG33
+ <SET TEMP42 0 (TYPE FIX)>
+ <SET TEMP26 OBJ5 (TYPE LIST)>
+ <LOOP>
+MAP35
+ <INTGO>
+ <EMPL? TEMP26 + MAPAP38>
+ <NTHL TEMP26 1 = N44>
+ <NTHUV N44 1 = I9 (TYPE FIX)>
+ <VEQUAL? I9 3 - PHRASE46 (TYPE FIX)>
+ <DEAD I9>
+ <SET SLNT17 %<> (TYPE FALSE)>
+ <SET I9 0 (TYPE FIX)>
+ <JUMP + PHRASE48>
+PHRASE46
+ <EQUAL? SUBR14 'STRING - PHRASE50>
+ <TYPE? SLNT17 <TYPE-CODE FIX> - PHRASE50>
+ <NTHUV N44 1 = TEMP52 (TYPE FIX)>
+ <VEQUAL? TEMP52 2 - PHRASE50 (TYPE FIX)>
+ <DEAD TEMP52>
+ <NTHUV N44 4 = TEMP52>
+ <DEAD N44>
+ <LENUS TEMP52 = TEMP52 (TYPE FIX)>
+ <ADD TEMP52 SLNT17 = SLNT17 (TYPE FIX)>
+ <DEAD TEMP52>
+ <JUMP + PHRASE53>
+PHRASE50
+ <SET SLNT17 %<> (TYPE FALSE)>
+PHRASE53
+ <SET I9 1 (TYPE FIX)>
+PHRASE48
+ <ADD TEMP42 I9 = TEMP42>
+ <DEAD I9>
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <JUMP + MAP35>
+MAPAP38
+ <SET I9 TEMP42>
+ <DEAD TEMP42>
+ <SET TEMP26 [LIST VECTOR UVECTOR TUPLE BYTES STRING] (TYPE VECTOR)>
+ <TYPE? SUBR14 <TYPE-CODE ATOM> - TAG56>
+ <LOOP (SUBR14 VALUE) (TEMP26 LENGTH VALUE)>
+TAG57
+ <NTHUV TEMP26 1 = TEMP42>
+ <VEQUAL? TEMP42 SUBR14 + PHRASE63>
+ <DEAD TEMP42>
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <EMPUV? TEMP26 - TAG57>
+TAG56
+ <TYPE? PARENT-COUNT7 <TYPE-CODE FALSE> + PHRASE60>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SFRAME>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH SUBR14>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aIEMIT 2>
+ <JUMP + PHRASE63>
+PHRASE60
+ <FRAME '\1aSTART-FRAME>
+ <PUSH SUBR14>
+ <CALL '\1aSTART-FRAME 1>
+PHRASE63
+ <SET TEMP26 OBJ5 (TYPE LIST)>
+ <DEAD OBJ5>
+ <LOOP>
+MAP66
+ <INTGO>
+ <EMPL? TEMP26 + MAPAP69>
+ <NTHL TEMP26 1 = N44>
+ <NTHUV N44 1 = TEMP52 (TYPE FIX)>
+ <VEQUAL? TEMP52 3 - PHRASE74 (TYPE FIX)>
+ <DEAD TEMP52>
+ <TYPE? SEGTMP10 <TYPE-CODE UNBOUND> - PHRASE76>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = SEGTMP10>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP52>
+ <NTHR 'COUNTMP 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP42 1 TEMP52 (RECORD-TYPE LBIND)>
+ <DEAD TEMP42 TEMP52>
+ <FRAME '\1aSET-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP52>
+ <PUSH I9>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aSET-TEMP 3>
+PHRASE76
+ <FRAME '\1aGEN>
+ <NTHUV N44 5 = TEMP52 (TYPE LIST)>
+ <DEAD N44>
+ <NTHL TEMP52 1 = N44 (TYPE NODE)>
+ <DEAD TEMP52>
+ <PUSH N44>
+ <PUSH SEGTMP10>
+ <CALL '\1aGEN 2 = TEMP42>
+ <GVAL 'NO-DATUM = TEMP52>
+ <EQUAL? TEMP52 TEMP42 + PHRASE87>
+ <DEAD TEMP52 TEMP42>
+ <FRAME '\1aSTRUCTYP-SEG>
+ <NTHUV N44 3 = STACK>
+ <CALL '\1aSTRUCTYP-SEG 1 = TEMP52>
+ <EQUAL? TEMP52 'MULTI + PHRASE87>
+ <DEAD TEMP52>
+ <FRAME '\1aSEGMENT-STACK>
+ <PUSH SEGTMP10>
+ <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP52>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV N44 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = STACK>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N44 3 = STACK>
+ <DEAD N44>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP52>
+ <CALL '\1aSEGMENT-STACK 5>
+ <JUMP + PHRASE97>
+PHRASE87
+ <NTHR 'SEGCALLED 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP52 1 = TEMP52 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE97>
+ <DEAD TEMP52>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP52>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE97
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP52>
+ <NTHR 'SEGLABEL 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP42 1 TEMP52 (RECORD-TYPE LBIND)>
+ <DEAD TEMP42 TEMP52>
+ <JUMP + PHRASE106>
+PHRASE74
+ <FRAME '\1aGEN>
+ <PUSH N44>
+ <DEAD N44>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+PHRASE106
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <JUMP + MAP66>
+MAPAP69
+ <TYPE? SEGTMP10 <TYPE-CODE UNBOUND> + PHRASE112>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGTMP10>
+ <DEAD SEGTMP10>
+ <CALL '\1aFREE-TEMP 1>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE112>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP26>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+PHRASE112
+ <EQUAL? W6 'DONT-CARE - PHRASE117>
+ <FRAME '\1aGEN-TEMP>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <CALL '\1aGEN-TEMP 1 = W6>
+ <JUMP + PHRASE119>
+PHRASE117
+ <TYPE? W6 <TYPE-CODE TEMP> - PHRASE119>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH W6>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE119
+ <TYPE? PARENT-COUNT7 <TYPE-CODE FALSE> + PHRASE122>
+ <FRAME '\1aSEG-SUBR-CALL>
+ <PUSH SUBR14>
+ <DEAD SUBR14>
+ <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP26 <TYPE-CODE UNBOUND> + PHRASE125>
+ <DEAD TEMP26>
+ <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE128>
+PHRASE125
+ <SET TEMP26 I9>
+ <DEAD I9>
+PHRASE128
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <PUSH W6>
+ <PUSH PARENT-COUNT7>
+ <DEAD PARENT-COUNT7>
+ <PUSH PARENT-LABEL8>
+ <DEAD PARENT-LABEL8>
+ <CALL '\1aSEG-SUBR-CALL 5>
+ <JUMP + PHRASE129>
+PHRASE122
+ <FRAME '\1aSMSUBR-CALL>
+ <PUSH SUBR14>
+ <DEAD SUBR14>
+ <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP26 <TYPE-CODE UNBOUND> + PHRASE132>
+ <DEAD TEMP26>
+ <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE135>
+PHRASE132
+ <SET TEMP26 I9>
+ <DEAD I9>
+PHRASE135
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <PUSH W6>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <PUSH SLNT17>
+ <DEAD SLNT17>
+ <CALL '\1aSMSUBR-CALL 5>
+PHRASE129
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN W6>
+ <DEAD W6>
+ <END \1aCOMP-SUBR-CALL>
+"\f"
+
+#WORD *3576772202*
+<GFCN \1aSEGMENT-STACK ("VALUE" <LIST ANY> ANY ANY ANY ANY "OPTIONAL" ANY) SEGTMP6 COUNTMP7 SEGTYP8 SEGTYP2-9 TG1-10>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <TEMP TG2-11 TEMP20:LIST TEMP21:ATOM>
+ <INTGO>
+ <TYPE? TG1-10 <TYPE-CODE UNBOUND> - TAG13>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG1-10>
+TAG13
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG2-11>
+ <TYPE? SEGTYP8 <TYPE-CODE FALSE> - PHRASE18>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'LENGTH () = TEMP20>
+ <CONS 'VALUE TEMP20 = TEMP20>
+ <CONS 'TYPE TEMP20 = TEMP20>
+ <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
+ <CONS TEMP21 TEMP20 = STACK>
+ <DEAD TEMP21 TEMP20>
+ <CONS 'VALUE () = TEMP20>
+ <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
+ <CONS TEMP21 TEMP20 = STACK>
+ <DEAD TEMP21 TEMP20>
+ <CALL '\1aIEMIT 3>
+ <JUMP + PHRASE24>
+PHRASE18
+ <EQUAL? SEGTYP8 'LIST - PHRASE22>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'VALUE () = TEMP20>
+ <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
+ <CONS TEMP21 TEMP20 = STACK>
+ <DEAD TEMP21 TEMP20>
+ <CONS 'VALUE () = TEMP20>
+ <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
+ <CONS TEMP21 TEMP20 = STACK>
+ <DEAD TEMP21 TEMP20>
+ <CALL '\1aIEMIT 3>
+ <JUMP + PHRASE24>
+PHRASE22
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'LENGTH () = TEMP20>
+ <CONS 'VALUE TEMP20 = TEMP20>
+ <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
+ <CONS TEMP21 TEMP20 = STACK>
+ <DEAD TEMP21 TEMP20>
+ <CONS 'VALUE () = TEMP20>
+ <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
+ <CONS TEMP21 TEMP20 = STACK>
+ <DEAD TEMP21 TEMP20>
+ <CALL '\1aIEMIT 3>
+PHRASE24
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG2-11>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`INTGO>
+ <CALL '\1aIEMIT 1>
+ <TYPE? SEGTYP8 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aEMPTY-CHECK>
+ <PUSH SEGTYP8>
+ <PUSH SEGTMP6>
+ <PUSH SEGTYP2-9>
+ <PUSH 'T>
+ <PUSH TG1-10>
+ <CALL '\1aEMPTY-CHECK 5>
+ <JUMP + PHRASE31>
+PHRASE29
+ <FRAME '\1aIEMIT>
+ <PUSH '`EMPTY?>
+ <PUSH SEGTMP6>
+ <PUSH '+>
+ <PUSH TG1-10>
+ <CALL '\1aIEMIT 4>
+PHRASE31
+ <TYPE? SEGTYP8 <TYPE-CODE FALSE> + PHRASE34>
+ <FRAME '\1aNTH-DO>
+ <PUSH SEGTYP8>
+ <PUSH SEGTMP6>
+ <GVAL 'POP-STACK = STACK>
+ <PUSH 1>
+ <PUSH SEGTYP2-9>
+ <CALL '\1aNTH-DO 5>
+ <FRAME '\1aREST-DO>
+ <PUSH SEGTYP8>
+ <DEAD SEGTYP8>
+ <PUSH SEGTMP6>
+ <PUSH SEGTMP6>
+ <DEAD SEGTMP6>
+ <PUSH 1>
+ <PUSH SEGTYP2-9>
+ <DEAD SEGTYP2-9>
+ <CALL '\1aREST-DO 5>
+ <JUMP + PHRASE37>
+PHRASE34
+ <FRAME '\1aIEMIT>
+ <PUSH '`NTH1>
+ <PUSH SEGTMP6>
+ <PUSH '=>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aIEMIT 4>
+ <FRAME '\1aIEMIT>
+ <PUSH '`REST1>
+ <PUSH SEGTMP6>
+ <PUSH '=>
+ <PUSH SEGTMP6>
+ <DEAD SEGTMP6>
+ <CALL '\1aIEMIT 4>
+PHRASE37
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH COUNTMP7>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH COUNTMP7>
+ <DEAD COUNTMP7>
+ <CONS 'FIX () = TEMP20>
+ <CONS '`TYPE TEMP20 = STACK>
+ <DEAD TEMP20>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH TG2-11>
+ <DEAD TG2-11>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG1-10>
+ <DEAD TG1-10>
+ <CALL '\1aLABEL-TAG 1 = TEMP20>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+ <END \1aSEGMENT-STACK>
+#WORD *27652335472*
+<GFCN \1aSEGMENT-LIST ("VALUE" ANY ANY ANY ANY ANY "OPTIONAL" ANY ANY) SEGTMP7 COUNTMP8 LIST?9 W10 TGX11 RES12>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TG1-13 TG2-14 TG3-15 TG4-16 OTMP17:TEMP>
+ <INTGO>
+ <TYPE? TGX11 <TYPE-CODE UNBOUND> - TAG18>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TGX11>
+TAG18
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG1-13>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG2-14>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG3-15>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TG4-16>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = OTMP17>
+ <TYPE? LIST?9 <TYPE-CODE FALSE> - PHRASE27>
+ <FRAME '\1aIEMIT>
+ <PUSH '`TYPE>
+ <PUSH SEGTMP7>
+ <PUSH '=>
+ <PUSH OTMP17>
+ <CALL '\1aIEMIT 4>
+ <FRAME '\1aIEMIT>
+ <PUSH '`AND>
+ <PUSH OTMP17>
+ <PUSH 7>
+ <PUSH '=>
+ <PUSH OTMP17>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`VEQUAL?>
+ <PUSH OTMP17>
+ <PUSH 1>
+ <PUSH '+>
+ <PUSH TG1-13>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aSEGMENT-STACK>
+ <PUSH SEGTMP7>
+ <PUSH COUNTMP8>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aSEGMENT-STACK 4>
+ <FRAME '\1aGEN-LIST>
+ <PUSH COUNTMP8>
+ <PUSH W10>
+ <CALL '\1aGEN-LIST 2>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH TG2-14>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TGX11>
+ <DEAD TGX11>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aSET-TEMP>
+ <PUSH SEGTMP7>
+ <PUSH 0>
+ <CALL '\1aSET-TEMP 2>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG1-13>
+ <DEAD TG1-13>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE27
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG4-16>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`VEQUAL?>
+ <PUSH COUNTMP8>
+ <PUSH 0>
+ <PUSH '+>
+ <PUSH TG3-15>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`POP>
+ <PUSH '=>
+ <PUSH OTMP17>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aIEMIT>
+ <PUSH '`CONS>
+ <PUSH OTMP17>
+ <PUSH SEGTMP7>
+ <PUSH '=>
+ <PUSH SEGTMP7>
+ <PUSH (`TYPE LIST)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH COUNTMP8>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH COUNTMP8>
+ <DEAD COUNTMP8>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aIEMIT 6>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH TG4-16>
+ <DEAD TG4-16>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG3-15>
+ <DEAD TG3-15>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH OTMP17>
+ <DEAD OTMP17>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH SEGTMP7>
+ <DEAD SEGTMP7>
+ <PUSH W10>
+ <CALL '\1aMOVE-ARG 2>
+ <TYPE? LIST?9 <TYPE-CODE FALSE> - PHRASE48>
+ <DEAD LIST?9>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TG2-14>
+ <DEAD TG2-14>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE48
+ <RETURN W10>
+ <DEAD W10>
+ <END \1aSEGMENT-LIST>\r\r
+<GDECL (SUBRS TEMPLATES) VECTOR>
+
+#WORD *16266424377*
+<GFCN \1aSIDES ("VALUE" <OR ATOM FALSE> <LIST [REST NODE]>) L4>
+ <TEMP TEMP14 TEMP11:LIST TEMP19>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <SET TEMP11 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPL? TEMP11 + MAPAP9>
+ <NTHL TEMP11 1 = TEMP14>
+ <NTHUV TEMP14 1 = TEMP19 (TYPE FIX)>
+ <VEQUAL? TEMP19 2 - PHRASE18 (TYPE FIX)>
+ <DEAD TEMP19>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+PHRASE18
+ <NTHUV TEMP14 1 = TEMP19 (TYPE FIX)>
+ <VEQUAL? TEMP19 52 + TAG23 (TYPE FIX)>
+ <DEAD TEMP19>
+ <NTHUV TEMP14 8 = TEMP14>
+ <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
+ <EMPL? TEMP14 + TAG22>
+ <LOOP (TEMP14 VALUE)>
+TAG24
+ <NTHL TEMP14 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE ATOM> - TAG25>
+ <VEQUAL? TEMP19 'ALL + TAG23>
+ <DEAD TEMP19>
+TAG25
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <EMPL? TEMP14 - TAG24>
+TAG22
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG23
+ <RETURN 'T>
+PHRASE20
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aSIDES>
+" Generate code for a COND."
+
+#WORD *31673133744*
+<GFCN \1aCOND-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 W9 NOTF10 BRANCH11 DIR12>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP RW14 COND16:ATOM (WSET18 %<>) KK19:LIST SDIR20 TEMP29 TEMP44 LAST42 BR46 PRED-TRUE48 K49 PR50 NO-SEQ51 LEAVE52 BRNCHED58 PRT59 BR2-56 PRT2-57 LOCN15>
+ <INTGO>
+ <SET RW14 W9>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "COND">
+ <CALL '\1aMAKE-TAG 1 = COND16>
+ <NTHUV NOD8 5 = KK19 (TYPE LIST)>
+ <SET SDIR20 DIR12>
+ <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG25>
+ <TYPE? DIR12 <TYPE-CODE FALSE> - TAG24>
+ <DEAD DIR12>
+ <SET DIR12 'T (TYPE ATOM)>
+ <JUMP + TAG25>
+TAG24
+ <SET DIR12 %<> (TYPE FALSE)>
+TAG25
+ <GVAL 'POP-STACK = TEMP29>
+ <EQUAL? TEMP29 W9 + BOOL28>
+ <DEAD TEMP29>
+ <TYPE? W9 <TYPE-CODE TEMP> - PHRASE27>
+ <NTHUV W9 5 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP29>
+ <NTHUV W9 5 = TEMP29>
+ <EQUAL? TEMP29 'ANY + PHRASE27>
+ <DEAD TEMP29>
+BOOL28
+ <SET W9 'DONT-CARE (TYPE ATOM)>
+PHRASE27
+ <SET TEMP29 KK19 (TYPE LIST)>
+ <DEAD KK19>
+ <LOOP>
+MAP32
+ <INTGO>
+ <EMPL? TEMP29 + MAPAP35>
+ <SET KK19 TEMP29>
+ <RESTL KK19 1 = TEMP44 (TYPE LIST)>
+ <EMPL? TEMP44 - TAG43 (TYPE LIST)>
+ <DEAD TEMP44>
+ <SET LAST42 'T (TYPE ATOM)>
+ <JUMP + TAG45>
+TAG43
+ <SET LAST42 %<> (TYPE FALSE)>
+TAG45
+ <NTHL KK19 1 = BR46 (TYPE NODE)>
+ <SET PRED-TRUE48 %<> (TYPE FALSE)>
+ <NTHUV BR46 5 = K49 (TYPE LIST)>
+ <NTHUV BR46 4 = PR50 (TYPE NODE)>
+ <SET NO-SEQ51 %<> (TYPE FALSE)>
+ <SET LEAVE52 %<> (TYPE FALSE)>
+ <SET BRNCHED58 %<> (TYPE FALSE)>
+ <NTHUV PR50 3 = PRT59>
+ <VEQUAL? LAST42 0 - PHRASE62>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH PRT59>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE62>
+ <DEAD TEMP44>
+ <FRAME '\1aTYPE-OK?>
+ <RESTL KK19 1 = TEMP44 (TYPE LIST)>
+ <NTHL TEMP44 1 = BR2-56 (TYPE NODE)>
+ <DEAD TEMP44>
+ <NTHUV BR2-56 4 = TEMP44 (TYPE NODE)>
+ <NTHUV TEMP44 3 = PRT2-57>
+ <DEAD TEMP44>
+ <PUSH PRT2-57>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = TEMP44>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> - PHRASE62>
+ <DEAD TEMP44>
+ <NTHUV BR2-56 5 = TEMP44 (TYPE LIST)>
+ <DEAD BR2-56>
+ <EMPL? TEMP44 - BOOL67 (TYPE LIST)>
+ <TYPE? PRT2-57 <TYPE-CODE FALSE> + BOOL66>
+ <DEAD PRT2-57>
+BOOL67
+ <EMPL? TEMP44 + PHRASE62 (TYPE LIST)>
+ <LOOP (TEMP44 VALUE)>
+TAG69
+ <RESTL TEMP44 1 = PRT2-57 (TYPE LIST)>
+ <EMPL? PRT2-57 + TAG71>
+ <SET TEMP44 PRT2-57>
+ <DEAD PRT2-57>
+ <JUMP + TAG69>
+TAG71
+ <NTHL TEMP44 1 = PRT2-57>
+ <DEAD TEMP44>
+ <NTHUV PRT2-57 3 = PRT2-57>
+ <TYPE? PRT2-57 <TYPE-CODE FALSE> - PHRASE62>
+ <DEAD PRT2-57>
+BOOL66
+ <FRAME '\1aCOND-COMPLAIN>
+ <PUSH "Predicate assumed true to avoid type mismatch">
+ <PUSH PR50>
+ <CALL '\1aCOND-COMPLAIN 2>
+ <SET PRED-TRUE48 'T (TYPE ATOM)>
+PHRASE62
+ <EMPL? K49 - PHRASE74 (TYPE LIST)>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH PRT59>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = PRT2-57>
+ <TYPE? PRT2-57 <TYPE-CODE FALSE> - TAG80>
+ <DEAD PRT2-57>
+ <SET PRED-TRUE48 'T (TYPE ATOM)>
+TAG80
+ <VEQUAL? PRED-TRUE48 0 - BOOL77>
+ <VEQUAL? LAST42 0 + PHRASE76>
+BOOL77
+ <VEQUAL? LAST42 0 - PHRASE82>
+ <FRAME '\1aCOND-COMPLAIN>
+ <PUSH "NON REACHABLE COND CLAUSE(S) ">
+ <RESTL KK19 1 = PRT2-57 (TYPE LIST)>
+ <DEAD KK19>
+ <NTHL PRT2-57 1 = STACK (TYPE NODE)>
+ <DEAD PRT2-57>
+ <CALL '\1aCOND-COMPLAIN 2>
+PHRASE82
+ <VEQUAL? PRED-TRUE48 0 + PHRASE85>
+ <DEAD PRED-TRUE48>
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE85>
+ <FRAME '\1aGEN>
+ <PUSH PR50>
+ <DEAD PR50>
+ <EQUAL? RW14 'FLUSHED - PHRASE89>
+ <SET PRT2-57 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE90>
+PHRASE89
+ <SET PRT2-57 W9>
+PHRASE90
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <CALL '\1aGEN 2 = LOCN15>
+ <VEQUAL? WSET18 0 - PHRASE92>
+ <DEAD WSET18>
+ <GVAL 'NO-DATUM = PRT2-57>
+ <EQUAL? PRT2-57 LOCN15 + PHRASE92>
+ <DEAD PRT2-57>
+ <EQUAL? RW14 'FLUSHED + PHRASE92>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH LOCN15>
+ <DEAD LOCN15>
+ <CALL '\1aFIXUP-TEMP 2 = W9>
+PHRASE92
+ <TYPE? DIR12 <TYPE-CODE FALSE> + MAPAP35>
+ <DEAD DIR12>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BRANCH11>
+ <DEAD BRANCH11>
+ <CALL '\1aBRANCH-TAG 1>
+ <JUMP + MAPAP35>
+PHRASE85
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE98>
+ <VEQUAL? LAST42 0 + PHRASE98>
+ <DEAD LAST42>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BRANCH11>
+ <DEAD BRANCH11>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH SDIR20>
+ <DEAD SDIR20>
+ <EQUAL? RW14 'FLUSHED - PHRASE102>
+ <SET PRT2-57 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE109>
+PHRASE102
+ <VEQUAL? WSET18 0 - BOOL104>
+ <DEAD WSET18>
+ <TYPE? W9 <TYPE-CODE TEMP> - PHRASE103>
+ <NTHUV W9 2 = TEMP44 (TYPE FIX)>
+ <VEQUAL? TEMP44 0 - PHRASE103 (TYPE FIX)>
+ <DEAD TEMP44>
+BOOL104
+ <SET PRT2-57 W9>
+ <JUMP + PHRASE109>
+PHRASE103
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W9>
+ <SET PRT2-57 W9>
+PHRASE109
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <PUSH NOTF10>
+ <DEAD NOTF10>
+ <CALL '\1aPRED-BRANCH-GEN 5>
+ <JUMP + MAPAP35>
+PHRASE98
+ <FRAME '\1aGEN>
+ <PUSH PR50>
+ <DEAD PR50>
+ <EQUAL? RW14 'FLUSHED - PHRASE114>
+ <SET PRT2-57 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE115>
+PHRASE114
+ <SET PRT2-57 W9>
+PHRASE115
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <CALL '\1aGEN 2 = LOCN15>
+ <VEQUAL? WSET18 0 - MAPAP35>
+ <DEAD WSET18>
+ <GVAL 'NO-DATUM = PRT2-57>
+ <EQUAL? PRT2-57 LOCN15 + MAPAP35>
+ <DEAD PRT2-57>
+ <EQUAL? RW14 'FLUSHED + MAPAP35>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH LOCN15>
+ <DEAD LOCN15>
+ <CALL '\1aFIXUP-TEMP 2 = W9>
+ <JUMP + MAPAP35>
+PHRASE76
+ <TYPE? PRT59 <TYPE-CODE FALSE> - PHRASE120>
+ <FRAME '\1aCOND-COMPLAIN>
+ <PUSH "Predicate assumed FALSE to satisfy type constraint ">
+ <PUSH PR50>
+ <CALL '\1aCOND-COMPLAIN 2>
+ <FRAME '\1aGEN>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE151>
+PHRASE120
+ <FRAME '\1aISTYPE?>
+ <PUSH PRT59>
+ <DEAD PRT59>
+ <CALL '\1aISTYPE? 1 = PRT2-57>
+ <VEQUAL? PRT2-57 'FALSE - PHRASE123>
+ <DEAD PRT2-57>
+ <FRAME '\1aGEN>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE151>
+PHRASE123
+ <EQUAL? RW14 'FLUSHED - PHRASE126>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE129>
+ <TYPE? SDIR20 <TYPE-CODE FALSE> + PHRASE129>
+ <SET PRT2-57 BRANCH11>
+ <JUMP + PHRASE131>
+PHRASE129
+ <SET PRT2-57 COND16>
+PHRASE131
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH 'T>
+ <PUSH 'FLUSHED>
+ <PUSH NOTF10>
+ <CALL '\1aPRED-BRANCH-GEN 5>
+ <JUMP + PHRASE151>
+PHRASE126
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE134>
+ <TYPE? SDIR20 <TYPE-CODE FALSE> + PHRASE134>
+ <FRAME '\1aFREE-TEMP>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BRANCH11>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH 'T>
+ <PUSH 'FLUSHED>
+ <PUSH NOTF10>
+ <CALL '\1aPRED-BRANCH-GEN 5 = STACK>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE151>
+PHRASE134
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH COND16>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH 'T>
+ <VEQUAL? WSET18 0 - BOOL142>
+ <DEAD WSET18>
+ <TYPE? W9 <TYPE-CODE TEMP> - PHRASE141>
+ <NTHUV W9 2 = TEMP44 (TYPE FIX)>
+ <VEQUAL? TEMP44 0 - PHRASE141 (TYPE FIX)>
+ <DEAD TEMP44>
+BOOL142
+ <SET WSET18 'T (TYPE ATOM)>
+ <SET TEMP44 W9>
+ <JUMP + PHRASE146>
+PHRASE141
+ <SET WSET18 'T (TYPE ATOM)>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W9>
+ <SET TEMP44 W9>
+PHRASE146
+ <PUSH TEMP44>
+ <DEAD TEMP44>
+ <PUSH NOTF10>
+ <CALL '\1aPRED-BRANCH-GEN 5 = LOCN15>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH LOCN15>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <JUMP + PHRASE151>
+PHRASE74
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "PHRASE">
+ <CALL '\1aMAKE-TAG 1 = BR2-56>
+ <SET TEMP44 K49>
+ <LOOP (TEMP44 VALUE)>
+TAG153
+ <RESTL TEMP44 1 = PRT2-57 (TYPE LIST)>
+ <EMPL? PRT2-57 + TAG154>
+ <SET TEMP44 PRT2-57>
+ <DEAD PRT2-57>
+ <JUMP + TAG153>
+TAG154
+ <NTHL TEMP44 1 = PRT2-57>
+ <DEAD TEMP44>
+ <NTHUV PRT2-57 3 = TEMP44>
+ <DEAD PRT2-57>
+ <FRAME '\1aISTYPE?>
+ <PUSH PRT59>
+ <CALL '\1aISTYPE? 1 = PRT2-57>
+ <VEQUAL? PRT2-57 'FALSE + BOOL158>
+ <DEAD PRT2-57>
+ <TYPE? TEMP44 <TYPE-CODE FALSE> - BOOL158>
+ <DEAD TEMP44>
+ <FRAME '\1aCOND-COMPLAIN>
+ <PUSH "Predicate assumed FALSE to satisfy type constraibnt">
+ <PUSH PR50>
+ <CALL '\1aCOND-COMPLAIN 2>
+ <JUMP + BOOL157>
+BOOL158
+ <FRAME '\1aISTYPE?>
+ <PUSH PRT59>
+ <CALL '\1aISTYPE? 1 = PRT2-57>
+ <VEQUAL? PRT2-57 'FALSE - PHRASE156>
+ <DEAD PRT2-57>
+ <FRAME '\1aCOND-COMPLAIN>
+ <PUSH "COND PREDICATE ALWAYS FALSE">
+ <PUSH PR50>
+ <CALL '\1aCOND-COMPLAIN 2>
+BOOL157
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE165>
+ <VEQUAL? LAST42 0 + PHRASE165>
+ <TYPE? DIR12 <TYPE-CODE FALSE> - PHRASE165>
+ <FRAME '\1aGEN>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH W9>
+ <CALL '\1aGEN 2 = LOCN15>
+ <VEQUAL? WSET18 0 - PHRASE169>
+ <GVAL 'NO-DATUM = PRT2-57>
+ <EQUAL? PRT2-57 LOCN15 + PHRASE169>
+ <DEAD PRT2-57>
+ <EQUAL? RW14 'FLUSHED + PHRASE169>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH LOCN15>
+ <DEAD LOCN15>
+ <CALL '\1aFIXUP-TEMP 2 = W9>
+ <SET LOCN15 W9>
+ <SET WSET18 'T (TYPE ATOM)>
+PHRASE169
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BRANCH11>
+ <CALL '\1aBRANCH-TAG 1>
+ <JUMP + PHRASE185>
+PHRASE165
+ <VEQUAL? LAST42 0 + PHRASE175>
+ <EQUAL? RW14 'FLUSHED + PHRASE175>
+ <FRAME '\1aGEN>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH W9>
+ <CALL '\1aGEN 2 = LOCN15>
+ <VEQUAL? WSET18 0 - PHRASE182>
+ <GVAL 'NO-DATUM = PRT2-57>
+ <EQUAL? PRT2-57 LOCN15 + PHRASE182>
+ <DEAD PRT2-57>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH LOCN15>
+ <DEAD LOCN15>
+ <CALL '\1aFIXUP-TEMP 2 = W9>
+ <SET LOCN15 W9>
+ <SET WSET18 'T (TYPE ATOM)>
+ <JUMP + PHRASE182>
+PHRASE175
+ <FRAME '\1aGEN>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2 = LOCN15>
+PHRASE182
+ <EQUAL? PRT59 'NO-RETURN + PHRASE185>
+ <DEAD PRT59>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BR2-56>
+ <CALL '\1aBRANCH-TAG 1>
+PHRASE185
+ <SET NO-SEQ51 'T (TYPE ATOM)>
+ <JUMP + PHRASE226>
+PHRASE156
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'FALSE>
+ <PUSH PRT59>
+ <DEAD PRT59>
+ <CALL '\1aTYPE-OK? 2 = PRT2-57>
+ <TYPE? PRT2-57 <TYPE-CODE FALSE> + PHRASE187>
+ <DEAD PRT2-57>
+ <VEQUAL? PRED-TRUE48 0 - PHRASE187>
+ <DEAD PRED-TRUE48>
+ <VEQUAL? LAST42 0 + PHRASE191>
+ <TYPE? DIR12 <TYPE-CODE FALSE> - PHRASE191>
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE191>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BRANCH11>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH %<>>
+ <EQUAL? RW14 'FLUSHED - PHRASE195>
+ <SET PRT2-57 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE202>
+PHRASE195
+ <VEQUAL? WSET18 0 - BOOL197>
+ <DEAD WSET18>
+ <TYPE? W9 <TYPE-CODE TEMP> - PHRASE196>
+ <NTHUV W9 2 = TEMP44 (TYPE FIX)>
+ <VEQUAL? TEMP44 0 - PHRASE196 (TYPE FIX)>
+ <DEAD TEMP44>
+BOOL197
+ <SET WSET18 'T (TYPE ATOM)>
+ <SET PRT2-57 W9>
+ <JUMP + PHRASE202>
+PHRASE196
+ <SET WSET18 'T (TYPE ATOM)>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W9>
+ <SET PRT2-57 W9>
+PHRASE202
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <PUSH NOTF10>
+ <CALL '\1aPRED-BRANCH-GEN 5 = LOCN15>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH LOCN15>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <JUMP + PHRASE226>
+PHRASE191
+ <VEQUAL? LAST42 0 + PHRASE205>
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE205>
+ <FRAME '\1aFREE-TEMP>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BR2-56>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH %<>>
+ <PUSH 'FLUSHED>
+ <CALL '\1aPRED-BRANCH-GEN 4 = STACK>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE226>
+PHRASE205
+ <VEQUAL? LAST42 0 + PHRASE209>
+ <EQUAL? RW14 'FLUSHED + PHRASE209>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BR2-56>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH %<>>
+ <EQUAL? RW14 'FLUSHED - PHRASE213>
+ <SET PRT2-57 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE219>
+PHRASE213
+ <VEQUAL? WSET18 0 - BOOL215>
+ <DEAD WSET18>
+ <TYPE? W9 <TYPE-CODE TEMP> - PHRASE214>
+ <NTHUV W9 2 = TEMP44 (TYPE FIX)>
+ <VEQUAL? TEMP44 0 - PHRASE214 (TYPE FIX)>
+ <DEAD TEMP44>
+BOOL215
+ <SET WSET18 'T (TYPE ATOM)>
+ <SET PRT2-57 W9>
+ <JUMP + PHRASE219>
+PHRASE214
+ <SET WSET18 'T (TYPE ATOM)>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W9>
+ <SET PRT2-57 W9>
+PHRASE219
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <CALL '\1aPRED-BRANCH-GEN 4 = LOCN15>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH LOCN15>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <JUMP + PHRASE226>
+PHRASE209
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BR2-56>
+ <PUSH PR50>
+ <DEAD PR50>
+ <PUSH %<>>
+ <PUSH 'FLUSHED>
+ <CALL '\1aPRED-BRANCH-GEN 4>
+ <JUMP + PHRASE226>
+PHRASE187
+ <CONS PR50 K49 = K49>
+ <DEAD PR50>
+ <VEQUAL? LAST42 0 - PHRASE226>
+ <SET LEAVE52 'T (TYPE ATOM)>
+ <FRAME '\1aCOND-COMPLAIN>
+ <PUSH "NON REACHABLE COND CLAUSE(S)">
+ <RESTL KK19 1 = PRT2-57 (TYPE LIST)>
+ <DEAD KK19>
+ <NTHL PRT2-57 1 = STACK (TYPE NODE)>
+ <DEAD PRT2-57>
+ <CALL '\1aCOND-COMPLAIN 2>
+PHRASE226
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE229>
+ <VEQUAL? NO-SEQ51 0 - PHRASE281>
+ <FRAME '\1aTYPE-OK?>
+ <SET PR50 K49>
+ <LOOP (PR50 VALUE)>
+TAG235
+ <RESTL PR50 1 = PRT2-57 (TYPE LIST)>
+ <EMPL? PRT2-57 + TAG236>
+ <SET PR50 PRT2-57>
+ <DEAD PRT2-57>
+ <JUMP + TAG235>
+TAG236
+ <NTHL PR50 1 = PR50>
+ <NTHUV PR50 3 = STACK>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = PRT2-57>
+ <TYPE? PRT2-57 <TYPE-CODE FALSE> - TAG237>
+ <DEAD PRT2-57>
+ <SET PRED-TRUE48 'T (TYPE ATOM)>
+ <JUMP + BOOL233>
+TAG237
+ <SET PRED-TRUE48 %<> (TYPE FALSE)>
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV PR50 3 = STACK>
+ <DEAD PR50>
+ <PUSH <NOT FALSE>>
+ <CALL '\1aTYPE-OK? 2 = PRT2-57>
+ <TYPE? PRT2-57 <TYPE-CODE FALSE> - PHRASE232>
+ <DEAD PRT2-57>
+BOOL233
+ <TYPE? NOTF10 <TYPE-CODE FALSE> + PHRASE240>
+ <FRAME '\1aSEQ-GEN>
+ <PUSH K49>
+ <PUSH 'FLUSHED>
+ <CALL '\1aSEQ-GEN 2>
+ <EQUAL? RW14 'FLUSHED - PHRASE243>
+ <GVAL 'NO-DATUM = LOCN15>
+ <JUMP + PHRASE260>
+PHRASE243
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <VEQUAL? PRED-TRUE48 0 - TAG247>
+ <SET PRT2-57 'T (TYPE ATOM)>
+ <JUMP + TAG248>
+TAG247
+ <SET PRT2-57 %<> (TYPE FALSE)>
+TAG248
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W9>
+ <CALL '\1aMOVE-ARG 2 = LOCN15>
+ <VEQUAL? WSET18 0 - PHRASE260>
+ <GVAL 'NO-DATUM = PRT2-57>
+ <EQUAL? PRT2-57 LOCN15 + PHRASE260>
+ <DEAD PRT2-57>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH LOCN15>
+ <DEAD LOCN15>
+ <CALL '\1aFIXUP-TEMP 2 = W9>
+ <SET LOCN15 W9>
+ <SET WSET18 'T (TYPE ATOM)>
+ <JUMP + PHRASE260>
+PHRASE240
+ <FRAME '\1aSEQ-GEN>
+ <PUSH K49>
+ <EQUAL? RW14 'FLUSHED + BOOL257>
+ <EQUAL? SDIR20 PRED-TRUE48 + PHRASE256>
+BOOL257
+ <SET PRT2-57 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE258>
+PHRASE256
+ <SET PRT2-57 W9>
+PHRASE258
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <CALL '\1aSEQ-GEN 2 = LOCN15>
+ <VEQUAL? WSET18 0 - PHRASE260>
+ <EQUAL? RW14 'FLUSHED + PHRASE260>
+ <GVAL 'NO-DATUM = PRT2-57>
+ <EQUAL? PRT2-57 LOCN15 + PHRASE260>
+ <DEAD PRT2-57>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH LOCN15>
+ <DEAD LOCN15>
+ <CALL '\1aFIXUP-TEMP 2 = W9>
+ <SET LOCN15 W9>
+ <SET WSET18 'T (TYPE ATOM)>
+PHRASE260
+ <EQUAL? PRED-TRUE48 SDIR20 - PHRASE281>
+ <DEAD PRED-TRUE48>
+ <SET BRNCHED58 'T (TYPE ATOM)>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BRANCH11>
+ <CALL '\1aBRANCH-TAG 1>
+ <JUMP + PHRASE281>
+PHRASE232
+ <FRAME '\1aPSEQ-GEN>
+ <PUSH K49>
+ <EQUAL? RW14 'FLUSHED - PHRASE269>
+ <SET PRT2-57 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE270>
+PHRASE269
+ <SET PRT2-57 W9>
+PHRASE270
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <PUSH BRANCH11>
+ <PUSH SDIR20>
+ <PUSH NOTF10>
+ <CALL '\1aPSEQ-GEN 5 = LOCN15>
+ <VEQUAL? WSET18 0 - PHRASE281>
+ <GVAL 'NO-DATUM = PRT2-57>
+ <EQUAL? PRT2-57 LOCN15 + PHRASE281>
+ <DEAD PRT2-57>
+ <EQUAL? RW14 'FLUSHED + PHRASE281>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH LOCN15>
+ <DEAD LOCN15>
+ <CALL '\1aFIXUP-TEMP 2 = W9>
+ <SET LOCN15 W9>
+ <SET WSET18 'T (TYPE ATOM)>
+ <JUMP + PHRASE281>
+PHRASE229
+ <VEQUAL? NO-SEQ51 0 - PHRASE281>
+ <FRAME '\1aPSEQ-GEN>
+ <PUSH K49>
+ <EQUAL? RW14 'FLUSHED - PHRASE278>
+ <SET PRT2-57 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE279>
+PHRASE278
+ <SET PRT2-57 W9>
+PHRASE279
+ <PUSH PRT2-57>
+ <DEAD PRT2-57>
+ <PUSH BRANCH11>
+ <PUSH SDIR20>
+ <PUSH NOTF10>
+ <CALL '\1aPSEQ-GEN 5 = LOCN15>
+ <VEQUAL? WSET18 0 - PHRASE281>
+ <GVAL 'NO-DATUM = PRT2-57>
+ <EQUAL? PRT2-57 LOCN15 + PHRASE281>
+ <DEAD PRT2-57>
+ <EQUAL? RW14 'FLUSHED + PHRASE281>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH LOCN15>
+ <DEAD LOCN15>
+ <CALL '\1aFIXUP-TEMP 2 = W9>
+ <SET LOCN15 W9>
+ <SET WSET18 'T (TYPE ATOM)>
+PHRASE281
+ <VEQUAL? LAST42 0 - BOOL291>
+ <DEAD LAST42>
+ <SET PRT2-57 K49>
+ <DEAD K49>
+ <LOOP (PRT2-57 VALUE)>
+TAG287
+ <RESTL PRT2-57 1 = TEMP44 (TYPE LIST)>
+ <EMPL? TEMP44 + TAG288>
+ <SET PRT2-57 TEMP44>
+ <DEAD TEMP44>
+ <JUMP + TAG287>
+TAG288
+ <NTHL PRT2-57 1 = TEMP44>
+ <DEAD PRT2-57>
+ <NTHUV TEMP44 3 = TEMP44>
+ <EQUAL? TEMP44 'NO-RETURN + BOOL291>
+ <DEAD TEMP44>
+ <VEQUAL? NO-SEQ51 0 - BOOL289>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH LOCN15>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+BOOL289
+ <VEQUAL? BRNCHED58 0 - BOOL291>
+ <DEAD BRNCHED58>
+ <VEQUAL? NO-SEQ51 0 - BOOL291>
+ <DEAD NO-SEQ51>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH COND16>
+ <CALL '\1aBRANCH-TAG 1>
+BOOL291
+ <FRAME '\1aLABEL-TAG>
+ <PUSH BR2-56>
+ <DEAD BR2-56>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE151
+ <GEN-ASSIGNED? 'NPRUNE + PHRASE295>
+ <PUTUV BR46 5 () (TYPE LIST)>
+ <DEAD BR46>
+PHRASE295
+ <VEQUAL? LEAVE52 0 - MAPAP35>
+ <DEAD LEAVE52>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <JUMP + MAP32>
+MAPAP35
+ <GEN-ASSIGNED? 'NPRUNE + PHRASE300>
+ <PUTUV NOD8 5 () (TYPE LIST)>
+PHRASE300
+ <FRAME '\1aLABEL-TAG>
+ <PUSH COND16>
+ <DEAD COND16>
+ <CALL '\1aLABEL-TAG 1>
+ <NTHUV NOD8 3 = WSET18>
+ <DEAD NOD8>
+ <EQUAL? WSET18 'NO-RETURN - PHRASE304>
+ <DEAD WSET18>
+ <GVAL 'NO-DATUM = RW14>
+ <RETURN RW14>
+ <DEAD RW14>
+PHRASE304
+ <FRAME '\1aMOVE-ARG>
+ <PUSH W9>
+ <DEAD W9>
+ <PUSH RW14>
+ <DEAD RW14>
+ <CALL '\1aMOVE-ARG 2 = RW14>
+ <RETURN RW14>
+ <DEAD RW14>
+ <END \1aCOND-GEN>
+#WORD *30112743110*
+<GFCN \1aFIXUP-TEMP ("VALUE" ANY ANY ANY) W4 LOCN5>
+ <TEMP TEMP9>
+ <INTGO>
+ <TYPE? LOCN5 <TYPE-CODE TEMP> - PHRASE7>
+ <NTHUV LOCN5 2 = TEMP9 (TYPE FIX)>
+ <GRTR? TEMP9 1 + PHRASE7 (TYPE FIX)>
+ <DEAD TEMP9>
+ <RETURN LOCN5>
+ <DEAD LOCN5>
+PHRASE7
+ <EQUAL? LOCN5 W4 - PHRASE12>
+ <DEAD W4>
+ <RETURN LOCN5>
+ <DEAD LOCN5>
+PHRASE12
+ <FRAME '\1aMOVE-ARG>
+ <PUSH LOCN5>
+ <DEAD LOCN5>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = STACK>
+ <CALL '\1aMOVE-ARG 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aFIXUP-TEMP>
+#WORD *30565162235*
+<GFCN \1aPSEQ-GEN ("VALUE" ANY <LIST [REST NODE]> ANY ANY ANY ANY) L4 W5 B6 D7 NF8>
+ <TEMP (WSET9 %<>) TEMP17:LIST N22:LIST ND23 TEMP28 NX24>
+ <INTGO>
+ <SET TEMP17 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP12
+ <INTGO>
+ <EMPL? TEMP17 + MAPAP15>
+ <SET N22 TEMP17>
+ <NTHL N22 1 = ND23 (TYPE NODE)>
+ <RESTL N22 1 = TEMP28 (TYPE LIST)>
+ <EMPL? TEMP28 + PHRASE27 (TYPE LIST)>
+ <DEAD TEMP28>
+ <RESTL N22 1 = TEMP28 (TYPE LIST)>
+ <NTHL TEMP28 1 = NX24 (TYPE NODE)>
+ <DEAD TEMP28>
+ <NTHUV NX24 1 = TEMP28 (TYPE FIX)>
+ <VEQUAL? TEMP28 90 - PHRASE30 (TYPE FIX)>
+ <DEAD TEMP28>
+ <NTHUV NX24 5 = NX24 (TYPE LIST)>
+ <EMPL? NX24 + PHRASE30>
+ <RESTL NX24 1 = TEMP28 (TYPE LIST)>
+ <EMPL? TEMP28 + PHRASE30>
+ <DEAD TEMP28>
+ <NTHL NX24 1 = TEMP28 (TYPE NODE)>
+ <DEAD NX24>
+ <NTHUV TEMP28 4 = TEMP28>
+ <EQUAL? TEMP28 '`ENDIF - PHRASE30>
+ <DEAD TEMP28>
+ <FRAME '\1aGEN>
+ <PUSH ND23>
+ <DEAD ND23>
+ <PUSH W5>
+ <CALL '\1aGEN 2 = ND23>
+ <VEQUAL? WSET9 0 - PHRASE34>
+ <EQUAL? W5 'FLUSHED + PHRASE34>
+ <GVAL 'NO-DATUM = TEMP28>
+ <EQUAL? TEMP28 ND23 + PHRASE34>
+ <DEAD TEMP28>
+ <GVAL 'POP-STACK = TEMP28>
+ <EQUAL? TEMP28 W5 + PHRASE34>
+ <DEAD TEMP28>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W5>
+ <DEAD W5>
+ <PUSH ND23>
+ <DEAD ND23>
+ <CALL '\1aFIXUP-TEMP 2 = W5>
+ <SET WSET9 'T (TYPE ATOM)>
+PHRASE34
+ <RESTL N22 1 = TEMP28 (TYPE LIST)>
+ <DEAD N22>
+ <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
+ <EMPL? TEMP28 + PHRASE53 (TYPE LIST)>
+ <DEAD TEMP28>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH W5>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <JUMP + PHRASE53>
+PHRASE30
+ <LENUV ND23 = TEMP28 (TYPE FIX)>
+ <LESS? TEMP28 8 + BOOL43 (TYPE FIX)>
+ <DEAD TEMP28>
+ <NTHUV ND23 8 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL42>
+ <DEAD TEMP28>
+BOOL43
+ <FRAME '\1aGETPROP>
+ <PUSH ND23>
+ <PUSH 'DONT-FLUSH-ME>
+ <CALL '\1aGETPROP 2 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL42>
+ <DEAD TEMP28>
+ <GVAL 'DONT-FLUSH-ME = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE53>
+ <DEAD TEMP28>
+BOOL42
+ <FRAME '\1aGEN>
+ <PUSH ND23>
+ <DEAD ND23>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE53>
+PHRASE27
+ <NTHUV ND23 1 = TEMP28 (TYPE FIX)>
+ <VEQUAL? TEMP28 90 - PHRASE46 (TYPE FIX)>
+ <DEAD TEMP28>
+ <NTHUV ND23 5 = NX24 (TYPE LIST)>
+ <EMPL? NX24 + PHRASE46>
+ <RESTL NX24 1 = TEMP28 (TYPE LIST)>
+ <EMPL? TEMP28 + PHRASE46>
+ <DEAD TEMP28>
+ <NTHL NX24 1 = TEMP28 (TYPE NODE)>
+ <DEAD NX24>
+ <NTHUV TEMP28 4 = TEMP28>
+ <EQUAL? TEMP28 '`ENDIF - PHRASE46>
+ <DEAD TEMP28>
+ <FRAME '\1aGEN>
+ <PUSH ND23>
+ <DEAD ND23>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE53>
+PHRASE46
+ <TYPE? B6 <TYPE-CODE FALSE> + PHRASE51>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH B6>
+ <PUSH ND23>
+ <DEAD ND23>
+ <PUSH D7>
+ <PUSH W5>
+ <DEAD W5>
+ <PUSH NF8>
+ <CALL '\1aPRED-BRANCH-GEN 5 = W5>
+ <JUMP + PHRASE53>
+PHRASE51
+ <FRAME '\1aGEN>
+ <PUSH ND23>
+ <DEAD ND23>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aGEN 2 = W5>
+PHRASE53
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <JUMP + MAP12>
+MAPAP15
+ <RETURN W5>
+ <DEAD W5>
+ <END \1aPSEQ-GEN>
+#WORD *32576046403*
+<GFCN \1aCOND-COMPLAIN ("VALUE" ATOM ANY NODE) MSG4 N1-5>
+ <TEMP TEMP7:ATOM>
+ <INTGO>
+ <FRAME '\1aCOMPILE-NOTE>
+ <PUSH MSG4>
+ <DEAD MSG4>
+ <PUSH N1-5>
+ <DEAD N1-5>
+ <CALL '\1aCOMPILE-NOTE 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aCOND-COMPLAIN>
+" Generate code for OR use BOOL-GEN to do work."
+
+#WORD *12135620715*
+<GFCN \1aOR-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 'T>
+OPT7
+ <TEMP TEMP14>
+ <INTGO>
+ <FRAME '\1aBOOL-GEN>
+ <PUSH NOD8>
+ <NTHUV NOD8 5 = STACK (TYPE LIST)>
+ <DEAD NOD8>
+ <PUSH 'T>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <PUSH NF10>
+ <DEAD NF10>
+ <PUSH BR11>
+ <DEAD BR11>
+ <PUSH DIR12>
+ <DEAD DIR12>
+ <CALL '\1aBOOL-GEN 7 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aOR-GEN>
+" Generate code for AND use BOOL-GEN to do work."
+
+#WORD *17245412614*
+<GFCN \1aAND-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 TEMP14>
+ <INTGO>
+ <FRAME '\1aBOOL-GEN>
+ <PUSH NOD8>
+ <NTHUV NOD8 5 = STACK (TYPE LIST)>
+ <DEAD NOD8>
+ <PUSH %<>>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <PUSH NF10>
+ <DEAD NF10>
+ <PUSH BR11>
+ <DEAD BR11>
+ <PUSH DIR12>
+ <DEAD DIR12>
+ <CALL '\1aBOOL-GEN 7 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aAND-GEN>
+#WORD *11635224174*
+<GFCN \1aBOOL-GEN ("VALUE" ANY NODE <LIST [REST NODE]> ANY ANY ANY <OR ATOM FALSE> ANY) NOD4 PREDS5 RESULT6 W7 NOTF8 BRANCH9 DIR10>
+ <TEMP RW11 BOOL12:ATOM FLUSH13 (WSET14 %<>) TEMP24 FLS15 SRES17 RTF16 LOCN18 BRN57:LIST BR58 LAST59 RT63 RTFL64 TEMP69 TY65>
+ <INTGO>
+ <SET RW11 W7>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "BOOL">
+ <CALL '\1aMAKE-TAG 1 = BOOL12>
+ <EQUAL? RW11 'FLUSHED - TAG21>
+ <SET FLUSH13 'T (TYPE ATOM)>
+ <JUMP + TAG22>
+TAG21
+ <SET FLUSH13 %<> (TYPE FALSE)>
+TAG22
+ <TYPE? BRANCH9 <TYPE-CODE FALSE> + TAG25>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <JUMP + BOOL23>
+TAG25
+ <SET TEMP24 FLUSH13>
+BOOL23
+ <SET FLS15 TEMP24>
+ <DEAD TEMP24>
+ <GVAL 'POP-STACK = TEMP24>
+ <EQUAL? TEMP24 W7 + BOOL28>
+ <DEAD TEMP24>
+ <TYPE? W7 <TYPE-CODE TEMP> - PHRASE27>
+ <NTHUV W7 5 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP24>
+ <NTHUV W7 5 = TEMP24>
+ <EQUAL? TEMP24 'ANY + PHRASE27>
+ <DEAD TEMP24>
+BOOL28
+ <SET W7 'DONT-CARE (TYPE ATOM)>
+PHRASE27
+ <TYPE? NOTF8 <TYPE-CODE FALSE> + TAG33>
+ <TYPE? RESULT6 <TYPE-CODE FALSE> - TAG32>
+ <DEAD RESULT6>
+ <SET RESULT6 'T (TYPE ATOM)>
+ <JUMP + TAG33>
+TAG32
+ <SET RESULT6 %<> (TYPE FALSE)>
+TAG33
+ <SET SRES17 RESULT6>
+ <VEQUAL? FLUSH13 0 + TAG35>
+ <SET RTF16 %<> (TYPE FALSE)>
+ <JUMP + BOOL34>
+TAG35
+ <EQUAL? SRES17 DIR10 + TAG36>
+ <SET RTF16 %<> (TYPE FALSE)>
+ <JUMP + BOOL34>
+TAG36
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV NOD4 3 = STACK>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = RTF16>
+BOOL34
+ <TYPE? DIR10 <TYPE-CODE FALSE> + TAG41>
+ <TYPE? RESULT6 <TYPE-CODE FALSE> - TAG40>
+ <DEAD RESULT6>
+ <SET RESULT6 'T (TYPE ATOM)>
+ <JUMP + TAG41>
+TAG40
+ <SET RESULT6 %<> (TYPE FALSE)>
+TAG41
+ <EMPL? PREDS5 - PHRASE43 (TYPE LIST)>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <PUSH RESULT6>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W7>
+ <CALL '\1aMOVE-ARG 2>
+ <JUMP + MAPAP51>
+PHRASE43
+ <SET TEMP24 PREDS5 (TYPE LIST)>
+ <LOOP>
+MAP48
+ <INTGO>
+ <EMPL? TEMP24 + MAPAP51>
+ <SET BRN57 TEMP24>
+ <NTHL BRN57 1 = BR58 (TYPE NODE)>
+ <RESTL BRN57 1 = LOCN18 (TYPE LIST)>
+ <EMPL? LOCN18 - TAG60 (TYPE LIST)>
+ <DEAD LOCN18>
+ <SET LAST59 'T (TYPE ATOM)>
+ <JUMP + TAG62>
+TAG60
+ <SET LAST59 %<> (TYPE FALSE)>
+TAG62
+ <NTHUV BR58 3 = RT63>
+ <SET RTFL64 %<> (TYPE FALSE)>
+ <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE78>
+ <VEQUAL? LAST59 0 - PHRASE78>
+ <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
+ <RESTL TEMP69 1 = LOCN18 (TYPE LIST)>
+ <DEAD TEMP69>
+ <EMPL? LOCN18 - PHRASE78 (TYPE LIST)>
+ <DEAD LOCN18>
+ <FRAME '\1aISTYPE?>
+ <RESTL BRN57 1 = LOCN18 (TYPE LIST)>
+ <NTHL LOCN18 1 = LOCN18 (TYPE NODE)>
+ <NTHUV LOCN18 3 = TY65>
+ <DEAD LOCN18>
+ <PUSH TY65>
+ <CALL '\1aISTYPE? 1 = LOCN18>
+ <VEQUAL? LOCN18 'FALSE - BOOL71>
+ <DEAD LOCN18>
+ <TYPE? SRES17 <TYPE-CODE FALSE> - BOOL71>
+ <SET TY65 'FALSE (TYPE ATOM)>
+ <JUMP + BOOL70>
+BOOL71
+ <TYPE? SRES17 <TYPE-CODE FALSE> + PHRASE78>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TY65>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = LOCN18>
+ <TYPE? LOCN18 <TYPE-CODE FALSE> - PHRASE78>
+ <DEAD LOCN18>
+BOOL70
+ <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
+ <NTHL TEMP69 1 = TEMP69 (TYPE NODE)>
+ <LENUV TEMP69 = TEMP69 (TYPE FIX)>
+ <LESS? TEMP69 8 + BOOL75 (TYPE FIX)>
+ <DEAD TEMP69>
+ <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
+ <NTHL TEMP69 1 = TEMP69 (TYPE NODE)>
+ <NTHUV TEMP69 8 = TEMP69>
+ <TYPE? TEMP69 <TYPE-CODE FALSE> - PHRASE78>
+ <DEAD TEMP69>
+BOOL75
+ <EQUAL? TY65 'FALSE - PHRASE77>
+ <DEAD TY65>
+ <SET RT63 'ATOM (TYPE ATOM)>
+ <JUMP + PHRASE78>
+PHRASE77
+ <SET RT63 'FALSE (TYPE ATOM)>
+PHRASE78
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RT63>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = TEMP69>
+ <TYPE? TEMP69 <TYPE-CODE FALSE> + PHRASE80>
+ <DEAD TEMP69>
+ <FRAME '\1aISTYPE?>
+ <PUSH RT63>
+ <DEAD RT63>
+ <CALL '\1aISTYPE? 1 = TEMP69>
+ <VEQUAL? TEMP69 'FALSE - TAG83>
+ <DEAD TEMP69>
+ <SET RTFL64 'T (TYPE ATOM)>
+ <JUMP + PHRASE80>
+TAG83
+ <TYPE? BRANCH9 <TYPE-CODE FALSE> - BOOL87>
+ <TYPE? FLS15 <TYPE-CODE FALSE> + PHRASE86>
+ <VEQUAL? LAST59 0 - PHRASE86>
+BOOL87
+ <VEQUAL? LAST59 0 + PHRASE90>
+ <DEAD LAST59>
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BRANCH9>
+ <PUSH BR58>
+ <DEAD BR58>
+ <PUSH DIR10>
+ <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE93>
+ <SET TEMP69 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE99>
+PHRASE93
+ <VEQUAL? WSET14 0 - BOOL95>
+ <DEAD WSET14>
+ <TYPE? W7 <TYPE-CODE TEMP> - PHRASE94>
+ <NTHUV W7 2 = LOCN18 (TYPE FIX)>
+ <VEQUAL? LOCN18 0 - PHRASE94 (TYPE FIX)>
+ <DEAD LOCN18>
+BOOL95
+ <SET WSET14 'T (TYPE ATOM)>
+ <SET TEMP69 W7>
+ <JUMP + PHRASE99>
+PHRASE94
+ <SET WSET14 'T (TYPE ATOM)>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W7>
+ <SET TEMP69 W7>
+PHRASE99
+ <PUSH TEMP69>
+ <DEAD TEMP69>
+ <PUSH NOTF8>
+ <CALL '\1aPRED-BRANCH-GEN 5>
+ <JUMP + PHRASE166>
+PHRASE90
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <TYPE? FLS15 <TYPE-CODE FALSE> + PHRASE104>
+ <SET TEMP69 BOOL12>
+ <JUMP + PHRASE106>
+PHRASE104
+ <TYPE? RESULT6 <TYPE-CODE FALSE> + PHRASE105>
+ <SET TEMP69 BOOL12>
+ <JUMP + PHRASE106>
+PHRASE105
+ <SET TEMP69 BRANCH9>
+PHRASE106
+ <PUSH TEMP69>
+ <DEAD TEMP69>
+ <PUSH BR58>
+ <DEAD BR58>
+ <PUSH SRES17>
+ <TYPE? FLUSH13 <TYPE-CODE FALSE> - BOOL109>
+ <TYPE? RTF16 <TYPE-CODE FALSE> - PHRASE108>
+BOOL109
+ <SET TEMP69 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE115>
+PHRASE108
+ <VEQUAL? WSET14 0 - BOOL111>
+ <DEAD WSET14>
+ <TYPE? W7 <TYPE-CODE TEMP> - PHRASE110>
+ <NTHUV W7 2 = LOCN18 (TYPE FIX)>
+ <VEQUAL? LOCN18 0 - PHRASE110 (TYPE FIX)>
+ <DEAD LOCN18>
+BOOL111
+ <SET WSET14 'T (TYPE ATOM)>
+ <SET TEMP69 W7>
+ <JUMP + PHRASE115>
+PHRASE110
+ <SET WSET14 'T (TYPE ATOM)>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W7>
+ <SET TEMP69 W7>
+PHRASE115
+ <PUSH TEMP69>
+ <DEAD TEMP69>
+ <PUSH NOTF8>
+ <CALL '\1aPRED-BRANCH-GEN 5 = LOCN18>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH LOCN18>
+ <DEAD LOCN18>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <JUMP + PHRASE166>
+PHRASE86
+ <VEQUAL? LAST59 0 + PHRASE118>
+ <DEAD LAST59>
+ <FRAME '\1aGEN>
+ <PUSH BR58>
+ <DEAD BR58>
+ <PUSH W7>
+ <CALL '\1aGEN 2 = LOCN18>
+ <TYPE? FLUSH13 <TYPE-CODE FALSE> - PHRASE166>
+ <GVAL 'NO-DATUM = TEMP69>
+ <EQUAL? TEMP69 LOCN18 + PHRASE166>
+ <DEAD TEMP69>
+ <VEQUAL? WSET14 0 - PHRASE166>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W7>
+ <DEAD W7>
+ <PUSH LOCN18>
+ <DEAD LOCN18>
+ <CALL '\1aFIXUP-TEMP 2 = W7>
+ <SET WSET14 'T (TYPE ATOM)>
+ <JUMP + PHRASE166>
+PHRASE118
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BOOL12>
+ <PUSH BR58>
+ <DEAD BR58>
+ <PUSH DIR10>
+ <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE127>
+ <SET TEMP69 'FLUSHED (TYPE ATOM)>
+ <JUMP + PHRASE133>
+PHRASE127
+ <VEQUAL? WSET14 0 - BOOL129>
+ <DEAD WSET14>
+ <TYPE? W7 <TYPE-CODE TEMP> - PHRASE128>
+ <NTHUV W7 2 = LOCN18 (TYPE FIX)>
+ <VEQUAL? LOCN18 0 - PHRASE128 (TYPE FIX)>
+ <DEAD LOCN18>
+BOOL129
+ <SET WSET14 'T (TYPE ATOM)>
+ <SET TEMP69 W7>
+ <JUMP + PHRASE133>
+PHRASE128
+ <SET WSET14 'T (TYPE ATOM)>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W7>
+ <SET TEMP69 W7>
+PHRASE133
+ <PUSH TEMP69>
+ <DEAD TEMP69>
+ <PUSH NOTF8>
+ <CALL '\1aPRED-BRANCH-GEN 5 = LOCN18>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH LOCN18>
+ <DEAD LOCN18>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <JUMP + PHRASE166>
+PHRASE80
+ <TYPE? NOTF8 <TYPE-CODE FALSE> + PHRASE139>
+ <VEQUAL? RTFL64 0 - TAG140>
+ <DEAD RTFL64>
+ <SET RTFL64 'T (TYPE ATOM)>
+ <JUMP + TAG141>
+TAG140
+ <SET RTFL64 %<> (TYPE FALSE)>
+TAG141
+ <SET TEMP69 RTFL64>
+ <JUMP + PHRASE142>
+PHRASE139
+ <SET TEMP69 RTFL64>
+PHRASE142
+ <EQUAL? SRES17 TEMP69 - BOOL137>
+ <DEAD TEMP69>
+ <VEQUAL? LAST59 0 + PHRASE136>
+BOOL137
+ <VEQUAL? LAST59 0 - PHRASE144>
+ <DEAD LAST59>
+ <FRAME '\1aCOMPILE-NOTE>
+ <PUSH "NON REACHABLE AND/OR CLAUSE">
+ <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
+ <DEAD BRN57>
+ <NTHL TEMP69 1 = STACK (TYPE NODE)>
+ <DEAD TEMP69>
+ <CALL '\1aCOMPILE-NOTE 2>
+PHRASE144
+ <TYPE? BRANCH9 <TYPE-CODE FALSE> + PHRASE147>
+ <FRAME '\1aGEN>
+ <PUSH BR58>
+ <EQUAL? DIR10 RTFL64 + PHRASE150>
+ <SET TEMP69 W7>
+ <JUMP + PHRASE151>
+PHRASE150
+ <SET TEMP69 'FLUSHED (TYPE ATOM)>
+PHRASE151
+ <PUSH TEMP69>
+ <DEAD TEMP69>
+ <CALL '\1aGEN 2 = LOCN18>
+ <TYPE? FLUSH13 <TYPE-CODE FALSE> - PHRASE153>
+ <DEAD FLUSH13>
+ <GVAL 'NO-DATUM = TEMP69>
+ <EQUAL? TEMP69 LOCN18 + PHRASE153>
+ <DEAD TEMP69>
+ <VEQUAL? WSET14 0 - PHRASE153>
+ <DEAD WSET14>
+ <EQUAL? DIR10 RTFL64 + PHRASE153>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W7>
+ <DEAD W7>
+ <PUSH LOCN18>
+ <DEAD LOCN18>
+ <CALL '\1aFIXUP-TEMP 2 = W7>
+PHRASE153
+ <EQUAL? DIR10 RTFL64 + MAPAP51>
+ <DEAD DIR10 RTFL64>
+ <NTHUV BR58 3 = TEMP69>
+ <DEAD BR58>
+ <EQUAL? TEMP69 'NO-RETURN + MAPAP51>
+ <DEAD TEMP69>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BRANCH9>
+ <CALL '\1aBRANCH-TAG 1>
+ <JUMP + MAPAP51>
+PHRASE147
+ <FRAME '\1aGEN>
+ <PUSH BR58>
+ <DEAD BR58>
+ <PUSH W7>
+ <CALL '\1aGEN 2 = LOCN18>
+ <TYPE? FLUSH13 <TYPE-CODE FALSE> - MAPAP51>
+ <DEAD FLUSH13>
+ <GVAL 'NO-DATUM = TEMP69>
+ <EQUAL? TEMP69 LOCN18 + MAPAP51>
+ <DEAD TEMP69>
+ <VEQUAL? WSET14 0 - MAPAP51>
+ <DEAD WSET14>
+ <FRAME '\1aFIXUP-TEMP>
+ <PUSH W7>
+ <DEAD W7>
+ <PUSH LOCN18>
+ <DEAD LOCN18>
+ <CALL '\1aFIXUP-TEMP 2 = W7>
+ <JUMP + MAPAP51>
+PHRASE136
+ <LENUV BR58 = TEMP69 (TYPE FIX)>
+ <LESS? TEMP69 8 + BOOL169 (TYPE FIX)>
+ <DEAD TEMP69>
+ <NTHUV BR58 8 = TEMP69>
+ <TYPE? TEMP69 <TYPE-CODE FALSE> + BOOL169>
+ <DEAD TEMP69>
+ <VEQUAL? BRN57 PREDS5 - PHRASE168>
+ <DEAD BRN57>
+BOOL169
+ <FRAME '\1aCOMPILE-NOTE>
+ <PUSH "PREDICATE ALWAYS ">
+ <VEQUAL? RTFL64 0 + PHRASE173>
+ <DEAD RTFL64>
+ <SET TEMP69 "FALSE" (TYPE STRING)>
+ <JUMP + PHRASE174>
+PHRASE173
+ <SET TEMP69 "TRUE" (TYPE STRING)>
+PHRASE174
+ <PUSH TEMP69>
+ <DEAD TEMP69>
+ <PUSH " IN AND/OR">
+ <UBLOCK <TYPE-CODE STRING> 3 = STACK (TYPE STRING)>
+ <PUSH BR58>
+ <CALL '\1aCOMPILE-NOTE 2>
+PHRASE168
+ <FRAME '\1aGEN>
+ <PUSH BR58>
+ <DEAD BR58>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+PHRASE166
+ <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
+ <JUMP + MAP48>
+MAPAP51
+ <GEN-ASSIGNED? 'NPRUNE + PHRASE177>
+ <PUTUV NOD4 5 () (TYPE LIST)>
+PHRASE177
+ <TYPE? BRANCH9 <TYPE-CODE FALSE> + BOOL181>
+ <DEAD BRANCH9>
+ <TYPE? RESULT6 <TYPE-CODE FALSE> + PHRASE180>
+ <DEAD RESULT6>
+BOOL181
+ <FRAME '\1aLABEL-TAG>
+ <PUSH BOOL12>
+ <DEAD BOOL12>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE180
+ <NTHUV NOD4 3 = FLUSH13>
+ <DEAD NOD4>
+ <EQUAL? FLUSH13 'NO-RETURN - PHRASE184>
+ <DEAD FLUSH13>
+ <GVAL 'NO-DATUM = RW11>
+ <RETURN RW11>
+ <DEAD RW11>
+PHRASE184
+ <FRAME '\1aMOVE-ARG>
+ <PUSH W7>
+ <DEAD W7>
+ <PUSH RW11>
+ <DEAD RW11>
+ <CALL '\1aMOVE-ARG 2 = RW11>
+ <RETURN RW11>
+ <DEAD RW11>
+ <END \1aBOOL-GEN>
+" Generate code for ASSIGNED?"
+
+#WORD *24455747457*
+<GFCN \1aASSIGNED?-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY ANY) N9 W10 NF11 BR12 DIR13 SETF14>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <PUSH %<>>
+OPT8
+ <TEMP A15 SDIR16 FLS17 (GLOBAL20 'T) TEMP37>
+ <INTGO>
+ <NTHUV N9 4 = A15>
+ <SET SDIR16 DIR13>
+ <EQUAL? W10 'FLUSHED - TAG21>
+ <SET FLS17 'T (TYPE ATOM)>
+ <JUMP + TAG22>
+TAG21
+ <SET FLS17 %<> (TYPE FALSE)>
+TAG22
+ <EQUAL? W10 'DONT-CARE - PHRASE24>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W10>
+PHRASE24
+ <TYPE? NF11 <TYPE-CODE FALSE> + TAG29>
+ <DEAD NF11>
+ <TYPE? DIR13 <TYPE-CODE FALSE> - TAG28>
+ <DEAD DIR13>
+ <SET DIR13 'T (TYPE ATOM)>
+ <JUMP + TAG29>
+TAG28
+ <SET DIR13 %<> (TYPE FALSE)>
+TAG29
+ <TYPE? SETF14 <TYPE-CODE FALSE> + PHRASE31>
+ <DEAD SETF14>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <TYPE? SDIR16 <TYPE-CODE FALSE> - TAG35>
+ <SET TEMP37 'T (TYPE ATOM)>
+ <JUMP + TAG36>
+TAG35
+ <SET TEMP37 %<> (TYPE FALSE)>
+TAG36
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W10>
+ <CALL '\1aMOVE-ARG 2 = STACK>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+PHRASE31
+ <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE39>
+ <VEQUAL? FLS17 0 - PHRASE39>
+ <TYPE? DIR13 <TYPE-CODE FALSE> - TAG41>
+ <DEAD DIR13>
+ <SET DIR13 'T (TYPE ATOM)>
+ <JUMP + PHRASE39>
+TAG41
+ <SET DIR13 %<> (TYPE FALSE)>
+PHRASE39
+ <TYPE? A15 <TYPE-CODE SYMTAB> - PHRASE45>
+ <NTHUV A15 3 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE FALSE> - PHRASE45>
+ <DEAD TEMP37>
+ <FRAME '\1aLADDR>
+ <PUSH A15>
+ <DEAD A15>
+ <CALL '\1aLADDR 1 = A15>
+ <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE49>
+ <VEQUAL? FLS17 0 + PHRASE49>
+ <DEAD FLS17>
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH A15>
+ <DEAD A15>
+ <PUSH 'UNBOUND>
+ <PUSH BR12>
+ <DEAD BR12>
+ <TYPE? DIR13 <TYPE-CODE FALSE> - TAG52>
+ <DEAD DIR13>
+ <SET TEMP37 'T (TYPE ATOM)>
+ <JUMP + TAG53>
+TAG52
+ <SET TEMP37 %<> (TYPE FALSE)>
+TAG53
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <CALL '\1aGEN-TYPE? 4>
+ <RETURN 'FLUSHED>
+PHRASE49
+ <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE54>
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH A15>
+ <DEAD A15>
+ <PUSH 'UNBOUND>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = FLS17>
+ <PUSH FLS17>
+ <TYPE? DIR13 <TYPE-CODE FALSE> - TAG57>
+ <DEAD DIR13>
+ <SET TEMP37 'T (TYPE ATOM)>
+ <JUMP + TAG58>
+TAG57
+ <SET TEMP37 %<> (TYPE FALSE)>
+TAG58
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <CALL '\1aGEN-TYPE? 4>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <PUSH SDIR16>
+ <DEAD SDIR16>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W10>
+ <DEAD W10>
+ <CALL '\1aMOVE-ARG 2 = W10>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BR12>
+ <DEAD BR12>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH FLS17>
+ <DEAD FLS17>
+ <CALL '\1aLABEL-TAG 1>
+ <RETURN W10>
+ <DEAD W10>
+PHRASE54
+ <FRAME '\1aGEN-TYPE?>
+ <PUSH A15>
+ <DEAD A15>
+ <PUSH 'UNBOUND>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = BR12>
+ <PUSH BR12>
+ <TYPE? DIR13 <TYPE-CODE FALSE> - TAG67>
+ <DEAD DIR13>
+ <SET TEMP37 'T (TYPE ATOM)>
+ <JUMP + TAG68>
+TAG67
+ <SET TEMP37 %<> (TYPE FALSE)>
+TAG68
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <CALL '\1aGEN-TYPE? 4>
+ <FRAME '\1aTRUE-FALSE>
+ <PUSH N9>
+ <DEAD N9>
+ <PUSH BR12>
+ <DEAD BR12>
+ <PUSH W10>
+ <DEAD W10>
+ <CALL '\1aTRUE-FALSE 3 = TEMP37>
+ <RETURN TEMP37>
+ <DEAD TEMP37>
+PHRASE45
+ <TYPE? A15 <TYPE-CODE SYMTAB> - PHRASE72>
+ <NTHUV A15 4 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 -1 + PHRASE74 (TYPE FIX)>
+ <DEAD TEMP37>
+ <SET GLOBAL20 %<> (TYPE FALSE)>
+PHRASE74
+ <NTHUV A15 2 = A15 (TYPE ATOM)>
+ <JUMP + PHRASE77>
+PHRASE72
+ <FRAME '\1aGEN>
+ <NTHUV N9 5 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = STACK (TYPE NODE)>
+ <DEAD TEMP37>
+ <CALL '\1aGEN 1 = A15>
+PHRASE77
+ <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE80>
+ <VEQUAL? FLS17 0 + PHRASE80>
+ <DEAD FLS17>
+ <FRAME '\1aASS-GEN>
+ <PUSH A15>
+ <PUSH BR12>
+ <DEAD BR12>
+ <PUSH DIR13>
+ <DEAD DIR13>
+ <PUSH GLOBAL20>
+ <DEAD GLOBAL20>
+ <CALL '\1aASS-GEN 4>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH A15>
+ <DEAD A15>
+ <CALL '\1aFREE-TEMP 1>
+ <RETURN 'FLUSHED>
+PHRASE80
+ <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE84>
+ <FRAME '\1aASS-GEN>
+ <PUSH A15>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = FLS17>
+ <PUSH FLS17>
+ <PUSH DIR13>
+ <DEAD DIR13>
+ <PUSH GLOBAL20>
+ <DEAD GLOBAL20>
+ <CALL '\1aASS-GEN 4>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <PUSH SDIR16>
+ <DEAD SDIR16>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W10>
+ <DEAD W10>
+ <CALL '\1aMOVE-ARG 2 = W10>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BR12>
+ <DEAD BR12>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH FLS17>
+ <DEAD FLS17>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH A15>
+ <DEAD A15>
+ <CALL '\1aFREE-TEMP 1>
+ <RETURN W10>
+ <DEAD W10>
+PHRASE84
+ <FRAME '\1aASS-GEN>
+ <PUSH A15>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = BR12>
+ <PUSH BR12>
+ <PUSH DIR13>
+ <DEAD DIR13>
+ <PUSH GLOBAL20>
+ <DEAD GLOBAL20>
+ <CALL '\1aASS-GEN 4>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH A15>
+ <DEAD A15>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aTRUE-FALSE>
+ <PUSH N9>
+ <DEAD N9>
+ <PUSH BR12>
+ <DEAD BR12>
+ <PUSH W10>
+ <DEAD W10>
+ <CALL '\1aTRUE-FALSE 3 = TEMP37>
+ <RETURN TEMP37>
+ <DEAD TEMP37>
+ <END \1aASSIGNED?-GEN>
+#WORD *10225133337*
+<GFCN \1aGASSIGNED?-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY ANY) N9 W10 NF11 BR12 DIR13 SETF14>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <PUSH %<>>
+OPT8
+ <TEMP A15 SDIR16 NM17 FLS18>
+ <INTGO>
+ <SET SDIR16 DIR13>
+ <NTHUV N9 4 = NM17>
+ <EQUAL? W10 'FLUSHED - TAG21>
+ <SET FLS18 'T (TYPE ATOM)>
+ <JUMP + TAG22>
+TAG21
+ <SET FLS18 %<> (TYPE FALSE)>
+TAG22
+ <EQUAL? W10 'DONT-CARE - PHRASE24>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W10>
+PHRASE24
+ <TYPE? NF11 <TYPE-CODE FALSE> + TAG29>
+ <DEAD NF11>
+ <TYPE? DIR13 <TYPE-CODE FALSE> - TAG28>
+ <DEAD DIR13>
+ <SET DIR13 'T (TYPE ATOM)>
+ <JUMP + TAG29>
+TAG28
+ <SET DIR13 %<> (TYPE FALSE)>
+TAG29
+ <TYPE? SETF14 <TYPE-CODE FALSE> + PHRASE31>
+ <DEAD SETF14>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <TYPE? SDIR16 <TYPE-CODE FALSE> - TAG35>
+ <SET A15 'T (TYPE ATOM)>
+ <JUMP + TAG36>
+TAG35
+ <SET A15 %<> (TYPE FALSE)>
+TAG36
+ <PUSH A15>
+ <DEAD A15>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W10>
+ <CALL '\1aMOVE-ARG 2 = STACK>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+PHRASE31
+ <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE39>
+ <VEQUAL? FLS18 0 - PHRASE39>
+ <TYPE? DIR13 <TYPE-CODE FALSE> - TAG41>
+ <DEAD DIR13>
+ <SET DIR13 'T (TYPE ATOM)>
+ <JUMP + PHRASE39>
+TAG41
+ <SET DIR13 %<> (TYPE FALSE)>
+PHRASE39
+ <FRAME '\1aGEN>
+ <NTHUV N9 5 = A15 (TYPE LIST)>
+ <NTHL A15 1 = STACK (TYPE NODE)>
+ <DEAD A15>
+ <CALL '\1aGEN 1 = A15>
+ <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE46>
+ <VEQUAL? FLS18 0 + PHRASE46>
+ <DEAD FLS18>
+ <FRAME '\1aGEN-GASS>
+ <PUSH A15>
+ <DEAD A15>
+ <PUSH BR12>
+ <DEAD BR12>
+ <PUSH DIR13>
+ <DEAD DIR13>
+ <PUSH NM17>
+ <DEAD NM17>
+ <CALL '\1aGEN-GASS 4>
+ <RETURN 'FLUSHED>
+PHRASE46
+ <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE49>
+ <FRAME '\1aGEN-GASS>
+ <PUSH A15>
+ <DEAD A15>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = A15>
+ <PUSH A15>
+ <PUSH DIR13>
+ <DEAD DIR13>
+ <PUSH NM17>
+ <DEAD NM17>
+ <CALL '\1aGEN-GASS 4>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <PUSH SDIR16>
+ <DEAD SDIR16>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W10>
+ <DEAD W10>
+ <CALL '\1aMOVE-ARG 2 = W10>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH BR12>
+ <DEAD BR12>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH A15>
+ <DEAD A15>
+ <CALL '\1aLABEL-TAG 1>
+ <RETURN W10>
+ <DEAD W10>
+PHRASE49
+ <FRAME '\1aGEN-GASS>
+ <PUSH A15>
+ <DEAD A15>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = BR12>
+ <PUSH BR12>
+ <PUSH DIR13>
+ <DEAD DIR13>
+ <PUSH NM17>
+ <DEAD NM17>
+ <CALL '\1aGEN-GASS 4>
+ <FRAME '\1aTRUE-FALSE>
+ <PUSH N9>
+ <DEAD N9>
+ <PUSH BR12>
+ <DEAD BR12>
+ <PUSH W10>
+ <DEAD W10>
+ <CALL '\1aTRUE-FALSE 3 = A15>
+ <RETURN A15>
+ <DEAD A15>
+ <END \1aGASSIGNED?-GEN>
+#WORD *25772771354*
+<GFCN \1aTRUE-FALSE ("VALUE" ANY NODE ATOM ANY "OPTIONAL" ANY) N6 B7 W8 THIS9>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5>
+OPT4
+ <PUSH 'T>
+OPT5
+ <TEMP RW10 B2-11:ATOM TEMP21>
+ <INTGO>
+ <SET RW10 W8>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = B2-11>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <PUSH THIS9>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W8>
+ <CALL '\1aMOVE-ARG 2>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH B2-11>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH B7>
+ <DEAD B7>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <TYPE? THIS9 <TYPE-CODE FALSE> - TAG19>
+ <DEAD THIS9>
+ <SET TEMP21 'T (TYPE ATOM)>
+ <JUMP + TAG20>
+TAG19
+ <SET TEMP21 %<> (TYPE FALSE)>
+TAG20
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH W8>
+ <CALL '\1aMOVE-ARG 2>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH B2-11>
+ <DEAD B2-11>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH W8>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH W8>
+ <DEAD W8>
+ <PUSH RW10>
+ <DEAD RW10>
+ <CALL '\1aMOVE-ARG 2 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aTRUE-FALSE>
+" Generate code for LVAL."
+
+#WORD *20340106636*
+<GFCN \1aLVAL-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP SYM6 (ADDR8 %<>) TT7 TEMP35 LL63:LIST>
+ <INTGO>
+ <NTHUV NOD4 4 = SYM6 (TYPE SYMTAB)>
+ <NTHUV NOD4 7 = TT7 (TYPE LIST)>
+ <EMPL? TT7 + PHRASE13>
+ <RESTL TT7 1 = ADDR8 (TYPE LIST)>
+ <EMPL? ADDR8 + PHRASE13>
+ <RESTL ADDR8 1 = ADDR8 (TYPE LIST)>
+ <EMPL? ADDR8 - PHRASE13>
+ <DEAD ADDR8>
+ <RESTL TT7 1 = ADDR8 (TYPE LIST)>
+ <DEAD TT7>
+ <NTHL ADDR8 1 = TT7>
+ <DEAD ADDR8>
+ <JUMP + PHRASE15>
+PHRASE13
+ <SET TT7 'T (TYPE ATOM)>
+PHRASE15
+ <NTHUV NOD4 3 = ADDR8>
+ <EQUAL? ADDR8 'NO-RETURN - PHRASE17>
+ <DEAD ADDR8>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Variable referenced before initialization: ">
+ <NTHUV SYM6 2 = STACK (TYPE ATOM)>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE17
+ <FRAME '\1aMOVE-ARG>
+ <NTHUV SYM6 3 = ADDR8>
+ <TYPE? ADDR8 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD ADDR8>
+ <NTHUV SYM6 4 = ADDR8 (TYPE FIX)>
+ <VEQUAL? ADDR8 -1 + PHRASE21 (TYPE FIX)>
+ <DEAD ADDR8>
+ <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE26>
+ <SET ADDR8 WHERE5>
+ <JUMP + PHRASE28>
+PHRASE26
+ <GVAL 'POP-STACK = ADDR8>
+ <EQUAL? ADDR8 WHERE5 - PHRASE27>
+ <DEAD ADDR8>
+ <SET ADDR8 WHERE5>
+ <JUMP + PHRASE28>
+PHRASE27
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = ADDR8>
+PHRASE28
+ <TYPE? ADDR8 <TYPE-CODE TEMP> - PHRASE31>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH ADDR8>
+ <NTHUV SYM6 7 = STACK>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE31
+ <FRAME '\1aGET-VALUE-X>
+ <NTHUV SYM6 2 = STACK (TYPE ATOM)>
+ <DEAD SYM6>
+ <PUSH ADDR8>
+ <CALL '\1aGET-VALUE-X 2>
+ <JUMP + PHRASE70>
+PHRASE21
+ <NTHUV SYM6 3 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE34>
+ <DEAD TEMP35>
+ <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE37>
+ <SET ADDR8 WHERE5>
+ <JUMP + PHRASE38>
+PHRASE37
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = ADDR8>
+PHRASE38
+ <FRAME '\1aUSE-TEMP>
+ <PUSH ADDR8>
+ <CALL '\1aUSE-TEMP 1>
+ <FRAME '\1aSTART-FRAME>
+ <PUSH 'LVAL>
+ <CALL '\1aSTART-FRAME 1>
+ <FRAME '\1aPUSH-CONSTANT>
+ <NTHUV SYM6 2 = STACK (TYPE ATOM)>
+ <DEAD SYM6>
+ <CALL '\1aPUSH-CONSTANT 1>
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH 'LVAL>
+ <PUSH 1>
+ <PUSH ADDR8>
+ <CALL '\1aMSUBR-CALL 3>
+ <JUMP + PHRASE70>
+PHRASE34
+ <FRAME '\1aLADDR>
+ <PUSH SYM6>
+ <CALL '\1aLADDR 1 = ADDR8>
+ <TYPE? ADDR8 <TYPE-CODE TEMP> - PHRASE70>
+ <GVAL 'DEATH = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + MAPAP54>
+ <DEAD TEMP35>
+ <TYPE? TT7 <TYPE-CODE FALSE> - MAPAP54>
+ <DEAD TT7>
+ <NTHUV SYM6 3 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> - MAPAP54>
+ <DEAD TEMP35>
+ <GEN-LVAL 'NO-KILL = TT7>
+ <LOOP>
+MAP51
+ <INTGO>
+ <EMPL? TT7 + PHRASE70>
+ <NTHL TT7 1 = LL63>
+ <NTHL LL63 1 = TEMP35>
+ <EQUAL? TEMP35 SYM6 - BOOL64>
+ <DEAD TEMP35>
+ <RESTL LL63 1 = TEMP35 (TYPE LIST)>
+ <DEAD LL63>
+ <PUTL TEMP35 1 'T>
+ <DEAD TEMP35>
+ <JUMP + MAPAP54>
+BOOL64
+ <RESTL TT7 1 = TT7 (TYPE LIST)>
+ <JUMP + MAP51>
+MAPAP54
+ <NTHUV ADDR8 2 = SYM6 (TYPE FIX)>
+ <VEQUAL? SYM6 0 - PHRASE66 (TYPE FIX)>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH ADDR8>
+ <CALL '\1aUSE-TEMP 1>
+ <JUMP + PHRASE70>
+PHRASE66
+ <ADD SYM6 1 = SYM6 (TYPE FIX)>
+ <PUTUV ADDR8 2 SYM6 (TYPE FIX)>
+ <DEAD SYM6>
+PHRASE70
+ <PUSH ADDR8>
+ <DEAD ADDR8>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <CALL '\1aMOVE-ARG 2 = TT7>
+ <RETURN TT7>
+ <DEAD TT7>
+ <END \1aLVAL-GEN>
+#WORD *32424226610*
+<GFCN \1aDELAY-KILL ("VALUE" ATOM <LIST [REST !<LIST SYMTAB <OR ATOM FALSE>>]> <LIST [REST !<LIST SYMTAB <OR ATOM FALSE>>]>) L1-4 L2-5>
+ <TEMP TEMP16 TT6>
+ <INTGO>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <VEQUAL? L1-4 L2-5 + BOOL15>
+ <GVAL 'DEATH = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE14>
+ <DEAD TEMP16>
+BOOL15
+ <RETURN 'T>
+PHRASE14
+ <NTHL L1-4 1 = TT6 (TYPE LIST)>
+ <RESTL TT6 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE18>
+ <DEAD TEMP16>
+ <NTHL TT6 1 = TEMP16 (TYPE SYMTAB)>
+ <DEAD TT6>
+ <NTHUV TEMP16 10 = TT6>
+ <DEAD TEMP16>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TT6>
+ <DEAD TT6>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE18
+ <RESTL L1-4 1 = L1-4 (TYPE LIST)>
+ <JUMP + AGAIN12>
+ <END \1aDELAY-KILL>
+" Generate LVAL for free variable."
+
+#WORD *632041036*
+<GFCN \1aFLVAL-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP TMP6 T1-7>
+ <INTGO>
+ <EQUAL? WHERE5 'DONT-CARE - PHRASE9>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TMP6>
+ <JUMP + PHRASE11>
+PHRASE9
+ <SET TMP6 WHERE5>
+PHRASE11
+ <TYPE? TMP6 <TYPE-CODE TEMP> - PHRASE13>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH TMP6>
+ <CALL '\1aUSE-TEMP 1>
+PHRASE13
+ <NTHUV NOD4 4 = T1-7>
+ <TYPE? T1-7 <TYPE-CODE SYMTAB> - PHRASE16>
+ <NTHUV T1-7 2 = T1-7 (TYPE ATOM)>
+ <JUMP + PHRASE19>
+PHRASE16
+ <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
+ <NTHL T1-7 1 = T1-7 (TYPE NODE)>
+ <NTHUV T1-7 1 = T1-7 (TYPE FIX)>
+ <VEQUAL? T1-7 2 - PHRASE17 (TYPE FIX)>
+ <DEAD T1-7>
+ <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
+ <DEAD NOD4>
+ <NTHL T1-7 1 = T1-7 (TYPE NODE)>
+ <NTHUV T1-7 4 = T1-7>
+ <JUMP + PHRASE19>
+PHRASE17
+ <FRAME '\1aGEN>
+ <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
+ <DEAD NOD4>
+ <NTHL T1-7 1 = STACK (TYPE NODE)>
+ <DEAD T1-7>
+ <CALL '\1aGEN 1 = T1-7>
+PHRASE19
+ <FRAME '\1aGET-VALUE-X>
+ <PUSH T1-7>
+ <PUSH TMP6>
+ <PUSH 'T>
+ <CALL '\1aGET-VALUE-X 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH T1-7>
+ <DEAD T1-7>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TMP6>
+ <DEAD TMP6>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <CALL '\1aMOVE-ARG 2 = T1-7>
+ <RETURN T1-7>
+ <DEAD T1-7>
+ <END \1aFLVAL-GEN>
+#WORD *31521364741*
+<GFCN \1aFSET-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP (TEM7 %<>) TEMP11 TEMP12 T1-8>
+ <INTGO>
+ <NTHUV NOD4 9 = TEMP11>
+ <GVAL 'SET = TEMP12>
+ <EQUAL? TEMP11 TEMP12 - PHRASE10>
+ <DEAD TEMP11 TEMP12>
+ <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEM7 (TYPE NODE)>
+ <DEAD TEMP12>
+PHRASE10
+ <NTHUV NOD4 4 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE SYMTAB> - PHRASE14>
+ <NTHUV TEMP11 2 = TEMP11 (TYPE ATOM)>
+ <JUMP + PHRASE19>
+PHRASE14
+ <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
+ <DEAD NOD4>
+ <NTHL TEMP12 1 = T1-8 (TYPE NODE)>
+ <DEAD TEMP12>
+ <NTHUV T1-8 1 = TEMP12 (TYPE FIX)>
+ <VEQUAL? TEMP12 2 - PHRASE15 (TYPE FIX)>
+ <DEAD TEMP12>
+ <NTHUV T1-8 4 = TEMP11>
+ <DEAD T1-8>
+ <JUMP + PHRASE19>
+PHRASE15
+ <FRAME '\1aGEN>
+ <PUSH T1-8>
+ <DEAD T1-8>
+ <CALL '\1aGEN 1 = TEMP11>
+ <TYPE? TEM7 <TYPE-CODE FALSE> + PHRASE19>
+ <FRAME '\1aINTERF-CHANGE>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <PUSH TEM7>
+ <CALL '\1aINTERF-CHANGE 2 = TEMP11>
+PHRASE19
+ <TYPE? TEM7 <TYPE-CODE FALSE> + PHRASE22>
+ <FRAME '\1aGEN>
+ <PUSH TEM7>
+ <DEAD TEM7>
+ <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE25>
+ <SET TEMP12 WHERE5>
+ <JUMP + PHRASE26>
+PHRASE25
+ <SET TEMP12 'DONT-CARE (TYPE ATOM)>
+PHRASE26
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aGEN 2 = T1-8>
+ <JUMP + PHRASE27>
+PHRASE22
+ <GVAL 'THE-UNBOUND = T1-8>
+PHRASE27
+ <FRAME '\1aSET-VALUE>
+ <PUSH TEMP11>
+ <PUSH T1-8>
+ <DEAD T1-8>
+ <PUSH 'T>
+ <CALL '\1aSET-VALUE 3 = T1-8>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP11>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aMOVE-ARG>
+ <GVAL 'THE-UNBOUND = TEMP12>
+ <EQUAL? TEMP12 T1-8 - PHRASE32>
+ <DEAD TEMP12>
+ <SET TEMP12 TEMP11>
+ <DEAD TEMP11>
+ <JUMP + PHRASE33>
+PHRASE32
+ <SET TEMP12 T1-8>
+ <DEAD T1-8>
+PHRASE33
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <CALL '\1aMOVE-ARG 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aFSET-GEN>
+" Generate code for an internal SET."
+
+#WORD *21500464461*
+<GFCN \1aSET-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NOTF10 BRANCH11 DIR12>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP (SYM13 %<>) TEMP20 NM19 TEMP38>
+ <INTGO>
+ <NTHUV NOD8 4 = SYM13 (TYPE SYMTAB)>
+ <NTHUV NOD8 9 = TEMP20>
+ <NTHUV TEMP20 2 = NM19>
+ <DEAD TEMP20>
+ <NTHUV SYM13 3 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP20>
+ <NTHUV SYM13 4 = TEMP20 (TYPE FIX)>
+ <VEQUAL? TEMP20 -1 + PHRASE22 (TYPE FIX)>
+ <DEAD TEMP20>
+ <EQUAL? NM19 'SET - PHRASE27>
+ <DEAD NM19>
+ <FRAME '\1aGEN>
+ <NTHUV NOD8 5 = TEMP20 (TYPE LIST)>
+ <DEAD NOD8>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <NTHL TEMP20 1 = STACK (TYPE NODE)>
+ <DEAD TEMP20>
+ <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE30>
+ <SET TEMP20 WHERE9>
+ <JUMP + PHRASE31>
+PHRASE30
+ <SET TEMP20 'DONT-CARE (TYPE ATOM)>
+PHRASE31
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aGEN 2 = TEMP20>
+ <FRAME '\1aSET-VALUE>
+ <NTHUV SYM13 2 = STACK (TYPE ATOM)>
+ <DEAD SYM13>
+ <PUSH TEMP20>
+ <CALL '\1aSET-VALUE 2>
+ <JUMP + PHRASE33>
+PHRASE27
+ <FRAME '\1aSET-VALUE>
+ <NTHUV SYM13 2 = STACK (TYPE ATOM)>
+ <GVAL 'THE-UNBOUND = STACK>
+ <CALL '\1aSET-VALUE 2>
+ <NTHUV SYM13 2 = TEMP20 (TYPE ATOM)>
+ <DEAD SYM13>
+PHRASE33
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <CALL '\1aMOVE-ARG 2 = TEMP20>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE22
+ <NTHUV SYM13 3 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD TEMP38>
+ <EQUAL? NM19 'UNASSIGN - PHRASE36>
+ <FRAME '\1aSTART-FRAME>
+ <PUSH 'UNASSIGN>
+ <CALL '\1aSTART-FRAME 1>
+ <FRAME '\1aPUSH-CONSTANT>
+ <NTHUV SYM13 2 = STACK (TYPE ATOM)>
+ <DEAD SYM13>
+ <CALL '\1aPUSH-CONSTANT 1>
+ <EQUAL? WHERE9 'DONT-CARE - PHRASE42>
+ <FRAME '\1aGEN-TEMP>
+ <NTHUV NOD8 3 = STACK>
+ <DEAD NOD8>
+ <CALL '\1aGEN-TEMP 1 = WHERE9>
+ <JUMP + PHRASE44>
+PHRASE42
+ <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE44>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE9>
+ <NTHUV NOD8 3 = STACK>
+ <DEAD NOD8>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE44
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH 'UNASSIGN>
+ <PUSH 1>
+ <PUSH WHERE9>
+ <CALL '\1aMSUBR-CALL 3>
+ <EQUAL? WHERE9 'FLUSHED - PHRASE48>
+ <GVAL 'NO-DATUM = TEMP20>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE48
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+PHRASE36
+ <NTHUV SYM13 3 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE50>
+ <DEAD TEMP38>
+ <FRAME '\1aSTART-FRAME>
+ <PUSH 'SET>
+ <CALL '\1aSTART-FRAME 1>
+ <FRAME '\1aPUSH-CONSTANT>
+ <NTHUV SYM13 2 = STACK (TYPE ATOM)>
+ <DEAD SYM13>
+ <CALL '\1aPUSH-CONSTANT 1>
+ <FRAME '\1aGEN>
+ <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <NTHL TEMP38 1 = STACK (TYPE NODE)>
+ <DEAD TEMP38>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+ <EQUAL? WHERE9 'DONT-CARE - PHRASE55>
+ <FRAME '\1aGEN-TEMP>
+ <NTHUV NOD8 3 = STACK>
+ <DEAD NOD8>
+ <CALL '\1aGEN-TEMP 1 = WHERE9>
+ <JUMP + PHRASE57>
+PHRASE55
+ <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE57>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE9>
+ <NTHUV NOD8 3 = STACK>
+ <DEAD NOD8>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE57
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH 'SET>
+ <PUSH 2>
+ <PUSH WHERE9>
+ <CALL '\1aMSUBR-CALL 3>
+ <EQUAL? WHERE9 'FLUSHED - PHRASE61>
+ <GVAL 'NO-DATUM = TEMP20>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+PHRASE61
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+PHRASE50
+ <FRAME '\1aLADDR>
+ <PUSH SYM13>
+ <CALL '\1aLADDR 1 = TEMP20>
+ <NTHUV TEMP20 4 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE66>
+ <DEAD TEMP38>
+ <FRAME '\1aISTYPE?>
+ <NTHUV SYM13 7 = STACK>
+ <DEAD SYM13>
+ <CALL '\1aISTYPE? 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE66>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH TEMP38>
+ <CALL '\1aTYPEPRIM 1 = SYM13>
+ <EQUAL? SYM13 'FIX + BOOL72>
+ <EQUAL? SYM13 'WORD + BOOL72>
+ <EQUAL? SYM13 'LIST - PHRASE66>
+ <DEAD SYM13>
+BOOL72
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH TEMP20>
+ <PUSH TEMP38>
+ <DEAD TEMP38>
+ <CALL '\1aUSE-TEMP 2 = STACK>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+PHRASE66
+ <EQUAL? NM19 'SET - PHRASE77>
+ <DEAD NM19>
+ <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE79>
+ <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG83>
+ <DEAD NOTF10>
+ <TYPE? DIR12 <TYPE-CODE FALSE> - TAG82>
+ <DEAD DIR12>
+ <SET DIR12 'T (TYPE ATOM)>
+ <JUMP + TAG83>
+TAG82
+ <SET DIR12 %<> (TYPE FALSE)>
+TAG83
+ <FRAME '\1aPRED-BRANCH-GEN>
+ <PUSH BRANCH11>
+ <DEAD BRANCH11>
+ <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
+ <DEAD NOD8>
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <NTHL TEMP38 1 = STACK (TYPE NODE)>
+ <DEAD TEMP38>
+ <PUSH DIR12>
+ <DEAD DIR12>
+ <PUSH TEMP20>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aPRED-BRANCH-GEN 6>
+ <JUMP + PHRASE87>
+PHRASE79
+ <FRAME '\1aGEN>
+ <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
+ <DEAD NOD8>
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <NTHL TEMP38 1 = STACK (TYPE NODE)>
+ <DEAD TEMP38>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aGEN 2 = TEMP20>
+ <JUMP + PHRASE87>
+PHRASE77
+ <FRAME '\1aMOVE-ARG>
+ <GVAL 'THE-UNBOUND = STACK>
+ <PUSH TEMP20>
+ <CALL '\1aMOVE-ARG 2>
+PHRASE87
+ <TYPE? TEMP20 <TYPE-CODE TEMP> - PHRASE90>
+ <NTHUV TEMP20 2 = SYM13 (TYPE FIX)>
+ <VEQUAL? SYM13 0 - PHRASE92 (TYPE FIX)>
+ <SET SYM13 1 (TYPE FIX)>
+PHRASE92
+ <ADD SYM13 1 = TEMP38 (TYPE FIX)>
+ <DEAD SYM13>
+ <PUTUV TEMP20 2 TEMP38 (TYPE FIX)>
+ <DEAD TEMP38>
+PHRASE90
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <CALL '\1aMOVE-ARG 2 = TEMP20>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+ <END \1aSET-GEN>\r\r
+#WORD *27477421233*
+<GFCN \1aARG? ("VALUE" <OR ATOM !<FALSE>> SYMTAB) SYM4>
+ <TEMP TEMP5 TEMP6>
+ <INTGO>
+ <GVAL 'ARGTBL = TEMP5>
+ <NTHUV SYM4 4 = TEMP6 (TYPE FIX)>
+ <DEAD SYM4>
+ <NTHUU TEMP5 TEMP6 = TEMP5 (TYPE FIX)>
+ <DEAD TEMP6>
+ <VEQUAL? TEMP5 1 - TAG8 (TYPE FIX)>
+ <DEAD TEMP5>
+ <RETURN 'T>
+TAG8
+ <RETURN %<>>
+ <END \1aARG?>
+#WORD *27337411731*
+<GFCN \1aOPT? ("VALUE" <OR ATOM !<FALSE>> SYMTAB) SYM4>
+ <TEMP TEMP5 TEMP6>
+ <INTGO>
+ <GVAL 'OPTBL = TEMP5>
+ <NTHUV SYM4 4 = TEMP6 (TYPE FIX)>
+ <DEAD SYM4>
+ <NTHUU TEMP5 TEMP6 = TEMP5 (TYPE FIX)>
+ <DEAD TEMP6>
+ <VEQUAL? TEMP5 1 - TAG8 (TYPE FIX)>
+ <DEAD TEMP5>
+ <RETURN 'T>
+TAG8
+ <RETURN %<>>
+ <END \1aOPT?>
+<SETG OPTBL ![0 0 0 0 0 1 1 1 1 0 0 0 0!]>
+
+<SETG ARGTBL ![0 0 0 0 1 0 0 0 0 1 0 1 1!]>
+
+<GDECL (OPTBL ARGTBL) <UVECTOR [REST FIX]>>
+
+" Compute the address of a local variable using the stack model."
+
+#WORD *23757717642*
+<GFCN \1aLADDR ("VALUE" ANY SYMTAB) S4>
+ <TEMP TEMP5>
+ <INTGO>
+ <NTHUV S4 10 = TEMP5>
+ <DEAD S4>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aLADDR>
+" Generate obscure stuff."
+
+#WORD *25234556454*
+<GFCN \1aDEFAULT-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aMOVE-ARG>
+ <FRAME '\1aREFERENCE>
+ <NTHUV NOD4 4 = STACK>
+ <DEAD NOD4>
+ <CALL '\1aREFERENCE 1 = STACK>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <CALL '\1aMOVE-ARG 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aDEFAULT-GEN>
+" Do GVAL using direct locative reference."
+
+#WORD *20000064104*
+ <GFCN \1aGVAL-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP RT6 TYP7 TEMP10>
+ <INTGO>
+ <NTHUV N4 3 = RT6>
+ <FRAME '\1aISTYPE?>
+ <PUSH RT6>
+ <CALL '\1aISTYPE? 1 = TYP7>
+ <FRAME '\1aGEN-GVAL>
+ <NTHUV N4 5 = TEMP10 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP10 1 = TEMP10 (TYPE NODE)>
+ <NTHUV TEMP10 4 = STACK>
+ <DEAD TEMP10>
+ <EQUAL? W5 'DONT-CARE - PHRASE12>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH RT6>
+ <DEAD RT6>
+ <CALL '\1aGEN-TEMP 1 = W5>
+ <SET TEMP10 W5>
+ <JUMP + PHRASE16>
+PHRASE12
+ <TYPE? W5 <TYPE-CODE TEMP> - PHRASE14>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH W5>
+ <PUSH RT6>
+ <DEAD RT6>
+ <CALL '\1aUSE-TEMP 2>
+ <SET TEMP10 W5>
+ <JUMP + PHRASE16>
+PHRASE14
+ <SET TEMP10 W5>
+PHRASE16
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH TYP7>
+ <DEAD TYP7>
+ <CALL '\1aGEN-GVAL 3>
+ <RETURN W5>
+ <DEAD W5>
+ <END \1aGVAL-GEN>
+
+" Do SETG using direct locative reference."
+
+#WORD *12524545626*
+<GFCN \1aSETG-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP TEMP8 TEM6 TEMP12:FIX>
+ <INTGO>
+ <FRAME '\1aGEN>
+ <NTHUV N4 5 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK (TYPE NODE)>
+ <DEAD TEMP8>
+ <CALL '\1aGEN 1 = TEM6>
+ <FRAME '\1aGEN-SETG>
+ <NTHUV N4 5 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = TEMP8 (TYPE NODE)>
+ <NTHUV TEMP8 4 = STACK>
+ <DEAD TEMP8>
+ <PUSH TEM6>
+ <NTHUV N4 5 = TEMP8 (TYPE LIST)>
+ <SET TEMP12 3 (TYPE FIX)>
+ <LOOP (TEMP8 VALUE) (TEMP12 VALUE)>
+TAG13
+ <EMPL? TEMP8 + PHRASE11>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <GRTR? TEMP12 0 + TAG13 (TYPE FIX)>
+ <EMPL? TEMP8 - PHRASE11>
+ <DEAD TEMP8>
+ <FRAME '\1aGEN>
+ <NTHUV N4 5 = TEMP8 (TYPE LIST)>
+ <DEAD N4>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK (TYPE NODE)>
+ <DEAD TEMP8>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = TEMP8>
+ <JUMP + PHRASE15>
+PHRASE11
+ <SET TEMP8 %<> (TYPE FALSE)>
+PHRASE15
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN-SETG 4>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TEM6>
+ <DEAD TEM6>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMOVE-ARG 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aSETG-GEN>
+" Generate GVAL calls."
+
+#WORD *24734575543*
+ <GFCN \1aFGVAL-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP TEMP9 TEM6>
+ <INTGO>
+ <FRAME '\1aGEN-GVAL>
+ <FRAME '\1aGEN>
+ <NTHUV N4 5 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK (TYPE NODE)>
+ <DEAD TEMP9>
+ <CALL '\1aGEN 1 = TEM6>
+ <PUSH TEM6>
+ <EQUAL? W5 'DONT-CARE - PHRASE11>
+ <FRAME '\1aGEN-TEMP>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <CALL '\1aGEN-TEMP 1 = W5>
+ <SET TEMP9 W5>
+ <JUMP + PHRASE15>
+PHRASE11
+ <TYPE? W5 <TYPE-CODE TEMP> - PHRASE13>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH W5>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <CALL '\1aUSE-TEMP 2>
+ <SET TEMP9 W5>
+ <JUMP + PHRASE15>
+PHRASE13
+ <SET TEMP9 W5>
+PHRASE15
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <CALL '\1aGEN-GVAL 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEM6>
+ <DEAD TEM6>
+ <CALL '\1aFREE-TEMP 1>
+ <RETURN W5>
+ <DEAD W5>
+ <END \1aFGVAL-GEN>
+
+" Generate a SETG call."
+
+#WORD *13255413604*
+<GFCN \1aFSETG-GEN ("VALUE" ANY NODE ANY) NOD4 W5>
+ <TEMP TEMP9 ATM7 TEM6 TEMP18:FIX>
+ <INTGO>
+ <FRAME '\1aGEN>
+ <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK (TYPE NODE)>
+ <DEAD TEMP9>
+ <CALL '\1aGEN 1 = ATM7>
+ <FRAME '\1aINTERF-CHANGE>
+ <PUSH ATM7>
+ <DEAD ATM7>
+ <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK (TYPE NODE)>
+ <DEAD TEMP9>
+ <CALL '\1aINTERF-CHANGE 2 = ATM7>
+ <FRAME '\1aGEN>
+ <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK (TYPE NODE)>
+ <DEAD TEMP9>
+ <TYPE? W5 <TYPE-CODE TEMP> - PHRASE13>
+ <SET TEMP9 W5>
+ <JUMP + PHRASE14>
+PHRASE13
+ <SET TEMP9 'DONT-CARE (TYPE ATOM)>
+PHRASE14
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <CALL '\1aGEN 2 = TEM6>
+ <FRAME '\1aGEN-SETG>
+ <PUSH ATM7>
+ <PUSH TEM6>
+ <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
+ <SET TEMP18 3 (TYPE FIX)>
+ <LOOP (TEMP9 VALUE) (TEMP18 VALUE)>
+TAG19
+ <EMPL? TEMP9 + PHRASE17>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
+ <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
+ <EMPL? TEMP9 - PHRASE17>
+ <DEAD TEMP9>
+ <FRAME '\1aGEN>
+ <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
+ <DEAD NOD4>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK (TYPE NODE)>
+ <DEAD TEMP9>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = TEMP9>
+ <JUMP + PHRASE21>
+PHRASE17
+ <SET TEMP9 %<> (TYPE FALSE)>
+PHRASE21
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <PUSH W5>
+ <CALL '\1aGEN-SETG 4>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH ATM7>
+ <DEAD ATM7>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TEM6>
+ <DEAD TEM6>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMOVE-ARG 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aFSETG-GEN>
+#WORD *22732552753*
+<GFCN \1aCHTYPE-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP TYP6 TEMP12 N7:NODE N2-8 TEMP19 TEMP20 TT10>
+ <INTGO>
+ <FRAME '\1aISTYPE?>
+ <NTHUV NOD4 3 = STACK>
+ <CALL '\1aISTYPE? 1 = TYP6>
+ <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = N7 (TYPE NODE)>
+ <DEAD TEMP12>
+ <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE14>
+ <NTHUV NOD4 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE NODE> - PHRASE14>
+ <DEAD TEMP12>
+ <NTHUV NOD4 2 = TEMP12 (TYPE NODE)>
+ <NTHUV TEMP12 1 = TEMP12 (TYPE FIX)>
+ <GVAL 'CHTYPE-FOR-FREE = TEMP19>
+ <EMPUV? TEMP19 + PHRASE14>
+ <LOOP (TEMP12 VALUE) (TEMP19 LENGTH VALUE)>
+TAG17
+ <NTHUV TEMP19 1 = TEMP20>
+ <VEQUAL? TEMP20 TEMP12 + TAG16>
+ <DEAD TEMP20>
+ <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
+ <EMPUV? TEMP19 - TAG17>
+ <JUMP + PHRASE14>
+TAG16
+ <GVAL 'POP-STACK = TEMP19>
+ <EQUAL? TEMP19 WHERE5 + BOOL21>
+ <DEAD TEMP19>
+ <EQUAL? WHERE5 'DONT-CARE - PHRASE14>
+BOOL21
+ <FRAME '\1aGEN>
+ <PUSH N7>
+ <DEAD N7>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <CALL '\1aGEN 2 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE14
+ <FRAME '\1aGEN>
+ <PUSH N7>
+ <DEAD N7>
+ <CALL '\1aGEN 1 = TEMP19>
+ <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 + PHRASE26>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 + PHRASE26>
+ <DEAD TEMP12>
+ <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
+ <DEAD NOD4>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = N2-8 (TYPE NODE)>
+ <DEAD TEMP12>
+ <NTHUV N2-8 1 = TEMP12 (TYPE FIX)>
+ <VEQUAL? TEMP12 2 + PHRASE26 (TYPE FIX)>
+ <DEAD TEMP12>
+ <FRAME '\1aINTERF-CHANGE>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <PUSH N2-8>
+ <CALL '\1aINTERF-CHANGE 2 = TEMP19>
+ <FRAME '\1aGEN>
+ <NTHUV N2-8 5 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK (TYPE NODE)>
+ <DEAD TEMP12>
+ <CALL '\1aGEN 1 = TT10>
+PHRASE26
+ <EQUAL? WHERE5 'DONT-CARE - PHRASE31>
+ <TYPE? TEMP19 <TYPE-CODE TEMP> - PHRASE33>
+ <NTHUV TEMP19 2 = TEMP12 (TYPE FIX)>
+ <GRTR? TEMP12 1 + PHRASE33 (TYPE FIX)>
+ <DEAD TEMP12>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <SET WHERE5 TEMP19>
+ <PUSH WHERE5>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH TEMP19>
+ <PUSH TYP6>
+ <CALL '\1aUSE-TEMP 2>
+ <JUMP + PHRASE43>
+PHRASE33
+ <FRAME '\1aGEN-TEMP>
+ <SET TEMP12 TYP6>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE42>
+ <SET TEMP12 'ANY (TYPE ATOM)>
+PHRASE42
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aGEN-TEMP 1 = WHERE5>
+ <JUMP + PHRASE43>
+PHRASE31
+ <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE43>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE5>
+ <PUSH TYP6>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE43
+ <TYPE? N2-8 <TYPE-CODE UNBOUND> + PHRASE46>
+ <NTHUV N2-8 1 = TEMP12 (TYPE FIX)>
+ <DEAD N2-8>
+ <VEQUAL? TEMP12 2 + PHRASE46 (TYPE FIX)>
+ <DEAD TEMP12>
+ <TYPE? TT10 <TYPE-CODE TEMP> + PHRASE49>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TT10>
+ <DEAD TT10>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = STACK>
+ <CALL '\1aMOVE-ARG 2 = TT10>
+PHRASE49
+ <FRAME '\1aGEN-CHTYPE>
+ <PUSH TEMP19>
+ <FRAME '\1aFORM>
+ <PUSH '`TYPE>
+ <NTHUV TT10 1 = STACK (TYPE ATOM)>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH WHERE5>
+ <CALL '\1aGEN-CHTYPE 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TT10>
+ <DEAD TT10>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE55>
+PHRASE46
+ <FRAME '\1aGEN-CHTYPE>
+ <PUSH TEMP19>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <PUSH WHERE5>
+ <CALL '\1aGEN-CHTYPE 3>
+PHRASE55
+ <EQUAL? TEMP19 WHERE5 + PHRASE58>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE58
+ <RETURN WHERE5>
+ <DEAD WHERE5>
+ <END \1aCHTYPE-GEN>
+<GDECL (CHTYPE-FOR-FREE) <VECTOR [REST FIX]>>
+
+<SETG CHTYPE-FOR-FREE [,NTH-CODE ,ARITH-CODE ,0-TST-CODE ,1?-CODE ,TEST-CODE ,LNTH-CODE ,MT-CODE ,REST-CODE ,MOD-CODE ,BITS-CODE ,BITL-CODE ,ROT-CODE ,LSH-CODE ,BIT-TEST-CODE]>
+
+" Generate do-nothing piece of code."
+
+#WORD *35222615552*
+<GFCN \1aID-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aGEN>
+ <NTHUV N4 5 = TEMP7 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP7 1 = STACK (TYPE NODE)>
+ <DEAD TEMP7>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aGEN 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aID-GEN>
+" Generate call to READ etc. with eof condition."
+
+#WORD *6645521040*
+<GFCN \1aREAD2-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP (I6 0) TEMP14:FIX TMP9 TEMP30 OB31:NODE SPOB7:NODE>
+ <INTGO>
+ <TYPE? W5 <TYPE-CODE TEMP> - PHRASE12>
+ <NTHUV W5 2 = TEMP14 (TYPE FIX)>
+ <LESS? TEMP14 1 - PHRASE12 (TYPE FIX)>
+ <DEAD TEMP14>
+ <SET TMP9 W5>
+ <JUMP + PHRASE17>
+PHRASE12
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TMP9>
+PHRASE17
+ <FRAME '\1aSTART-FRAME>
+ <NTHUV N4 4 = STACK>
+ <CALL '\1aSTART-FRAME 1>
+ <NTHUV N4 5 = TEMP30 (TYPE LIST)>
+ <LOOP>
+MAP21
+ <INTGO>
+ <EMPL? TEMP30 + MAPAP24>
+ <NTHL TEMP30 1 = OB31>
+ <NTHUV OB31 1 = TEMP14 (TYPE FIX)>
+ <VEQUAL? TEMP14 55 - PHRASE33 (TYPE FIX)>
+ <DEAD TEMP14>
+ <SET SPOB7 OB31>
+ <DEAD OB31>
+ <FRAME '\1aCURRENT-FRAME>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aCURRENT-FRAME 1>
+ <JUMP + PHRASE36>
+PHRASE33
+ <FRAME '\1aGEN>
+ <PUSH OB31>
+ <DEAD OB31>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+PHRASE36
+ <ADD I6 1 = I6 (TYPE FIX)>
+ <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
+ <JUMP + MAP21>
+MAPAP24
+ <FRAME '\1aUSE-TEMP>
+ <PUSH TMP9>
+ <CALL '\1aUSE-TEMP 1>
+ <FRAME '\1aMSUBR-CALL>
+ <NTHUV N4 4 = STACK>
+ <DEAD N4>
+ <PUSH I6>
+ <DEAD I6>
+ <PUSH TMP9>
+ <CALL '\1aMSUBR-CALL 3>
+ <FRAME '\1aGEN-==?>
+ <FRAME '\1aCURRENT-FRAME>
+ <CALL '\1aCURRENT-FRAME 0 = TEMP30>
+ <PUSH TEMP30>
+ <PUSH TMP9>
+ <PUSH %<>>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = I6>
+ <PUSH I6>
+ <CALL '\1aGEN-==? 4>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP30>
+ <DEAD TEMP30>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <PUSH TMP9>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <FRAME '\1aGEN>
+ <PUSH SPOB7>
+ <DEAD SPOB7>
+ <PUSH TMP9>
+ <CALL '\1aGEN 2>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH I6>
+ <DEAD I6>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TMP9>
+ <DEAD TMP9>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMOVE-ARG 2 = TEMP30>
+ <RETURN TEMP30>
+ <DEAD TEMP30>
+ <END \1aREAD2-GEN>
+#WORD *24635574473*
+<GFCN \1aGET-GEN ("VALUE" ANY ANY ANY) N4 W5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aGETGET>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <PUSH 'T>
+ <CALL '\1aGETGET 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aGET-GEN>
+#WORD *27225562147*
+<GFCN \1aGET2-GEN ("VALUE" ANY ANY ANY) N4 W5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aGETGET>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <PUSH %<>>
+ <CALL '\1aGETGET 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aGET2-GEN>
+<GDECL (GETTERS) UVECTOR>
+
+#WORD *34053146022*
+<GFCN \1aGETGET ("VALUE" ANY NODE ANY ANY) N4 W5 REV6>
+ <TEMP K7:LIST BR8 TEMP16 TMP9>
+ <INTGO>
+ <NTHUV N4 5 = K7 (TYPE LIST)>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0>
+ <LENL K7 = BR8 (TYPE FIX)>
+ <FRAME '\1aSTART-FRAME>
+ <NTHUV N4 4 = STACK>
+ <CALL '\1aSTART-FRAME 1>
+ <FRAME '\1aGEN>
+ <NTHL K7 1 = STACK (TYPE NODE)>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+ <FRAME '\1aGEN>
+ <RESTL K7 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = STACK (TYPE NODE)>
+ <DEAD TEMP16>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+ <VEQUAL? BR8 3 - PHRASE18 (TYPE FIX)>
+ <FRAME '\1aCURRENT-FRAME>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aCURRENT-FRAME 1>
+PHRASE18
+ <FRAME '\1aMSUBR-CALL>
+ <NTHUV N4 4 = STACK>
+ <DEAD N4>
+ <PUSH BR8>
+ <TYPE? W5 <TYPE-CODE TEMP> - PHRASE22>
+ <LESS? BR8 3 + BOOL24 (TYPE FIX)>
+ <NTHUV W5 2 = TEMP16 (TYPE FIX)>
+ <LESS? TEMP16 1 - PHRASE22 (TYPE FIX)>
+ <DEAD TEMP16>
+BOOL24
+ <FRAME '\1aUSE-TEMP>
+ <SET TMP9 W5>
+ <PUSH TMP9>
+ <CALL '\1aUSE-TEMP 1 = TEMP16>
+ <JUMP + PHRASE28>
+PHRASE22
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = TMP9>
+ <SET TEMP16 TMP9>
+PHRASE28
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aMSUBR-CALL 3>
+ <VEQUAL? BR8 3 - PHRASE31 (TYPE FIX)>
+ <DEAD BR8>
+ <FRAME '\1aGEN-==?>
+ <FRAME '\1aCURRENT-FRAME>
+ <CALL '\1aCURRENT-FRAME 0 = TEMP16>
+ <PUSH TEMP16>
+ <PUSH TMP9>
+ <PUSH %<>>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = BR8>
+ <PUSH BR8>
+ <CALL '\1aGEN-==? 4>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aFREE-TEMP 1>
+ <TYPE? REV6 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD REV6>
+ <FRAME '\1aSTART-FRAME>
+ <PUSH 'EVAL>
+ <CALL '\1aSTART-FRAME 1>
+ <FRAME '\1aGEN>
+ <RESTL K7 1 = TEMP16 (TYPE LIST)>
+ <DEAD K7>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = STACK (TYPE NODE)>
+ <DEAD TEMP16>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH 'EVAL>
+ <PUSH 1>
+ <PUSH TMP9>
+ <CALL '\1aMSUBR-CALL 3 = STACK>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+ <JUMP + PHRASE42>
+PHRASE37
+ <FRAME '\1aDEALLOCATE-TEMP>
+ <FRAME '\1aGEN>
+ <RESTL K7 1 = TEMP16 (TYPE LIST)>
+ <DEAD K7>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = STACK (TYPE NODE)>
+ <DEAD TEMP16>
+ <PUSH TMP9>
+ <CALL '\1aGEN 2 = STACK>
+ <CALL '\1aDEALLOCATE-TEMP 1>
+PHRASE42
+ <FRAME '\1aLABEL-TAG>
+ <PUSH BR8>
+ <DEAD BR8>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE31
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TMP9>
+ <DEAD TMP9>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMOVE-ARG 2 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aGETGET>
+'<SETG GETTERS [,GET ,GETL ,GETPROP ,GETPL]>
+
+<SETG STACK-INS [`CALL `UBLOCK `LIST `SYSCALL]>
+
+<GDECL (STACK-INS) <VECTOR [REST ATOM]>>
+
+#WORD *30216441117*
+<GFCN \1aCALL-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NOTF10 B11 D12>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP K13:LIST TEMP23 INS14 (ON-STACK17 %<>) COUNTMP18 SEGTMP19 INS1-21 (REC?22 %<>) TEMP33 TEMP66 TEMP79 N81 TEMP85>
+ <INTGO>
+ <NTHUV NOD8 5 = K13 (TYPE LIST)>
+ <NTHL K13 1 = TEMP23 (TYPE NODE)>
+ <NTHUV TEMP23 4 = INS14>
+ <DEAD TEMP23>
+ <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG27>
+ <DEAD NOTF10>
+ <TYPE? D12 <TYPE-CODE FALSE> - TAG26>
+ <DEAD D12>
+ <SET D12 'T (TYPE ATOM)>
+ <JUMP + TAG27>
+TAG26
+ <SET D12 %<> (TYPE FALSE)>
+TAG27
+ <GVAL 'STACK-INS = TEMP23>
+ <TYPE? INS14 <TYPE-CODE ATOM> - PHRASE52>
+ <EMPUV? TEMP23 + PHRASE52>
+ <LOOP (INS14 VALUE) (TEMP23 LENGTH VALUE)>
+TAG31
+ <NTHUV TEMP23 1 = TEMP33>
+ <VEQUAL? TEMP33 INS14 + TAG30>
+ <DEAD TEMP33>
+ <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
+ <EMPUV? TEMP23 - TAG31>
+ <JUMP + PHRASE52>
+TAG30
+ <SET ON-STACK17 'T (TYPE ATOM)>
+ <EQUAL? INS14 '`CALL + BOOL36>
+ <EQUAL? INS14 '`SCALL - PHRASE35>
+BOOL36
+ <RESTL K13 1 = TEMP23 (TYPE LIST)>
+ <NTHL TEMP23 1 = INS1-21 (TYPE NODE)>
+ <DEAD TEMP23>
+ <NTHUV INS1-21 1 = TEMP23 (TYPE FIX)>
+ <VEQUAL? TEMP23 2 - PHRASE38 (TYPE FIX)>
+ <DEAD TEMP23>
+ <NTHUV INS1-21 4 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE ATOM> - PHRASE38>
+ <DEAD TEMP23>
+ <FRAME '\1aIEMIT>
+ <EQUAL? INS14 '`CALL - PHRASE42>
+ <SET TEMP23 '`FRAME (TYPE ATOM)>
+ <JUMP + PHRASE43>
+PHRASE42
+ <SET TEMP23 '`SFRAME (TYPE ATOM)>
+PHRASE43
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <NTHUV INS1-21 4 = TEMP23 (TYPE ATOM)>
+ <DEAD INS1-21>
+ <CHTYPE TEMP23 <TYPE-CODE FCN-ATOM> = INS1-21>
+ <DEAD TEMP23>
+ <PUSH INS1-21>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH INS1-21>
+ <DEAD INS1-21>
+ <CALL '\1aFORM 2 = INS1-21>
+ <JUMP + PHRASE46>
+PHRASE38
+ <FRAME '\1aIEMIT>
+ <EQUAL? INS14 '`CALL - PHRASE49>
+ <SET TEMP23 '`FRAME (TYPE ATOM)>
+ <JUMP + PHRASE50>
+PHRASE49
+ <SET TEMP23 '`SFRAME (TYPE ATOM)>
+PHRASE50
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <CALL '\1aIEMIT 1>
+ <FRAME '\1aGEN>
+ <PUSH INS1-21>
+ <DEAD INS1-21>
+ <CALL '\1aGEN 1 = INS1-21>
+PHRASE46
+ <RESTL K13 1 = K13 (TYPE LIST)>
+ <JUMP + PHRASE52>
+PHRASE35
+ <EQUAL? INS14 '`SYSCALL - PHRASE52>
+ <FRAME '\1aGEN>
+ <RESTL K13 1 = TEMP23 (TYPE LIST)>
+ <NTHL TEMP23 1 = STACK (TYPE NODE)>
+ <DEAD TEMP23>
+ <CALL '\1aGEN 1 = INS1-21>
+ <RESTL K13 1 = K13 (TYPE LIST)>
+PHRASE52
+ <FRAME '\1aGETPROP>
+ <PUSH INS14>
+ <PUSH '`RECORD-TYPE>
+ <CALL '\1aGETPROP 2 = TEMP23>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE55>
+ <DEAD TEMP23>
+ <SET REC?22 'T (TYPE ATOM)>
+PHRASE55
+ <SET TEMP23 0 (TYPE FIX)>
+ <RESTL K13 1 = TEMP66 (TYPE LIST)>
+ <LOOP>
+MAP58
+ <INTGO>
+ <EMPL? TEMP66 + MAPAP61>
+ <NTHL TEMP66 1 = TEMP33>
+ <NTHUV TEMP33 1 = TEMP33 (TYPE FIX)>
+ <VEQUAL? TEMP33 3 - PHRASE69 (TYPE FIX)>
+ <DEAD TEMP33>
+ <SET TEMP33 0 (TYPE FIX)>
+ <JUMP + PHRASE71>
+PHRASE69
+ <SET TEMP33 1 (TYPE FIX)>
+PHRASE71
+ <ADD TEMP23 TEMP33 = TEMP23>
+ <DEAD TEMP33>
+ <RESTL TEMP66 1 = TEMP66 (TYPE LIST)>
+ <JUMP + MAP58>
+MAPAP61
+ <SET TEMP66 TEMP23>
+ <DEAD TEMP23>
+ <SET TEMP33 () (TYPE LIST)>
+ <SET TEMP23 () (TYPE LIST)>
+ <RESTL K13 1 = TEMP79 (TYPE LIST)>
+ <DEAD K13>
+ <LOOP>
+MAP73
+ <INTGO>
+ <EMPL? TEMP79 + MAPAP76>
+ <SET K13 TEMP79>
+ <NTHL K13 1 = N81 (TYPE NODE)>
+ <NTHUV N81 1 = TEMP85 (TYPE FIX)>
+ <VEQUAL? TEMP85 3 - PHRASE84 (TYPE FIX)>
+ <DEAD TEMP85>
+ <TYPE? SEGTMP19 <TYPE-CODE UNBOUND> - PHRASE87>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = SEGTMP19>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = COUNTMP18>
+ <FRAME '\1aSET-TEMP>
+ <PUSH COUNTMP18>
+ <PUSH TEMP66>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aSET-TEMP 3>
+PHRASE87
+ <FRAME '\1aGEN>
+ <NTHUV N81 5 = TEMP85 (TYPE LIST)>
+ <NTHL TEMP85 1 = STACK (TYPE NODE)>
+ <DEAD TEMP85>
+ <PUSH SEGTMP19>
+ <CALL '\1aGEN 2>
+ <FRAME '\1aSEGMENT-STACK>
+ <PUSH SEGTMP19>
+ <PUSH COUNTMP18>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV N81 5 = TEMP85 (TYPE LIST)>
+ <NTHL TEMP85 1 = TEMP85 (TYPE NODE)>
+ <NTHUV TEMP85 3 = STACK>
+ <DEAD TEMP85>
+ <CALL '\1aSTRUCTYP 1 = STACK>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N81 5 = TEMP85 (TYPE LIST)>
+ <DEAD N81>
+ <NTHL TEMP85 1 = TEMP85 (TYPE NODE)>
+ <NTHUV TEMP85 3 = STACK>
+ <DEAD TEMP85>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <CALL '\1aSEGMENT-STACK 4 = TEMP85>
+ <JUMP + MAPAP107>
+PHRASE84
+ <FRAME '\1aGEN>
+ <PUSH N81>
+ <DEAD N81>
+ <VEQUAL? ON-STACK17 0 + PHRASE98>
+ <GVAL 'POP-STACK = N81>
+ <JUMP + PHRASE100>
+PHRASE98
+ <SET N81 'DONT-CARE (TYPE ATOM)>
+PHRASE100
+ <PUSH N81>
+ <DEAD N81>
+ <CALL '\1aGEN 2 = TEMP85>
+ <VEQUAL? ON-STACK17 0 - MAPAP107>
+ <RESTL K13 1 = K13 (TYPE LIST)>
+ <LOOP>
+MAP104
+ <INTGO>
+ <EMPL? K13 + MAPAP107>
+ <NTHL K13 1 = N81>
+ <FRAME '\1aINTERF-CHANGE>
+ <PUSH TEMP85>
+ <DEAD TEMP85>
+ <PUSH N81>
+ <DEAD N81>
+ <CALL '\1aINTERF-CHANGE 2 = TEMP85>
+ <RESTL K13 1 = K13 (TYPE LIST)>
+ <JUMP + MAP104>
+MAPAP107
+ <CONS TEMP85 () = TEMP85 (TYPE LIST)>
+ <EMPL? TEMP33 - TAG116>
+ <SET TEMP33 TEMP85 (TYPE LIST)>
+ <JUMP + TAG117>
+TAG116
+ <PUTREST TEMP23 TEMP85>
+ <DEAD TEMP23>
+TAG117
+ <SET TEMP23 TEMP85 (TYPE LIST)>
+ <DEAD TEMP85>
+ <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
+ <JUMP + MAP73>
+MAPAP76
+ <VEQUAL? ON-STACK17 0 - MAPAP124>
+ <SET TEMP79 TEMP33 (TYPE LIST)>
+ <LOOP>
+MAP121
+ <INTGO>
+ <EMPL? TEMP79 + MAPAP124>
+ <NTHL TEMP79 1 = TEMP23>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
+ <JUMP + MAP121>
+MAPAP124
+ <EQUAL? WHERE9 'FLUSHED + BOOL131>
+ <NTHUV NOD8 3 = TEMP79>
+ <EQUAL? TEMP79 'NO-RETURN - PHRASE130>
+ <DEAD TEMP79>
+BOOL131
+ <VEQUAL? ON-STACK17 0 + PHRASE133>
+ <DEAD ON-STACK17>
+ <TYPE? INS1-21 <TYPE-CODE UNBOUND> + PHRASE135>
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <PUSH INS1-21>
+ <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE138>
+ <SET TEMP79 COUNTMP18>
+ <DEAD COUNTMP18>
+ <JUMP + PHRASE139>
+PHRASE138
+ <SET TEMP79 TEMP66>
+ <DEAD TEMP66>
+PHRASE139
+ <PUSH TEMP79>
+ <DEAD TEMP79>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH INS1-21>
+ <DEAD INS1-21>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE153>
+PHRASE135
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE144>
+ <SET TEMP79 COUNTMP18>
+ <DEAD COUNTMP18>
+ <JUMP + PHRASE145>
+PHRASE144
+ <SET TEMP79 TEMP66>
+ <DEAD TEMP66>
+PHRASE145
+ <PUSH TEMP79>
+ <DEAD TEMP79>
+ <CALL '\1aIEMIT 2>
+ <JUMP + PHRASE153>
+PHRASE133
+ <TYPE? B11 <TYPE-CODE FALSE> + PHRASE146>
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <SET TEMP23 3 (TYPE FIX)>
+ <SET TEMP79 TEMP33>
+ <DEAD TEMP33>
+ <LOOP (TEMP79 VALUE) (TEMP23 VALUE)>
+TAG148
+ <INTGO>
+ <EMPL? TEMP79 + TAG147>
+ <NTHL TEMP79 1 = STACK>
+ <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
+ <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
+ <JUMP + TAG148>
+TAG147
+ <TYPE? D12 <TYPE-CODE FALSE> + PHRASE151>
+ <DEAD D12>
+ <SET TEMP85 '+ (TYPE ATOM)>
+ <JUMP + PHRASE152>
+PHRASE151
+ <SET TEMP85 '- (TYPE ATOM)>
+PHRASE152
+ <PUSH TEMP85>
+ <DEAD TEMP85>
+ <PUSH B11>
+ <DEAD B11>
+ <CALL '\1aIEMIT TEMP23>
+ <DEAD TEMP23>
+ <JUMP + PHRASE153>
+PHRASE146
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <SET TEMP79 1 (TYPE FIX)>
+ <SET TEMP23 TEMP33>
+ <DEAD TEMP33>
+ <LOOP (TEMP23 VALUE) (TEMP79 VALUE)>
+TAG155
+ <INTGO>
+ <EMPL? TEMP23 + TAG154>
+ <NTHL TEMP23 1 = STACK>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
+ <JUMP + TAG155>
+TAG154
+ <CALL '\1aIEMIT TEMP79>
+ <DEAD TEMP79>
+PHRASE153
+ <GVAL 'NO-DATUM = WHERE9>
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+PHRASE130
+ <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE159>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH COUNTMP18>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGTMP19>
+ <DEAD SEGTMP19>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+PHRASE159
+ <EQUAL? WHERE9 'DONT-CARE - PHRASE163>
+ <FRAME '\1aGEN-TEMP>
+ <NTHUV NOD8 3 = STACK>
+ <DEAD NOD8>
+ <CALL '\1aGEN-TEMP 1 = WHERE9>
+ <JUMP + PHRASE165>
+PHRASE163
+ <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE165>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE9>
+ <NTHUV NOD8 3 = STACK>
+ <DEAD NOD8>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE165
+ <VEQUAL? ON-STACK17 0 + PHRASE168>
+ <DEAD ON-STACK17>
+ <TYPE? INS1-21 <TYPE-CODE UNBOUND> + PHRASE170>
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <PUSH INS1-21>
+ <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE173>
+ <SET TEMP79 COUNTMP18>
+ <DEAD COUNTMP18>
+ <JUMP + PHRASE174>
+PHRASE173
+ <SET TEMP79 TEMP66>
+ <DEAD TEMP66>
+PHRASE174
+ <PUSH TEMP79>
+ <DEAD TEMP79>
+ <PUSH '=>
+ <PUSH WHERE9>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH INS1-21>
+ <DEAD INS1-21>
+ <CALL '\1aFREE-TEMP 1>
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+PHRASE170
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE179>
+ <SET TEMP79 COUNTMP18>
+ <DEAD COUNTMP18>
+ <JUMP + PHRASE180>
+PHRASE179
+ <SET TEMP79 TEMP66>
+ <DEAD TEMP66>
+PHRASE180
+ <PUSH TEMP79>
+ <DEAD TEMP79>
+ <PUSH '=>
+ <PUSH WHERE9>
+ <CALL '\1aIEMIT 4>
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+PHRASE168
+ <VEQUAL? REC?22 0 + PHRASE181>
+ <DEAD REC?22>
+ <SET ON-STACK17 TEMP33>
+ <EMPL? ON-STACK17 + COMPERR>
+ <LOOP (ON-STACK17 VALUE)>
+TAG183
+ <RESTL ON-STACK17 1 = TEMP79 (TYPE LIST)>
+ <EMPL? TEMP79 + TAG184>
+ <SET ON-STACK17 TEMP79>
+ <DEAD TEMP79>
+ <JUMP + TAG183>
+TAG184
+ <NTHL ON-STACK17 1 = ON-STACK17>
+ <TYPE? ON-STACK17 <TYPE-CODE LIST> - PHRASE181>
+ <EMPL? ON-STACK17 + PHRASE181>
+ <RESTL ON-STACK17 1 = COUNTMP18 (TYPE LIST)>
+ <EMPL? COUNTMP18 + PHRASE181>
+ <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
+ <EMPL? COUNTMP18 - PHRASE181>
+ <DEAD COUNTMP18>
+ <NTHL ON-STACK17 1 = COUNTMP18 (TYPE ATOM)>
+ <NTHR COUNTMP18 3 = COUNTMP18 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? COUNTMP18 "RECORD-TYPE" - PHRASE181>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP79 "RECORD-TYPE" (TYPE STRING)>
+ <LENUS COUNTMP18 = TEMP23 (TYPE FIX)>
+ <VEQUAL? TEMP23 11 - PHRASE181>
+ <LOOP (COUNTMP18 VALUE LENGTH) (TEMP79 VALUE LENGTH) (TEMP23 VALUE)>
+TAG186
+ <NTHUS COUNTMP18 1 = TEMP85>
+ <NTHUS TEMP79 1 = SEGTMP19>
+ <VEQUAL? TEMP85 SEGTMP19 - PHRASE181>
+ <DEAD TEMP85 SEGTMP19>
+ <RESTUS COUNTMP18 1 = COUNTMP18 (TYPE STRING)>
+ <RESTUS TEMP79 1 = TEMP79 (TYPE STRING)>
+ <SUB TEMP23 1 = TEMP23 (TYPE FIX)>
+ <GRTR? TEMP23 0 + TAG186 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <EMPL? TEMP33 + PHRASE188>
+ <RESTL TEMP33 1 = TEMP79 (TYPE LIST)>
+ <EMPL? TEMP79 - PHRASE188>
+ <DEAD TEMP79>
+ <SET TEMP33 () (TYPE LIST)>
+ <JUMP + PHRASE189>
+PHRASE188
+ <LENL TEMP33 = TEMP79 (TYPE FIX)>
+ <SUB TEMP79 2 = TEMP79 (TYPE FIX)>
+ <SET COUNTMP18 TEMP33>
+ <GRTR? TEMP79 0 - RESTL191 (TYPE FIX)>
+ <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
+RESTL190
+ <INTGO>
+ <EMPL? COUNTMP18 + COMPERR>
+ <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
+ <SUB TEMP79 1 = TEMP79 (TYPE FIX)>
+ <GRTR? TEMP79 0 + RESTL190 (TYPE FIX)>
+RESTL191
+ <EMPL? COUNTMP18 + COMPERR>
+ <PUTREST COUNTMP18 ()>
+ <DEAD COUNTMP18>
+PHRASE189
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <SET TEMP79 4 (TYPE FIX)>
+ <SET COUNTMP18 TEMP33>
+ <DEAD TEMP33>
+ <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
+TAG193
+ <INTGO>
+ <EMPL? COUNTMP18 + TAG192>
+ <NTHL COUNTMP18 1 = STACK>
+ <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
+ <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
+ <JUMP + TAG193>
+TAG192
+ <PUSH '=>
+ <PUSH WHERE9>
+ <PUSH ON-STACK17>
+ <DEAD ON-STACK17>
+ <CALL '\1aIEMIT TEMP79>
+ <DEAD TEMP79>
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+PHRASE181
+ <TYPE? B11 <TYPE-CODE FALSE> + PHRASE195>
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <SET COUNTMP18 5 (TYPE FIX)>
+ <SET TEMP79 TEMP33>
+ <DEAD TEMP33>
+ <LOOP (TEMP79 VALUE) (COUNTMP18 VALUE)>
+TAG197
+ <INTGO>
+ <EMPL? TEMP79 + TAG196>
+ <NTHL TEMP79 1 = STACK>
+ <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
+ <ADD COUNTMP18 1 = COUNTMP18 (TYPE FIX)>
+ <JUMP + TAG197>
+TAG196
+ <PUSH '=>
+ <PUSH WHERE9>
+ <TYPE? D12 <TYPE-CODE FALSE> + PHRASE200>
+ <DEAD D12>
+ <SET SEGTMP19 '+ (TYPE ATOM)>
+ <JUMP + PHRASE201>
+PHRASE200
+ <SET SEGTMP19 '- (TYPE ATOM)>
+PHRASE201
+ <PUSH SEGTMP19>
+ <DEAD SEGTMP19>
+ <PUSH B11>
+ <DEAD B11>
+ <CALL '\1aIEMIT COUNTMP18>
+ <DEAD COUNTMP18>
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+PHRASE195
+ <FRAME '\1aIEMIT>
+ <PUSH INS14>
+ <DEAD INS14>
+ <SET TEMP79 3 (TYPE FIX)>
+ <SET COUNTMP18 TEMP33>
+ <DEAD TEMP33>
+ <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
+TAG204
+ <INTGO>
+ <EMPL? COUNTMP18 + TAG203>
+ <NTHL COUNTMP18 1 = STACK>
+ <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
+ <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
+ <JUMP + TAG204>
+TAG203
+ <PUSH '=>
+ <PUSH WHERE9>
+ <CALL '\1aIEMIT TEMP79>
+ <DEAD TEMP79>
+ <RETURN WHERE9>
+ <DEAD WHERE9>
+ <END \1aCALL-GEN>\r\r
+#WORD *17121462203*
+<GFCN \1aCHANNEL-OP-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP CTY6 K7:LIST TEMP10 L8 TEMP17 N22 TEMP26>
+ <INTGO>
+ <NTHUV NOD4 9 = CTY6>
+ <NTHUV NOD4 5 = K7 (TYPE LIST)>
+ <SET L8 () (TYPE LIST)>
+ <SET TEMP17 () (TYPE LIST)>
+ <SET TEMP10 K7 (TYPE LIST)>
+ <DEAD K7>
+ <LOOP>
+MAP12
+ <INTGO>
+ <EMPL? TEMP10 + MAPAP15>
+ <SET K7 TEMP10>
+ <NTHL K7 1 = N22 (TYPE NODE)>
+ <NTHUV N22 1 = TEMP26 (TYPE FIX)>
+ <VEQUAL? TEMP26 2 - PHRASE25 (TYPE FIX)>
+ <DEAD TEMP26>
+ <NTHUV N22 4 = TEMP26>
+ <DEAD N22>
+ <TYPE? TEMP26 <TYPE-CODE ATOM> - MAPAP37>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <CALL '\1aFORM 2 = TEMP26>
+ <JUMP + MAPAP37>
+PHRASE25
+ <FRAME '\1aGEN>
+ <PUSH N22>
+ <DEAD N22>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = TEMP26>
+ <RESTL K7 1 = K7 (TYPE LIST)>
+ <LOOP>
+MAP34
+ <INTGO>
+ <EMPL? K7 + MAPAP37>
+ <NTHL K7 1 = N22>
+ <FRAME '\1aINTERF-CHANGE>
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <PUSH N22>
+ <DEAD N22>
+ <CALL '\1aINTERF-CHANGE 2 = TEMP26>
+ <RESTL K7 1 = K7 (TYPE LIST)>
+ <JUMP + MAP34>
+MAPAP37
+ <CONS TEMP26 () = TEMP26 (TYPE LIST)>
+ <EMPL? L8 - TAG47>
+ <SET L8 TEMP26 (TYPE LIST)>
+ <JUMP + TAG48>
+TAG47
+ <PUTREST TEMP17 TEMP26>
+ <DEAD TEMP17>
+TAG48
+ <SET TEMP17 TEMP26 (TYPE LIST)>
+ <DEAD TEMP26>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <JUMP + MAP12>
+MAPAP15
+ <SET TEMP10 L8 (TYPE LIST)>
+ <LOOP>
+MAP50
+ <INTGO>
+ <EMPL? TEMP10 + MAPAP53>
+ <NTHL TEMP10 1 = TEMP17>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <JUMP + MAP50>
+MAPAP53
+ <EQUAL? WHERE5 'FLUSHED + BOOL60>
+ <NTHUV NOD4 3 = TEMP10>
+ <EQUAL? TEMP10 'NO-RETURN - PHRASE59>
+ <DEAD TEMP10>
+BOOL60
+ <FRAME '\1aIEMIT>
+ <PUSH '`CHANNEL-OP>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH CTY6>
+ <DEAD CTY6>
+ <CALL '\1aFORM 2 = STACK>
+ <RESTL L8 1 = K7 (TYPE LIST)>
+ <NTHL K7 1 = STACK>
+ <DEAD K7>
+ <NTHL L8 1 = STACK>
+ <SET TEMP10 4 (TYPE FIX)>
+ <RESTL L8 1 = K7 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL K7 1 = K7 (TYPE LIST)>
+ <LOOP (K7 VALUE) (TEMP10 VALUE)>
+TAG63
+ <INTGO>
+ <EMPL? K7 + TAG61>
+ <NTHL K7 1 = STACK>
+ <RESTL K7 1 = K7 (TYPE LIST)>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG63>
+TAG61
+ <CALL '\1aIEMIT TEMP10>
+ <DEAD TEMP10>
+ <RETURN WHERE5>
+ <DEAD WHERE5>
+PHRASE59
+ <EQUAL? WHERE5 'DONT-CARE - PHRASE67>
+ <FRAME '\1aGEN-TEMP>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <CALL '\1aGEN-TEMP 1 = WHERE5>
+ <JUMP + PHRASE69>
+PHRASE67
+ <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE69>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE5>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE69
+ <FRAME '\1aIEMIT>
+ <PUSH '`CHANNEL-OP>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH CTY6>
+ <DEAD CTY6>
+ <CALL '\1aFORM 2 = STACK>
+ <RESTL L8 1 = K7 (TYPE LIST)>
+ <NTHL K7 1 = STACK>
+ <DEAD K7>
+ <NTHL L8 1 = STACK>
+ <SET TEMP10 6 (TYPE FIX)>
+ <RESTL L8 1 = K7 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL K7 1 = K7 (TYPE LIST)>
+ <LOOP (K7 VALUE) (TEMP10 VALUE)>
+TAG73
+ <INTGO>
+ <EMPL? K7 + TAG71>
+ <NTHL K7 1 = STACK>
+ <RESTL K7 1 = K7 (TYPE LIST)>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG73>
+TAG71
+ <PUSH '=>
+ <PUSH WHERE5>
+ <CALL '\1aIEMIT TEMP10>
+ <DEAD TEMP10>
+ <RETURN WHERE5>
+ <DEAD WHERE5>
+ <END \1aCHANNEL-OP-GEN>
+#WORD *3140570026*
+<GFCN \1aSMSUBR-CALL ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY ANY) SUBRC7 NARGS8 WHERE9 STACK?10 SLNT11>
+ <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP W12 TEMP24 TEMP72>
+ <INTGO>
+ <EQUAL? SUBRC7 'STRING - PHRASE14>
+ <TYPE? SLNT11 <TYPE-CODE FALSE> - PHRASE14>
+ <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE14>
+ <TYPE? WHERE9 <TYPE-CODE TEMP> + PHRASE14>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'STRING>
+ <CALL '\1aGEN-TEMP 1 = W12>
+ <JUMP + PHRASE17>
+PHRASE14
+ <SET W12 WHERE9>
+PHRASE17
+ <EQUAL? SUBRC7 'VECTOR + BOOL20>
+ <EQUAL? SUBRC7 'UVECTOR + BOOL20>
+ <EQUAL? SUBRC7 'STRING + BOOL20>
+ <EQUAL? SUBRC7 'BYTES + BOOL20>
+ <EQUAL? SUBRC7 'TUPLE - PHRASE19>
+BOOL20
+ <FRAME '\1aIEMIT>
+ <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE23>
+ <SET TEMP24 '`SBLOCK (TYPE ATOM)>
+ <JUMP + PHRASE25>
+PHRASE23
+ <SET TEMP24 '`UBLOCK (TYPE ATOM)>
+PHRASE25
+ <PUSH TEMP24>
+ <DEAD TEMP24>
+ <FRAME '\1aFORM>
+ <PUSH '`TYPE-CODE>
+ <PUSH SUBRC7>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH NARGS8>
+ <PUSH '=>
+ <PUSH W12>
+ <CONS SUBRC7 () = TEMP24>
+ <CONS '`TYPE TEMP24 = STACK>
+ <DEAD TEMP24>
+ <CALL '\1aIEMIT 6>
+ <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE85>
+ <DEAD STACK?10>
+ <TYPE? NARGS8 <TYPE-CODE TEMP> + BOOL31>
+ <TYPE? SLNT11 <TYPE-CODE FALSE> - PHRASE30>
+ <EQUAL? SUBRC7 'STRING - PHRASE30>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = NARGS8>
+BOOL31
+ <EQUAL? SUBRC7 'VECTOR + BOOL36>
+ <EQUAL? SUBRC7 'TUPLE - PHRASE35>
+BOOL36
+ <FRAME '\1aIEMIT>
+ <PUSH '`DIV>
+ <PUSH NARGS8>
+ <PUSH 2>
+ <PUSH '=>
+ <PUSH NARGS8>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE41>
+PHRASE35
+ <EQUAL? SUBRC7 'BYTES - PHRASE38>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH NARGS8>
+ <PUSH 3>
+ <PUSH '=.NARGS>
+ <CALL '\1aIEMIT 4>
+ <FRAME '\1aIEMIT>
+ <PUSH '`DIV>
+ <PUSH NARGS8>
+ <PUSH 4>
+ <PUSH '=>
+ <PUSH NARGS8>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE41>
+PHRASE38
+ <EQUAL? SUBRC7 'STRING - PHRASE41>
+ <DEAD SUBRC7>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LENUS>
+ <PUSH W12>
+ <PUSH '=>
+ <PUSH NARGS8>
+ <CALL '\1aIEMIT 4>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH NARGS8>
+ <PUSH 4>
+ <PUSH '=>
+ <PUSH NARGS8>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`DIV>
+ <PUSH NARGS8>
+ <PUSH 5>
+ <PUSH '=>
+ <PUSH NARGS8>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH NARGS8>
+ <PUSH 3>
+ <PUSH '=>
+ <PUSH NARGS8>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`DIV>
+ <PUSH NARGS8>
+ <PUSH 4>
+ <PUSH '=>
+ <PUSH NARGS8>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+PHRASE41
+ <FRAME '\1aFREE-TEMP>
+ <PUSH NARGS8>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <GEN-ASSIGNED? 'STKTMP - PHRASE53>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <GEN-LVAL 'STKTMP = STACK>
+ <PUSH NARGS8>
+ <DEAD NARGS8>
+ <PUSH '=>
+ <GEN-LVAL 'STKTMP = STACK>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE61>
+PHRASE53
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH NARGS8>
+ <DEAD NARGS8>
+ <PUSH '=>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = TEMP24>
+ <GEN-SET 'STKTMP TEMP24>
+ <PUSH TEMP24>
+ <DEAD TEMP24>
+ <CALL '\1aIEMIT 5>
+PHRASE61
+ <GEN-LVAL 'STK = TEMP24>
+ <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
+ <GEN-SET 'STK TEMP24>
+ <DEAD TEMP24>
+ <JUMP + PHRASE85>
+PHRASE30
+ <EQUAL? SUBRC7 'STRING - PHRASE71>
+ <ADD SLNT11 4 = TEMP24 (TYPE FIX)>
+ <DIV TEMP24 5 = TEMP24 (TYPE FIX)>
+ <GEN-LVAL 'STK-CHARS7 = TEMP72>
+ <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
+ <DEAD TEMP72>
+ <GEN-SET 'STK-CHARS7 TEMP24>
+ <DEAD TEMP24>
+ <ADD SLNT11 3 = TEMP24 (TYPE FIX)>
+ <DEAD SLNT11>
+ <DIV TEMP24 4 = TEMP24 (TYPE FIX)>
+ <GEN-LVAL 'STK-CHARS8 = TEMP72>
+ <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
+ <DEAD TEMP72>
+ <GEN-SET 'STK-CHARS8 TEMP24>
+ <DEAD TEMP24>
+ <GEN-LVAL 'STK = TEMP24>
+ <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
+ <GEN-SET 'STK TEMP24>
+ <DEAD TEMP24>
+ <JUMP + PHRASE85>
+PHRASE71
+ <GEN-LVAL 'STK = TEMP24>
+ <EQUAL? SUBRC7 'UVECTOR - PHRASE89>
+ <SET TEMP72 NARGS8>
+ <DEAD NARGS8>
+ <JUMP + PHRASE92>
+PHRASE89
+ <EQUAL? SUBRC7 'BYTES - PHRASE90>
+ <DEAD SUBRC7>
+ <ADD NARGS8 3 = TEMP72 (TYPE FIX)>
+ <DEAD NARGS8>
+ <DIV TEMP72 4 = TEMP72 (TYPE FIX)>
+ <JUMP + PHRASE92>
+PHRASE90
+ <LSH NARGS8 1 = TEMP72 (TYPE FIX)>
+ <DEAD NARGS8>
+PHRASE92
+ <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
+ <DEAD TEMP72>
+ <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
+ <GEN-SET 'STK TEMP24>
+ <DEAD TEMP24>
+PHRASE85
+ <EQUAL? W12 WHERE9 - TAG97>
+ <RETURN %<>>
+TAG97
+ <FRAME '\1aMOVE-ARG>
+ <PUSH W12>
+ <DEAD W12>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <CALL '\1aMOVE-ARG 2 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE19
+ <EQUAL? SUBRC7 'LIST - PHRASE99>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LIST>
+ <PUSH NARGS8>
+ <DEAD NARGS8>
+ <PUSH '=>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <PUSH (`TYPE LIST)>
+ <CALL '\1aIEMIT 5 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE99
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH SUBRC7>
+ <DEAD SUBRC7>
+ <PUSH NARGS8>
+ <DEAD NARGS8>
+ <PUSH WHERE9>
+ <DEAD WHERE9>
+ <CALL '\1aMSUBR-CALL 3 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+ <END \1aSMSUBR-CALL>
+#WORD *14421647351*
+<GFCN \1aAPPLY-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
+ <TEMP K6 TEMP3:LBIND SEGTMP8 TEMP14 TEMP25:FIX TEMP27 N28 TEMP52>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'COUNTMP 'ANY 'FIX>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP14>
+ <BBIND 'SEGLABEL 'ANY 'FIX TEMP14>
+ <DEAD TEMP14>
+ <BBIND 'SEGCALLED 'ANY 'FIX %<>>
+ <FRAME '\1aSTART-FRAME>
+ <CALL '\1aSTART-FRAME 0>
+ <FRAME '\1aGEN>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <CALL '\1aGEN 1 = TEMP14>
+ <SET TEMP25 0 (TYPE FIX)>
+ <RESTL K6 1 = TEMP27 (TYPE LIST)>
+ <LOOP>
+MAP18
+ <INTGO>
+ <EMPL? TEMP27 + MAPAP21>
+ <NTHL TEMP27 1 = N28>
+ <NTHUV N28 1 = N28 (TYPE FIX)>
+ <VEQUAL? N28 3 - PHRASE30 (TYPE FIX)>
+ <DEAD N28>
+ <SET N28 0 (TYPE FIX)>
+ <JUMP + PHRASE32>
+PHRASE30
+ <SET N28 1 (TYPE FIX)>
+PHRASE32
+ <ADD TEMP25 N28 = TEMP25>
+ <DEAD N28>
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <JUMP + MAP18>
+MAPAP21
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <LOOP>
+MAP34
+ <INTGO>
+ <EMPL? K6 + MAPAP37>
+ <NTHL K6 1 = N28>
+ <NTHUV N28 1 = TEMP27 (TYPE FIX)>
+ <VEQUAL? TEMP27 3 - PHRASE44 (TYPE FIX)>
+ <DEAD TEMP27>
+ <TYPE? SEGTMP8 <TYPE-CODE UNBOUND> - PHRASE47>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = SEGTMP8>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = TEMP27>
+ <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP52 1 TEMP27 (RECORD-TYPE LBIND)>
+ <DEAD TEMP52 TEMP27>
+ <FRAME '\1aSET-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <PUSH TEMP25>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aSET-TEMP 3>
+PHRASE47
+ <FRAME '\1aGEN>
+ <NTHUV N28 5 = TEMP27 (TYPE LIST)>
+ <DEAD N28>
+ <NTHL TEMP27 1 = N28 (TYPE NODE)>
+ <DEAD TEMP27>
+ <PUSH N28>
+ <PUSH SEGTMP8>
+ <CALL '\1aGEN 2 = TEMP52>
+ <GVAL 'NO-DATUM = TEMP27>
+ <EQUAL? TEMP27 TEMP52 + PHRASE58>
+ <DEAD TEMP27 TEMP52>
+ <FRAME '\1aSTRUCTYP-SEG>
+ <NTHUV N28 3 = STACK>
+ <CALL '\1aSTRUCTYP-SEG 1 = TEMP27>
+ <EQUAL? TEMP27 'MULTI + PHRASE58>
+ <DEAD TEMP27>
+ <FRAME '\1aSEGMENT-STACK>
+ <PUSH SEGTMP8>
+ <NTHR 'COUNTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV N28 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = STACK>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N28 3 = STACK>
+ <DEAD N28>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <NTHR 'SEGLABEL 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <CALL '\1aSEGMENT-STACK 5>
+ <JUMP + PHRASE68>
+PHRASE58
+ <NTHR 'SEGCALLED 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE68>
+ <DEAD TEMP27>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'SEGLABEL 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP27>
+ <CALL '\1aLABEL-TAG 1>
+PHRASE68
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP27>
+ <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP52 1 TEMP27 (RECORD-TYPE LBIND)>
+ <DEAD TEMP52 TEMP27>
+ <JUMP + PHRASE77>
+PHRASE44
+ <FRAME '\1aGEN>
+ <PUSH N28>
+ <DEAD N28>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+PHRASE77
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <JUMP + MAP34>
+MAPAP37
+ <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
+ <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE80>
+ <DEAD K6>
+ <FRAME '\1aFREE-TEMP>
+ <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR K6 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD K6>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SEGTMP8>
+ <DEAD SEGTMP8>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+PHRASE80
+ <EQUAL? WHERE5 'FLUSHED + BOOL87>
+ <NTHUV NOD4 3 = K6>
+ <EQUAL? K6 'NO-RETURN - PHRASE86>
+ <DEAD K6>
+BOOL87
+ <FRAME '\1aIEMIT>
+ <PUSH '`ACALL>
+ <PUSH TEMP14>
+ <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
+ <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE90>
+ <DEAD K6>
+ <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE93>
+PHRASE90
+ <SET K6 TEMP25>
+ <DEAD TEMP25>
+PHRASE93
+ <PUSH K6>
+ <DEAD K6>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE95>
+PHRASE86
+ <EQUAL? WHERE5 'DONT-CARE - PHRASE97>
+ <FRAME '\1aGEN-TEMP>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <CALL '\1aGEN-TEMP 1 = WHERE5>
+ <JUMP + PHRASE99>
+PHRASE97
+ <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE99>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH WHERE5>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <CALL '\1aUSE-TEMP 2>
+PHRASE99
+ <FRAME '\1aIEMIT>
+ <PUSH '`ACALL>
+ <PUSH TEMP14>
+ <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
+ <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE103>
+ <DEAD K6>
+ <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
+ <JUMP + PHRASE106>
+PHRASE103
+ <SET K6 TEMP25>
+ <DEAD TEMP25>
+PHRASE106
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH '=>
+ <PUSH WHERE5>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE95
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN WHERE5>
+ <DEAD WHERE5>
+ <END \1aAPPLY-GEN>
+#WORD *27307232206*
+<GFCN \1aUNWIND-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP UNBRANCH6 NOUNWIND7 TEMP15 K1-8:NODE K2-9:NODE LBL12:TEMP>
+ <INTGO>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = UNBRANCH6>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = NOUNWIND7>
+ <NTHUV N4 5 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = K1-8 (TYPE NODE)>
+ <DEAD TEMP15>
+ <NTHUV N4 5 = TEMP15 (TYPE LIST)>
+ <DEAD N4>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = K2-9 (TYPE NODE)>
+ <DEAD TEMP15>
+ <GEN-SET 'SPECD 'T>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOCATION>
+ <PUSH '+>
+ <PUSH UNBRANCH6>
+ <PUSH '=>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = LBL12>
+ <PUSH LBL12>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`BBIND>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH 'UNWIND>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH LBL12>
+ <FRAME '\1aFORM>
+ <PUSH 'QUOTE>
+ <PUSH 'FIX>
+ <CALL '\1aFORM 2 = STACK>
+ <FRAME '\1aCURRENT-FRAME>
+ <CALL '\1aCURRENT-FRAME 0 = STACK>
+ <CALL '\1aIEMIT 5>
+ <GEN-LVAL 'STK = TEMP15>
+ <ADD TEMP15 9 = TEMP15 (TYPE FIX)>
+ <GEN-SET 'STK TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aGEN>
+ <PUSH K1-8>
+ <DEAD K1-8>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aGEN 2 = TEMP15>
+ <FRAME '\1aSET-VALUE>
+ <PUSH 'UNWIND>
+ <PUSH 0>
+ <CALL '\1aSET-VALUE 2>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH LBL12>
+ <DEAD LBL12>
+ <CALL '\1aFREE-TEMP 1>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH NOUNWIND7>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH UNBRANCH6>
+ <DEAD UNBRANCH6>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aGEN>
+ <PUSH K2-9>
+ <DEAD K2-9>
+ <PUSH 'FLUSHED>
+ <CALL '\1aGEN 2>
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH '`UNWCONT>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH NOUNWIND7>
+ <DEAD NOUNWIND7>
+ <CALL '\1aLABEL-TAG 1>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aUNWIND-GEN>
+#WORD *35460403210*
+<GFCN \1aINTERFERE? ("VALUE" <OR ATOM FALSE> TEMP NODE) TMP4 N5>
+ <TEMP TEMP9 TEMP8 TEMP28>
+ <INTGO>
+ <LENUV N5 = TEMP9 (TYPE FIX)>
+ <LESS? TEMP9 8 - TAG10 (TYPE FIX)>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG10
+ <NTHUV N5 8 = TEMP9>
+ <DEAD N5>
+ <SET TEMP8 TEMP9>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + MAPAP15>
+ <SET TEMP8 %<> (TYPE FALSE)>
+ <LOOP>
+MAP12
+ <INTGO>
+ <EMPL? TEMP9 + MAPAP15>
+ <NTHL TEMP9 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE NODE> + TAG26>
+ <SET TEMP8 %<> (TYPE FALSE)>
+ <JUMP + PHRASE24>
+TAG26
+ <NTHUV TEMP8 1 = TEMP28 (TYPE FIX)>
+ <VEQUAL? TEMP28 11 + TAG29 (TYPE FIX)>
+ <DEAD TEMP28>
+ <SET TEMP8 %<> (TYPE FALSE)>
+ <JUMP + PHRASE24>
+TAG29
+ <NTHUV TEMP8 4 = TEMP8 (TYPE SYMTAB)>
+ <NTHUV TEMP8 3 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + TAG30>
+ <DEAD TEMP28>
+ <SET TEMP8 %<> (TYPE FALSE)>
+ <JUMP + PHRASE24>
+TAG30
+ <NTHUV TEMP8 4 = TEMP28 (TYPE FIX)>
+ <VEQUAL? TEMP28 -1 - TAG31 (TYPE FIX)>
+ <DEAD TEMP28>
+ <SET TEMP8 %<> (TYPE FALSE)>
+ <JUMP + PHRASE24>
+TAG31
+ <NTHUV TEMP8 10 = TEMP28>
+ <DEAD TEMP8>
+ <EQUAL? TEMP28 TMP4 + TAG34>
+ <DEAD TEMP28>
+ <SET TEMP8 %<> (TYPE FALSE)>
+ <JUMP + PHRASE24>
+TAG34
+ <RETURN 'T>
+PHRASE24
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <JUMP + MAP12>
+MAPAP15
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aINTERFERE?>
+#WORD *14205407060*
+<GFCN \1aINTERF-CHANGE ("VALUE" ANY ANY NODE) TMP4 N5>
+ <TEMP TEMP10>
+ <INTGO>
+ <TYPE? TMP4 <TYPE-CODE TEMP> - PHRASE7>
+ <FRAME '\1aINTERFERE?>
+ <PUSH TMP4>
+ <PUSH N5>
+ <DEAD N5>
+ <CALL '\1aINTERFERE? 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE7>
+ <DEAD TEMP10>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH TMP4>
+ <DEAD TMP4>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = STACK>
+ <CALL '\1aMOVE-ARG 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE7
+ <RETURN TMP4>
+ <DEAD TMP4>
+ <END \1aINTERF-CHANGE>
+#WORD *22271431000*
+<GFCN \1aADECL-GEN ("VALUE" ANY ANY ANY) NOD4 WHERE5>
+ <TEMP TEMP7>
+ <INTGO>
+ <NTHUV NOD4 5 = TEMP7 (TYPE LIST)>
+ <DEAD NOD4>
+ <NTHL TEMP7 1 = TEMP7 (TYPE NODE)>
+ <FRAME '\1aGEN>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <PUSH WHERE5>
+ <DEAD WHERE5>
+ <CALL '\1aGEN 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aADECL-GEN>
+#WORD *23517101420*
+<GFCN \1aSTACK-GEN ("VALUE" ANY ANY ANY) N4 W5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aGEN>
+ <NTHUV N4 5 = TEMP7 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP7 1 = STACK (TYPE NODE)>
+ <DEAD TEMP7>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aGEN 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSTACK-GEN>
+"ILIST, IVECTOR, IUVECTOR AND ISTRING."
+
+#WORD *20251716512*
+<GFCN \1aISTRUC-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP NAM6 K7 NT8 LEN9 TY11 (CALL-EV22 %<>) (GEN-EACH-TIME23 %<>) X24 TEMP41 REST-INS27 PUT-INS26 EMP-INS25:ATOM EL-TMP14 EL10:NODE EV-TMP15 STR2-20:TEMP>
+ <INTGO>
+ <NTHUV N4 4 = NAM6>
+ <NTHUV N4 5 = K7 (TYPE LIST)>
+ <NTHL K7 1 = LEN9 (TYPE NODE)>
+ <NTHUV N4 3 = TY11>
+ <FRAME '\1aISTYPE?>
+ <PUSH TY11>
+ <DEAD TY11>
+ <CALL '\1aISTYPE? 1 = TY11>
+ <NTHUV N4 2 = X24>
+ <TYPE? X24 <TYPE-CODE NODE> + TAG38>
+ <SET X24 %<> (TYPE FALSE)>
+ <JUMP + TAG48>
+TAG38
+ <NTHUV X24 1 = TEMP41 (TYPE FIX)>
+ <VEQUAL? TEMP41 98 - TAG42 (TYPE FIX)>
+ <DEAD TEMP41>
+ <SET X24 'T (TYPE ATOM)>
+ <JUMP + TAG48>
+TAG42
+ <NTHUV X24 1 = TEMP41 (TYPE FIX)>
+ <VEQUAL? TEMP41 37 + TAG44 (TYPE FIX)>
+ <DEAD TEMP41>
+ <SET X24 %<> (TYPE FALSE)>
+ <JUMP + TAG48>
+TAG44
+ <NTHUV X24 2 = X24>
+ <TYPE? X24 <TYPE-CODE NODE> + TAG45>
+ <SET X24 %<> (TYPE FALSE)>
+ <JUMP + TAG48>
+TAG45
+ <NTHUV X24 1 = TEMP41 (TYPE FIX)>
+ <DEAD X24>
+ <VEQUAL? TEMP41 98 - TAG47 (TYPE FIX)>
+ <DEAD TEMP41>
+ <SET X24 'T (TYPE ATOM)>
+ <JUMP + TAG48>
+TAG47
+ <SET X24 %<> (TYPE FALSE)>
+TAG48
+ <EQUAL? NAM6 'ITUPLE - PHRASE50>
+ <SET X24 'T (TYPE ATOM)>
+PHRASE50
+ <EMPL? K7 + PHRASE52>
+ <RESTL K7 1 = TEMP41 (TYPE LIST)>
+ <EMPL? TEMP41 - PHRASE52>
+ <DEAD TEMP41>
+ <EQUAL? NAM6 'ILIST + PHRASE52>
+ <FRAME '\1aIEMIT>
+ <TYPE? X24 <TYPE-CODE FALSE> + PHRASE56>
+ <SET TEMP41 '`USBLOCK (TYPE ATOM)>
+ <JUMP + PHRASE57>
+PHRASE56
+ <SET TEMP41 '`UUBLOCK (TYPE ATOM)>
+PHRASE57
+ <PUSH TEMP41>
+ <DEAD TEMP41>
+ <FRAME '\1aFORM>
+ <PUSH '`TYPE-CODE>
+ <PUSH TY11>
+ <CALL '\1aFORM 2 = STACK>
+ <FRAME '\1aGEN>
+ <PUSH LEN9>
+ <DEAD LEN9>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = K7>
+ <PUSH K7>
+ <PUSH '=>
+ <TYPE? W5 <TYPE-CODE TEMP> - PHRASE61>
+ <FRAME '\1aUSE-TEMP>
+ <PUSH W5>
+ <PUSH TY11>
+ <CALL '\1aUSE-TEMP 2>
+ <SET TEMP41 W5>
+ <JUMP + PHRASE67>
+PHRASE61
+ <EQUAL? W5 'DONT-CARE - PHRASE63>
+ <FRAME '\1aGEN-TEMP>
+ <SET NT8 TY11>
+ <TYPE? NT8 <TYPE-CODE FALSE> - COND65>
+ <SET NT8 'ANY (TYPE ATOM)>
+COND65
+ <PUSH NT8>
+ <DEAD NT8>
+ <CALL '\1aGEN-TEMP 1 = W5>
+ <SET TEMP41 W5>
+ <JUMP + PHRASE67>
+PHRASE63
+ <SET TEMP41 W5>
+PHRASE67
+ <PUSH TEMP41>
+ <DEAD TEMP41>
+ <CONS TY11 () = TEMP41>
+ <DEAD TY11>
+ <CONS '`TYPE TEMP41 = STACK>
+ <DEAD TEMP41>
+ <CALL '\1aIEMIT 6>
+ <TYPE? X24 <TYPE-CODE FALSE> - PHRASE71>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH K7>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE71>
+PHRASE52
+ <EQUAL? NAM6 'IVECTOR + BOOL74>
+ <EQUAL? NAM6 'ITUPLE - PHRASE73>
+BOOL74
+ <SET REST-INS27 '`RESTUV (TYPE ATOM)>
+ <SET PUT-INS26 '`PUTUV (TYPE ATOM)>
+ <SET EMP-INS25 '`EMPUV? (TYPE ATOM)>
+ <JUMP + PHRASE78>
+PHRASE73
+ <EQUAL? NAM6 'IUVECTOR - PHRASE75>
+ <SET REST-INS27 '`RESTUU (TYPE ATOM)>
+ <SET PUT-INS26 '`PUTUU (TYPE ATOM)>
+ <SET EMP-INS25 '`EMPUU? (TYPE ATOM)>
+ <JUMP + PHRASE78>
+PHRASE75
+ <EQUAL? NAM6 'ISTRING - PHRASE76>
+ <SET REST-INS27 '`RESTUS (TYPE ATOM)>
+ <SET PUT-INS26 '`PUTUS (TYPE ATOM)>
+ <SET EMP-INS25 '`EMPUS? (TYPE ATOM)>
+ <JUMP + PHRASE78>
+PHRASE76
+ <EQUAL? NAM6 'IBYTES - PHRASE77>
+ <SET REST-INS27 '`RESTUB (TYPE ATOM)>
+ <SET PUT-INS26 '`PUTUB (TYPE ATOM)>
+ <SET EMP-INS25 '`EMPUB? (TYPE ATOM)>
+ <JUMP + PHRASE78>
+PHRASE77
+ <SET REST-INS27 '`RESTL (TYPE ATOM)>
+ <SET PUT-INS26 '`PUTL (TYPE ATOM)>
+ <SET EMP-INS25 '`EMPL? (TYPE ATOM)>
+PHRASE78
+ <RESTL K7 1 = TEMP41 (TYPE LIST)>
+ <EMPL? TEMP41 - PHRASE80 (TYPE LIST)>
+ <DEAD TEMP41>
+ <SET EL-TMP14 0 (TYPE FIX)>
+ <JUMP + PHRASE91>
+PHRASE80
+ <NTHUV N4 1 = NT8 (TYPE FIX)>
+ <DEAD N4>
+ <VEQUAL? NT8 45 - BOOL85 (TYPE FIX)>
+ <RESTL K7 1 = TEMP41 (TYPE LIST)>
+ <NTHL TEMP41 1 = EL10 (TYPE NODE)>
+ <DEAD TEMP41>
+ <LENUV EL10 = TEMP41 (TYPE FIX)>
+ <LESS? TEMP41 8 + BOOL82 (TYPE FIX)>
+ <DEAD TEMP41>
+ <NTHUV EL10 8 = TEMP41>
+ <TYPE? TEMP41 <TYPE-CODE FALSE> - BOOL85>
+ <DEAD TEMP41>
+ <NTHUV EL10 1 = TEMP41 (TYPE FIX)>
+ <VEQUAL? TEMP41 15 + BOOL85 (TYPE FIX)>
+ <VEQUAL? TEMP41 37 + BOOL85 (TYPE FIX)>
+ <VEQUAL? TEMP41 44 + BOOL85 (TYPE FIX)>
+ <VEQUAL? TEMP41 45 - BOOL82 (TYPE FIX)>
+ <DEAD TEMP41>
+BOOL85
+ <VEQUAL? NT8 44 - PHRASE81 (TYPE FIX)>
+ <FRAME '\1aTYPE-OK?>
+ <RESTL K7 1 = TEMP41 (TYPE LIST)>
+ <DEAD K7>
+ <NTHL TEMP41 1 = EL10 (TYPE NODE)>
+ <DEAD TEMP41>
+ <NTHUV EL10 3 = STACK>
+ <PUSH <OR FORM LIST VECTOR UVECTOR LVAL GVAL>>
+ <CALL '\1aTYPE-OK? 2 = TEMP41>
+ <TYPE? TEMP41 <TYPE-CODE FALSE> - PHRASE81>
+ <DEAD TEMP41>
+BOOL82
+ <FRAME '\1aGEN>
+ <PUSH EL10>
+ <CALL '\1aGEN 1 = EL-TMP14>
+ <JUMP + PHRASE91>
+PHRASE81
+ <VEQUAL? NT8 44 - PHRASE89 (TYPE FIX)>
+ <DEAD NT8>
+ <FRAME '\1aGEN>
+ <PUSH EL10>
+ <CALL '\1aGEN 1 = EV-TMP15>
+ <SET CALL-EV22 'T (TYPE ATOM)>
+ <JUMP + PHRASE91>
+PHRASE89
+ <SET GEN-EACH-TIME23 'T (TYPE ATOM)>
+PHRASE91
+ <FRAME '\1aGEN>
+ <PUSH LEN9>
+ <DEAD LEN9>
+ <CALL '\1aGEN 1 = K7>
+ <EQUAL? NAM6 'ILIST - PHRASE94>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <TYPE? W5 <TYPE-CODE TEMP> - PHRASE97>
+ <FRAME '\1aUSE-TEMP>
+ <SET LEN9 W5>
+ <PUSH LEN9>
+ <PUSH TY11>
+ <DEAD TY11>
+ <CALL '\1aUSE-TEMP 2 = TEMP41>
+ <JUMP + PHRASE99>
+PHRASE97
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = LEN9>
+ <SET TEMP41 LEN9>
+PHRASE99
+ <PUSH TEMP41>
+ <DEAD TEMP41>
+ <PUSH ()>
+ <CALL '\1aIEMIT 3>
+ <TYPE? K7 <TYPE-CODE FIX> + BOOL103>
+ <NTHUV K7 2 = TEMP41 (TYPE FIX)>
+ <GRTR? TEMP41 1 - PHRASE102 (TYPE FIX)>
+ <DEAD TEMP41>
+BOOL103
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = STR2-20>
+ <PUSH STR2-20>
+ <PUSH K7>
+ <DEAD K7>
+ <CALL '\1aIEMIT 3>
+ <SET K7 STR2-20>
+ <DEAD STR2-20>
+PHRASE102
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'LIST>
+ <CALL '\1aGEN-TEMP 1 = STR2-20>
+ <PUSH STR2-20>
+ <PUSH ()>
+ <CALL '\1aIEMIT 3>
+ <JUMP + PHRASE110>
+PHRASE94
+ <FRAME '\1aIEMIT>
+ <TYPE? X24 <TYPE-CODE FALSE> + PHRASE113>
+ <SET TEMP41 '`USBLOCK (TYPE ATOM)>
+ <JUMP + PHRASE114>
+PHRASE113
+ <SET TEMP41 '`UUBLOCK (TYPE ATOM)>
+PHRASE114
+ <PUSH TEMP41>
+ <DEAD TEMP41>
+ <FRAME '\1aFORM>
+ <PUSH '`TYPE-CODE>
+ <PUSH TY11>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH K7>
+ <PUSH '=>
+ <TYPE? W5 <TYPE-CODE TEMP> - PHRASE117>
+ <FRAME '\1aUSE-TEMP>
+ <SET LEN9 W5>
+ <PUSH LEN9>
+ <PUSH TY11>
+ <DEAD TY11>
+ <CALL '\1aUSE-TEMP 2 = TEMP41>
+ <JUMP + PHRASE119>
+PHRASE117
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = LEN9>
+ <SET TEMP41 LEN9>
+PHRASE119
+ <PUSH TEMP41>
+ <DEAD TEMP41>
+ <CALL '\1aIEMIT 5>
+ <TYPE? X24 <TYPE-CODE FALSE> - PHRASE122>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH K7>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE122
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = STR2-20>
+ <PUSH STR2-20>
+ <PUSH LEN9>
+ <CALL '\1aIEMIT 3>
+PHRASE110
+ <FRAME '\1aIEMIT>
+ <PUSH '`LOOP>
+ <CONS 'LENGTH () = TEMP41>
+ <CONS 'VALUE TEMP41 = TEMP41>
+ <NTHUV STR2-20 1 = NT8 (TYPE ATOM)>
+ <CONS NT8 TEMP41 = STACK>
+ <DEAD NT8 TEMP41>
+ <SET NT8 2 (TYPE FIX)>
+ <VEQUAL? CALL-EV22 0 + PHRASE128>
+ <CONS 'LENGTH () = TY11>
+ <CONS 'VALUE TY11 = TY11>
+ <CONS 'TYPE TY11 = TY11>
+ <NTHUV EV-TMP15 1 = TEMP41 (TYPE ATOM)>
+ <CONS TEMP41 TY11 = TY11>
+ <DEAD TEMP41>
+ <CONS TY11 () = TEMP41>
+ <DEAD TY11>
+ <JUMP + PHRASE133>
+PHRASE128
+ <VEQUAL? GEN-EACH-TIME23 0 - PHRASE131>
+ <TYPE? EL-TMP14 <TYPE-CODE TEMP> - PHRASE131>
+ <CONS 'LENGTH () = TY11>
+ <CONS 'VALUE TY11 = TY11>
+ <CONS 'TYPE TY11 = TY11>
+ <NTHUV EL-TMP14 1 = TEMP41 (TYPE ATOM)>
+ <CONS TEMP41 TY11 = TY11>
+ <DEAD TEMP41>
+ <CONS TY11 () = TEMP41>
+ <DEAD TY11>
+ <JUMP + PHRASE133>
+PHRASE131
+ <SET TEMP41 () (TYPE LIST)>
+PHRASE133
+ <LOOP (TEMP41 VALUE) (NT8 VALUE)>
+TAG134
+ <INTGO>
+ <EMPL? TEMP41 + TAG126>
+ <NTHL TEMP41 1 = STACK>
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <ADD NT8 1 = NT8 (TYPE FIX)>
+ <JUMP + TAG134>
+TAG126
+ <EQUAL? NAM6 'ILIST - PHRASE137>
+ <CONS 'VALUE () = TY11>
+ <NTHUV K7 1 = TEMP41 (TYPE ATOM)>
+ <CONS TEMP41 TY11 = TY11>
+ <DEAD TEMP41>
+ <CONS TY11 () = TEMP41>
+ <DEAD TY11>
+ <JUMP + PHRASE138>
+PHRASE137
+ <SET TEMP41 () (TYPE LIST)>
+PHRASE138
+ <LOOP (TEMP41 VALUE) (NT8 VALUE)>
+TAG139
+ <INTGO>
+ <EMPL? TEMP41 + TAG135>
+ <NTHL TEMP41 1 = STACK>
+ <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
+ <ADD NT8 1 = NT8 (TYPE FIX)>
+ <JUMP + TAG139>
+TAG135
+ <CALL '\1aIEMIT NT8>
+ <DEAD NT8>
+ <FRAME '\1aLABEL-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "ISTR">
+ <CALL '\1aMAKE-TAG 1 = TY11>
+ <PUSH TY11>
+ <CALL '\1aLABEL-TAG 1>
+ <EQUAL? NAM6 'ILIST - PHRASE144>
+ <FRAME '\1aIEMIT>
+ <PUSH '`VEQUAL?>
+ <PUSH K7>
+ <PUSH 0>
+ <PUSH '+>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "ISTRE">
+ <CALL '\1aMAKE-TAG 1 = TEMP41>
+ <PUSH TEMP41>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE147>
+PHRASE144
+ <FRAME '\1aIEMIT>
+ <PUSH EMP-INS25>
+ <DEAD EMP-INS25>
+ <PUSH STR2-20>
+ <PUSH '+>
+ <FRAME '\1aMAKE-TAG>
+ <PUSH "ISTRE">
+ <CALL '\1aMAKE-TAG 1 = TEMP41>
+ <PUSH TEMP41>
+ <CALL '\1aIEMIT 4>
+PHRASE147
+ <VEQUAL? CALL-EV22 0 + PHRASE151>
+ <FRAME '\1aSTART-FRAME>
+ <PUSH 'EVAL>
+ <CALL '\1aSTART-FRAME 1>
+ <FRAME '\1aPUSH>
+ <PUSH EV-TMP15>
+ <CALL '\1aPUSH 1>
+ <FRAME '\1aMSUBR-CALL>
+ <PUSH 'EVAL>
+ <PUSH 1>
+ <FRAME '\1aGEN-TEMP>
+ <CALL '\1aGEN-TEMP 0 = EL-TMP14>
+ <PUSH EL-TMP14>
+ <CALL '\1aMSUBR-CALL 3>
+ <JUMP + PHRASE156>
+PHRASE151
+ <VEQUAL? GEN-EACH-TIME23 0 + PHRASE156>
+ <FRAME '\1aGEN>
+ <PUSH EL10>
+ <DEAD EL10>
+ <CALL '\1aGEN 1 = EL-TMP14>
+PHRASE156
+ <EQUAL? NAM6 'ILIST - PHRASE159>
+ <FRAME '\1aIEMIT>
+ <PUSH '`CONS>
+ <PUSH EL-TMP14>
+ <PUSH ()>
+ <PUSH '=>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'LIST>
+ <CALL '\1aGEN-TEMP 1 = REST-INS27>
+ <PUSH REST-INS27>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`EMPL?>
+ <PUSH STR2-20>
+ <PUSH '+>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = NT8>
+ <PUSH NT8>
+ <CALL '\1aIEMIT 4>
+ <FRAME '\1aIEMIT>
+ <PUSH '`PUTREST>
+ <PUSH STR2-20>
+ <PUSH REST-INS27>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <PUSH STR2-20>
+ <PUSH REST-INS27>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aBRANCH-TAG>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = PUT-INS26>
+ <PUSH PUT-INS26>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH NT8>
+ <DEAD NT8>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <PUSH STR2-20>
+ <PUSH REST-INS27>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <PUSH LEN9>
+ <PUSH REST-INS27>
+ <DEAD REST-INS27>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH PUT-INS26>
+ <DEAD PUT-INS26>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH K7>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH K7>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE173>
+PHRASE159
+ <FRAME '\1aIEMIT>
+ <PUSH PUT-INS26>
+ <DEAD PUT-INS26>
+ <PUSH STR2-20>
+ <PUSH 1>
+ <PUSH EL-TMP14>
+ <CALL '\1aIEMIT 4>
+ <FRAME '\1aIEMIT>
+ <PUSH REST-INS27>
+ <DEAD REST-INS27>
+ <PUSH STR2-20>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH STR2-20>
+ <CALL '\1aIEMIT 5>
+PHRASE173
+ <VEQUAL? CALL-EV22 0 - BOOL178>
+ <VEQUAL? GEN-EACH-TIME23 0 + PHRASE177>
+BOOL178
+ <FRAME '\1aFREE-TEMP>
+ <PUSH EL-TMP14>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE177
+ <FRAME '\1aBRANCH-TAG>
+ <PUSH TY11>
+ <DEAD TY11>
+ <CALL '\1aBRANCH-TAG 1>
+ <FRAME '\1aLABEL-TAG>
+ <PUSH TEMP41>
+ <DEAD TEMP41>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH STR2-20>
+ <DEAD STR2-20>
+ <CALL '\1aFREE-TEMP 1>
+ <VEQUAL? CALL-EV22 0 + PHRASE184>
+ <DEAD CALL-EV22>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH EV-TMP15>
+ <DEAD EV-TMP15>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE186>
+PHRASE184
+ <VEQUAL? GEN-EACH-TIME23 0 - PHRASE186>
+ <DEAD GEN-EACH-TIME23>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH EL-TMP14>
+ <DEAD EL-TMP14>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE186
+ <FRAME '\1aMOVE-ARG>
+ <PUSH LEN9>
+ <DEAD LEN9>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMOVE-ARG 2 = W5>
+PHRASE71
+ <TYPE? X24 <TYPE-CODE FALSE> + PHRASE251>
+ <DEAD X24>
+ <TYPE? K7 <TYPE-CODE TEMP> - PHRASE192>
+ <EQUAL? NAM6 'IUVECTOR + PHRASE194>
+ <NTHUV K7 2 = NT8 (TYPE FIX)>
+ <GRTR? NT8 1 - PHRASE194 (TYPE FIX)>
+ <DEAD NT8>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = TY11>
+ <JUMP + PHRASE199>
+PHRASE194
+ <SET TY11 K7>
+PHRASE199
+ <EQUAL? NAM6 'IVECTOR + BOOL202>
+ <EQUAL? NAM6 'ITUPLE - PHRASE201>
+BOOL202
+ <FRAME '\1aIEMIT>
+ <PUSH '`LSH>
+ <PUSH K7>
+ <PUSH 1>
+ <PUSH '=>
+ <PUSH TY11>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE207>
+PHRASE201
+ <EQUAL? NAM6 'IBYTES - PHRASE204>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH K7>
+ <PUSH 3>
+ <PUSH '=>
+ <PUSH TY11>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LSH>
+ <PUSH TY11>
+ <PUSH -2>
+ <PUSH '=>
+ <PUSH TY11>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE207>
+PHRASE204
+ <EQUAL? NAM6 'ISTRING - PHRASE207>
+ <DEAD NAM6>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH K7>
+ <PUSH 4>
+ <PUSH '=>
+ <PUSH TY11>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`DIV>
+ <PUSH TY11>
+ <PUSH 5>
+ <PUSH '=>
+ <PUSH TY11>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "TOPS20">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`IFSYS>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ADD>
+ <PUSH K7>
+ <PUSH 3>
+ <PUSH '=>
+ <PUSH TY11>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`LSH>
+ <PUSH TY11>
+ <PUSH -2>
+ <PUSH '=>
+ <PUSH TY11>
+ <CALL '\1aIEMIT 5>
+ <FRAME '\1aIEMIT>
+ <PUSH '`ENDIF>
+ <PUSH "UNIX">
+ <CALL '\1aIEMIT 2>
+PHRASE207
+ <FRAME '\1aFREE-TEMP>
+ <PUSH K7>
+ <PUSH %<>>
+ <CALL '\1aFREE-TEMP 2>
+ <GEN-ASSIGNED? 'STKTMP - PHRASE218>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <GEN-LVAL 'STKTMP = STACK>
+ <PUSH TY11>
+ <PUSH '=>
+ <GEN-LVAL 'STKTMP = STACK>
+ <CALL '\1aIEMIT 5>
+ <JUMP + PHRASE224>
+PHRASE218
+ <FRAME '\1aIEMIT>
+ <PUSH '`SUB>
+ <PUSH 0>
+ <PUSH TY11>
+ <PUSH '=>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = CALL-EV22>
+ <GEN-SET 'STKTMP CALL-EV22>
+ <PUSH CALL-EV22>
+ <DEAD CALL-EV22>
+ <CALL '\1aIEMIT 5>
+PHRASE224
+ <VEQUAL? K7 TY11 + PHRASE231>
+ <DEAD K7>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TY11>
+ <DEAD TY11>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE231
+ <GEN-LVAL 'STK = CALL-EV22>
+ <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
+ <GEN-SET 'STK CALL-EV22>
+ <DEAD CALL-EV22>
+ <RETURN W5>
+ <DEAD W5>
+PHRASE192
+ <EQUAL? NAM6 'ISTRING - PHRASE237>
+ <ADD K7 4 = CALL-EV22 (TYPE FIX)>
+ <DIV CALL-EV22 5 = CALL-EV22 (TYPE FIX)>
+ <GEN-LVAL 'STK-CHARS7 = NAM6>
+ <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
+ <DEAD NAM6>
+ <GEN-SET 'STK-CHARS7 CALL-EV22>
+ <DEAD CALL-EV22>
+ <ADD K7 3 = CALL-EV22 (TYPE FIX)>
+ <DEAD K7>
+ <DIV CALL-EV22 4 = CALL-EV22 (TYPE FIX)>
+ <GEN-LVAL 'STK-CHARS8 = NAM6>
+ <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
+ <DEAD NAM6>
+ <GEN-SET 'STK-CHARS8 CALL-EV22>
+ <DEAD CALL-EV22>
+ <GEN-LVAL 'STK = CALL-EV22>
+ <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
+ <GEN-SET 'STK CALL-EV22>
+ <DEAD CALL-EV22>
+ <RETURN W5>
+ <DEAD W5>
+PHRASE237
+ <GEN-LVAL 'STK = CALL-EV22>
+ <EQUAL? NAM6 'IUVECTOR - PHRASE255>
+ <SET NAM6 K7>
+ <DEAD K7>
+ <JUMP + PHRASE258>
+PHRASE255
+ <EQUAL? NAM6 'IBYTES - PHRASE256>
+ <DEAD NAM6>
+ <ADD K7 3 = NT8 (TYPE FIX)>
+ <DEAD K7>
+ <DIV NT8 4 = NAM6 (TYPE FIX)>
+ <DEAD NT8>
+ <JUMP + PHRASE258>
+PHRASE256
+ <LSH K7 1 = NAM6 (TYPE FIX)>
+ <DEAD K7>
+PHRASE258
+ <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
+ <DEAD NAM6>
+ <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
+ <GEN-SET 'STK CALL-EV22>
+ <DEAD CALL-EV22>
+PHRASE251
+ <RETURN W5>
+ <DEAD W5>
+ <END \1aISTRUC-GEN>\r\r
+#WORD *16572230661*
+<GFCN \1aMULTI-SET-GEN ("VALUE" ANY NODE ANY) N4 W5>
+ <TEMP K6 (SEG?7 %<>) (SIDE-E8 %<>) (MX9 0) (MN10 0) VARS11 VLN13 TEMP19 TEMP20 TEMP22 LV17 (I18:FIX 0) N32:NODE SEGTYP15>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <NTHUV N4 4 = VARS11 (TYPE LIST)>
+ <DEAD N4>
+ <LENL VARS11 = VLN13 (TYPE FIX)>
+ <SET TEMP20 VLN13>
+ <SET TEMP22 VARS11>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <GRTR? TEMP20 0 - RESTL23 (TYPE FIX)>
+ <LOOP (TEMP22 VALUE) (TEMP20 VALUE)>
+RESTL21
+ <INTGO>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <GRTR? TEMP20 0 + RESTL21 (TYPE FIX)>
+RESTL23
+ <NTHL TEMP22 1 = TEMP19 (TYPE LIST)>
+ <DEAD TEMP22>
+ <NTHL TEMP19 1 = LV17>
+ <DEAD TEMP19>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <SET TEMP19 K6 (TYPE LIST)>
+ <LOOP>
+MAP25
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP28>
+ <NTHL TEMP19 1 = N32>
+ <NTHUV N32 1 = TEMP20 (TYPE FIX)>
+ <VEQUAL? TEMP20 68 + BOOL36 (TYPE FIX)>
+ <VEQUAL? TEMP20 3 - PHRASE35 (TYPE FIX)>
+ <DEAD TEMP20>
+BOOL36
+ <SET SEG?7 'T (TYPE ATOM)>
+ <FRAME '\1aMAXL>
+ <NTHUV N32 5 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = TEMP22 (TYPE NODE)>
+ <NTHUV TEMP22 3 = TEMP20>
+ <DEAD TEMP22>
+ <PUSH TEMP20>
+ <CALL '\1aMAXL 1 = TEMP22>
+ <ADD TEMP22 MX9 = MX9 (TYPE FIX)>
+ <DEAD TEMP22>
+ <LESS? MX9 65535 - TAG40>
+ <SET MX9 65535 (TYPE FIX)>
+TAG40
+ <FRAME '\1aMINL>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aMINL 1 = TEMP22>
+ <ADD TEMP22 MN10 = MN10 (TYPE FIX)>
+ <DEAD TEMP22>
+ <JUMP + PHRASE42>
+PHRASE35
+ <ADD I18 1 = I18 (TYPE FIX)>
+ <ADD MN10 1 = MN10 (TYPE FIX)>
+ <ADD MX9 1 = TEMP22 (TYPE FIX)>
+ <DEAD MX9>
+ <LESS? TEMP22 65535 - TAG43>
+ <SET TEMP22 65535 (TYPE FIX)>
+TAG43
+ <SET MX9 TEMP22>
+ <DEAD TEMP22>
+PHRASE42
+ <LENUV N32 = TEMP22 (TYPE FIX)>
+ <LESS? TEMP22 8 + PHRASE45 (TYPE FIX)>
+ <DEAD TEMP22>
+ <NTHUV N32 8 = TEMP22>
+ <DEAD N32>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE45>
+ <DEAD TEMP22>
+ <SET SIDE-E8 'T (TYPE ATOM)>
+PHRASE45
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP25>
+MAPAP28
+ <VEQUAL? SEG?7 0 + PHRASE49>
+ <DEAD SEG?7>
+ <GETS 'BIND = TEMP19 (TYPE LBIND)>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = SEG?7>
+ <BBIND 'SEGLABEL 'ANY 'FIX SEG?7>
+ <DEAD SEG?7>
+ <BBIND 'COUNTMP 'ANY 'FIX>
+ <BBIND 'SEGCALLED 'ANY 'FIX %<>>
+ <SET SIDE-E8 #T$UNBOUND 0>
+ <SET SEG?7 K6 (TYPE LIST)>
+ <DEAD K6>
+ <LOOP>
+MAP58
+ <INTGO>
+ <EMPL? SEG?7 + MAPAP61>
+ <NTHL SEG?7 1 = N32>
+ <NTHUV N32 1 = TEMP22 (TYPE FIX)>
+ <VEQUAL? TEMP22 68 + BOOL70 (TYPE FIX)>
+ <VEQUAL? TEMP22 3 - PHRASE69 (TYPE FIX)>
+ <DEAD TEMP22>
+BOOL70
+ <TYPE? SIDE-E8 <TYPE-CODE UNBOUND> - PHRASE72>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = SIDE-E8>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH 'FIX>
+ <CALL '\1aGEN-TEMP 1 = TEMP22>
+ <NTHR 'COUNTMP 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP20 TEMP22>
+ <FRAME '\1aSET-TEMP>
+ <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <PUSH I18>
+ <PUSH (`TYPE FIX)>
+ <CALL '\1aSET-TEMP 3>
+PHRASE72
+ <FRAME '\1aGEN>
+ <NTHUV N32 5 = TEMP22 (TYPE LIST)>
+ <DEAD N32>
+ <NTHL TEMP22 1 = N32 (TYPE NODE)>
+ <DEAD TEMP22>
+ <PUSH N32>
+ <PUSH SIDE-E8>
+ <CALL '\1aGEN 2 = TEMP20>
+ <FRAME '\1aSTRUCTYP-SEG>
+ <NTHUV N32 3 = STACK>
+ <CALL '\1aSTRUCTYP-SEG 1 = SEGTYP15>
+ <GVAL 'NO-DATUM = TEMP22>
+ <EQUAL? TEMP22 TEMP20 + PHRASE85>
+ <DEAD TEMP22 TEMP20>
+ <EQUAL? SEGTYP15 'MULTI + PHRASE85>
+ <FRAME '\1aSEGMENT-STACK>
+ <PUSH SIDE-E8>
+ <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <PUSH SEGTYP15>
+ <DEAD SEGTYP15>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N32 3 = STACK>
+ <DEAD N32>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aSEGMENT-STACK 5>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP22>
+ <NTHR 'SEGLABEL 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP20 TEMP22>
+ <JUMP + PHRASE105>
+PHRASE85
+ <NTHR 'SEGCALLED 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE105>
+ <DEAD TEMP22>
+ <FRAME '\1aLABEL-TAG>
+ <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP22>
+ <CALL '\1aLABEL-TAG 1>
+ <FRAME '\1aMAKE-TAG>
+ <CALL '\1aMAKE-TAG 0 = TEMP22>
+ <NTHR 'SEGLABEL 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
+ <DEAD TEMP20 TEMP22>
+ <JUMP + PHRASE105>
+PHRASE69
+ <FRAME '\1aGEN>
+ <PUSH N32>
+ <DEAD N32>
+ <GVAL 'POP-STACK = STACK>
+ <CALL '\1aGEN 2>
+PHRASE105
+ <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
+ <JUMP + MAP58>
+MAPAP61
+ <GEN-LVAL 'CAREFUL = SEG?7>
+ <TYPE? SEG?7 <TYPE-CODE FALSE> + PHRASE108>
+ <DEAD SEG?7>
+ <VEQUAL? MX9 MN10 + PHRASE108 (TYPE FIX)>
+ <DEAD MX9 MN10>
+ <FRAME '\1aIEMIT>
+ <PUSH '`VEQUAL?>
+ <NTHR 'COUNTMP 2 = SEG?7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SEG?7 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD SEG?7>
+ <PUSH VLN13>
+ <PUSH '->
+ <PUSH '`COMPERR>
+ <CALL '\1aIEMIT 5>
+PHRASE108
+ <LOOP>
+AGAIN119
+ <INTGO>
+ <SET SEG?7 VLN13>
+ <SET TEMP22 VARS11>
+ <SUB SEG?7 1 = SEG?7 (TYPE FIX)>
+ <GRTR? SEG?7 0 - RESTL124 (TYPE FIX)>
+ <LOOP (TEMP22 VALUE) (SEG?7 VALUE)>
+RESTL123
+ <INTGO>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <SUB SEG?7 1 = SEG?7 (TYPE FIX)>
+ <GRTR? SEG?7 0 + RESTL123 (TYPE FIX)>
+RESTL124
+ <NTHL TEMP22 1 = K6 (TYPE LIST)>
+ <DEAD TEMP22>
+ <NTHL K6 1 = SIDE-E8>
+ <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE121>
+ <NTHUV SIDE-E8 3 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE121>
+ <DEAD TEMP22>
+ <NTHUV SIDE-E8 4 = SEG?7 (TYPE FIX)>
+ <VEQUAL? SEG?7 -1 + PHRASE121 (TYPE FIX)>
+ <DEAD SEG?7>
+ <FRAME '\1aUSE-TEMP>
+ <NTHUV SIDE-E8 10 = TEMP20>
+ <DEAD SIDE-E8>
+ <PUSH TEMP20>
+ <RESTL K6 1 = TEMP22 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL TEMP22 1 = SEG?7>
+ <DEAD TEMP22>
+ <TYPE? SEG?7 <TYPE-CODE FALSE> - BOOL128>
+ <SET SEG?7 'T (TYPE ATOM)>
+BOOL128
+ <PUSH SEG?7>
+ <DEAD SEG?7>
+ <CALL '\1aUSE-TEMP 2>
+ <FRAME '\1aIEMIT>
+ <PUSH '`POP>
+ <PUSH '=>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aIEMIT 3>
+ <JUMP + PHRASE130>
+PHRASE121
+ <FRAME '\1aIEMIT>
+ <PUSH '`POP>
+ <PUSH '=>
+ <FRAME '\1aGEN-TEMP>
+ <RESTL K6 1 = TEMP22 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL TEMP22 1 = SEG?7>
+ <DEAD TEMP22>
+ <TYPE? SEG?7 <TYPE-CODE FALSE> - BOOL133>
+ <SET SEG?7 'T (TYPE ATOM)>
+BOOL133
+ <PUSH SEG?7>
+ <DEAD SEG?7>
+ <CALL '\1aGEN-TEMP 1 = TEMP20>
+ <PUSH TEMP20>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aSET-VALUE>
+ <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE136>
+ <NTHUV SIDE-E8 2 = SEG?7 (TYPE ATOM)>
+ <JUMP + PHRASE137>
+PHRASE136
+ <SET SEG?7 SIDE-E8>
+PHRASE137
+ <PUSH SEG?7>
+ <DEAD SEG?7>
+ <PUSH TEMP20>
+ <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - TAG138>
+ <NTHUV SIDE-E8 4 = SEG?7 (TYPE FIX)>
+ <DEAD SIDE-E8>
+ <VEQUAL? SEG?7 -1 + TAG138 (TYPE FIX)>
+ <DEAD SEG?7>
+ <SET SEG?7 %<> (TYPE FALSE)>
+ <JUMP + TAG139>
+TAG138
+ <SET SEG?7 'T (TYPE ATOM)>
+TAG139
+ <PUSH SEG?7>
+ <DEAD SEG?7>
+ <CALL '\1aSET-VALUE 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE130
+ <SUB VLN13 1 = VLN13 (TYPE FIX)>
+ <VEQUAL? VLN13 0 - AGAIN119 (TYPE FIX)>
+ <UNBIND TEMP19>
+ <DEAD TEMP19>
+ <ADJ -27>
+ <JUMP + MAPAP260>
+PHRASE49
+ <VEQUAL? SIDE-E8 0 + PHRASE148>
+ <DEAD SIDE-E8>
+ <SET TEMP20 () (TYPE LIST)>
+ <SET TEMP22 () (TYPE LIST)>
+ <SET TEMP19 K6 (TYPE LIST)>
+ <DEAD K6>
+ <SET SEG?7 VARS11 (TYPE LIST)>
+ <LOOP>
+MAP150
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP153>
+ <EMPL? SEG?7 + MAPAP153>
+ <NTHL TEMP19 1 = N32>
+ <NTHL SEG?7 1 = K6>
+ <NTHUV N32 3 = SIDE-E8>
+ <NTHL K6 1 = SEGTYP15>
+ <TYPE? SEGTYP15 <TYPE-CODE SYMTAB> - PHRASE162>
+ <DEAD SEGTYP15>
+ <FRAME '\1aTYPE-AND>
+ <RESTL K6 1 = SEGTYP15 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL SEGTYP15 1 = STACK>
+ <DEAD SEGTYP15>
+ <PUSH SIDE-E8>
+ <DEAD SIDE-E8>
+ <CALL '\1aTYPE-AND 2 = SIDE-E8>
+PHRASE162
+ <FRAME '\1aISTYPE?>
+ <PUSH SIDE-E8>
+ <DEAD SIDE-E8>
+ <CALL '\1aISTYPE? 1 = SIDE-E8>
+ <TYPE? SIDE-E8 <TYPE-CODE FALSE> + BOOL166>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH SIDE-E8>
+ <CALL '\1aTYPEPRIM 1 = SEGTYP15>
+ <EQUAL? SEGTYP15 'FIX + PHRASE170>
+ <EQUAL? SEGTYP15 'LIST + PHRASE170>
+ <DEAD SEGTYP15>
+BOOL166
+ <SET SIDE-E8 'ANY (TYPE ATOM)>
+PHRASE170
+ <FRAME '\1aGEN>
+ <PUSH N32>
+ <DEAD N32>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH SIDE-E8>
+ <DEAD SIDE-E8>
+ <CALL '\1aGEN-TEMP 1 = STACK>
+ <CALL '\1aGEN 2 = SEGTYP15>
+ <CONS SEGTYP15 () = SEGTYP15 (TYPE LIST)>
+ <EMPL? TEMP20 - TAG173>
+ <SET TEMP20 SEGTYP15 (TYPE LIST)>
+ <JUMP + TAG174>
+TAG173
+ <PUTREST TEMP22 SEGTYP15>
+ <DEAD TEMP22>
+TAG174
+ <SET TEMP22 SEGTYP15 (TYPE LIST)>
+ <DEAD SEGTYP15>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
+ <JUMP + MAP150>
+MAPAP153
+ <SET SEG?7 VARS11 (TYPE LIST)>
+ <DEAD VARS11>
+ <SET TEMP19 TEMP20 (TYPE LIST)>
+ <DEAD TEMP20>
+ <LOOP>
+MAP176
+ <INTGO>
+ <EMPL? SEG?7 + MAPAP260>
+ <EMPL? TEMP19 + MAPAP260>
+ <NTHL SEG?7 1 = K6>
+ <NTHL TEMP19 1 = SIDE-E8>
+ <NTHL K6 1 = TEMP22>
+ <DEAD K6>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <TYPE? TEMP22 <TYPE-CODE SYMTAB> - PHRASE189>
+ <NTHUV TEMP22 4 = SEGTYP15 (TYPE FIX)>
+ <VEQUAL? SEGTYP15 -1 + PHRASE189 (TYPE FIX)>
+ <DEAD SEGTYP15>
+ <SET TEMP20 'T (TYPE ATOM)>
+ <NTHUV TEMP22 3 = SEGTYP15>
+ <TYPE? SEGTYP15 <TYPE-CODE FALSE> - PHRASE189>
+ <DEAD SEGTYP15>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <FRAME '\1aTEM-NAME-SYM>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aTEM-NAME-SYM 1 = STACK>
+ <PUSH SIDE-E8>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SIDE-E8>
+ <DEAD SIDE-E8>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE197>
+PHRASE189
+ <TYPE? TEMP22 <TYPE-CODE SYMTAB> - PHRASE199>
+ <NTHUV TEMP22 2 = TEMP22 (TYPE ATOM)>
+PHRASE199
+ <FRAME '\1aSET-VALUE>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <PUSH SIDE-E8>
+ <VEQUAL? TEMP20 0 - TAG201>
+ <DEAD TEMP20>
+ <SET SEGTYP15 'T (TYPE ATOM)>
+ <JUMP + TAG202>
+TAG201
+ <SET SEGTYP15 %<> (TYPE FALSE)>
+TAG202
+ <PUSH SEGTYP15>
+ <DEAD SEGTYP15>
+ <CALL '\1aSET-VALUE 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH SIDE-E8>
+ <DEAD SIDE-E8>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE197
+ <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP176>
+PHRASE148
+ <SET MX9 () (TYPE LIST)>
+ <LOOP>
+AGAIN211
+ <INTGO>
+ <SET VLN13 () (TYPE LIST)>
+ <SET MN10 VLN13>
+ <SET SIDE-E8 %<> (TYPE FALSE)>
+ <SET SEG?7 VARS11 (TYPE LIST)>
+ <DEAD VARS11>
+ <SET TEMP19 K6 (TYPE LIST)>
+ <DEAD K6>
+ <LOOP>
+MAP213
+ <INTGO>
+ <EMPL? SEG?7 + MAPAP216>
+ <EMPL? TEMP19 + MAPAP216>
+ <SET K6 SEG?7>
+ <SET VARS11 TEMP19>
+ <NTHL K6 1 = TEMP22 (TYPE LIST)>
+ <DEAD K6>
+ <SET TEMP20 %<> (TYPE FALSE)>
+ <NTHL VARS11 1 = SEGTYP15 (TYPE NODE)>
+ <NTHL TEMP22 1 = K6>
+ <TYPE? K6 <TYPE-CODE TEMP> + BOOL230>
+ <FRAME '\1aREF?>
+ <PUSH K6>
+ <RESTL VARS11 1 = STACK (TYPE LIST)>
+ <DEAD VARS11>
+ <CALL '\1aREF? 2 = VARS11>
+ <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE229>
+ <DEAD VARS11>
+ <FRAME '\1aREF?>
+ <PUSH K6>
+ <PUSH MN10>
+ <CALL '\1aREF? 2 = VARS11>
+ <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE229>
+ <DEAD VARS11>
+BOOL230
+ <SET SIDE-E8 'T (TYPE ATOM)>
+ <TYPE? K6 <TYPE-CODE SYMTAB> - BOOL238>
+ <NTHUV K6 4 = VARS11 (TYPE FIX)>
+ <VEQUAL? VARS11 -1 + BOOL238 (TYPE FIX)>
+ <DEAD VARS11>
+ <SET TEMP20 'T (TYPE ATOM)>
+ <NTHUV K6 3 = VARS11>
+ <TYPE? VARS11 <TYPE-CODE FALSE> - BOOL238>
+ <DEAD VARS11>
+ <NTHUV K6 10 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL237>
+BOOL238
+ <TYPE? K6 <TYPE-CODE TEMP> - PHRASE236>
+ <SET TEMP22 K6>
+ <DEAD K6>
+BOOL237
+ <FRAME '\1aGEN>
+ <PUSH SEGTYP15>
+ <DEAD SEGTYP15>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aGEN 2>
+ <JUMP + PHRASE250>
+PHRASE236
+ <TYPE? K6 <TYPE-CODE SYMTAB> - PHRASE245>
+ <NTHUV K6 2 = K6 (TYPE ATOM)>
+PHRASE245
+ <FRAME '\1aSET-VALUE>
+ <PUSH K6>
+ <DEAD K6>
+ <FRAME '\1aGEN>
+ <PUSH SEGTYP15>
+ <DEAD SEGTYP15>
+ <PUSH 'DONT-CARE>
+ <CALL '\1aGEN 2 = STACK>
+ <VEQUAL? TEMP20 0 - TAG248>
+ <DEAD TEMP20>
+ <SET VARS11 'T (TYPE ATOM)>
+ <JUMP + TAG249>
+TAG248
+ <SET VARS11 %<> (TYPE FALSE)>
+TAG249
+ <PUSH VARS11>
+ <DEAD VARS11>
+ <CALL '\1aSET-VALUE 3>
+ <JUMP + PHRASE250>
+PHRASE229
+ <CONS TEMP22 VLN13 = VLN13>
+ <DEAD TEMP22>
+ <CONS SEGTYP15 MN10 = MN10>
+ <DEAD SEGTYP15>
+PHRASE250
+ <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP213>
+MAPAP216
+ <VEQUAL? SIDE-E8 0 + PHRASE252>
+ <DEAD SIDE-E8>
+ <EMPL? VLN13 + PHRASE252 (TYPE LIST)>
+ <SET VARS11 VLN13>
+ <DEAD VLN13>
+ <SET K6 MN10>
+ <DEAD MN10>
+ <JUMP + AGAIN211>
+PHRASE252
+ <EMPL? VLN13 + PHRASE254 (TYPE LIST)>
+ <NTHL VLN13 1 = TEMP19>
+ <CONS TEMP19 () = SEG?7>
+ <DEAD TEMP19>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = K6>
+ <CONS K6 () = TEMP19>
+ <PUTREST SEG?7 TEMP19>
+ <DEAD TEMP19>
+ <CONS SEG?7 () = SEG?7>
+ <PUTREST SEG?7 MX9>
+ <DEAD MX9>
+ <SET MX9 SEG?7>
+ <DEAD SEG?7>
+ <RESTL VLN13 1 = SEG?7 (TYPE LIST)>
+ <DEAD VLN13>
+ <CONS K6 () = TEMP19>
+ <DEAD K6>
+ <CONS TEMP19 SEG?7 = VARS11>
+ <DEAD TEMP19 SEG?7>
+ <SET K6 MN10>
+ <DEAD MN10>
+ <JUMP + AGAIN211>
+PHRASE254
+ <SET SEG?7 MX9 (TYPE LIST)>
+ <DEAD MX9>
+ <LOOP>
+MAP257
+ <INTGO>
+ <EMPL? SEG?7 + MAPAP260>
+ <NTHL SEG?7 1 = K6>
+ <NTHL K6 1 = VARS11>
+ <NTH1 VARS11 = SIDE-E8>
+ <DEAD VARS11>
+ <SET TEMP19 %<> (TYPE FALSE)>
+ <RESTL K6 1 = VARS11 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL VARS11 1 = TEMP22 (TYPE TEMP)>
+ <DEAD VARS11>
+ <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE268>
+ <NTHUV SIDE-E8 4 = VARS11 (TYPE FIX)>
+ <VEQUAL? VARS11 -1 + PHRASE268 (TYPE FIX)>
+ <DEAD VARS11>
+ <SET TEMP19 'T (TYPE ATOM)>
+ <NTHUV SIDE-E8 3 = VARS11>
+ <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE268>
+ <DEAD VARS11>
+ <FRAME '\1aIEMIT>
+ <PUSH '`SET>
+ <NTHUV SIDE-E8 10 = STACK>
+ <DEAD SIDE-E8>
+ <PUSH TEMP22>
+ <CALL '\1aIEMIT 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aFREE-TEMP 1>
+ <JUMP + PHRASE274>
+PHRASE268
+ <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE276>
+ <NTHUV SIDE-E8 2 = SIDE-E8 (TYPE ATOM)>
+PHRASE276
+ <FRAME '\1aSET-VALUE>
+ <PUSH SIDE-E8>
+ <DEAD SIDE-E8>
+ <PUSH TEMP22>
+ <VEQUAL? TEMP19 0 - TAG278>
+ <DEAD TEMP19>
+ <SET VARS11 'T (TYPE ATOM)>
+ <JUMP + TAG279>
+TAG278
+ <SET VARS11 %<> (TYPE FALSE)>
+TAG279
+ <PUSH VARS11>
+ <DEAD VARS11>
+ <CALL '\1aSET-VALUE 3>
+ <FRAME '\1aFREE-TEMP>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aFREE-TEMP 1>
+PHRASE274
+ <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
+ <JUMP + MAP257>
+MAPAP260
+ <EQUAL? W5 'FLUSHED + PHRASE282>
+ <SET SIDE-E8 %<> (TYPE FALSE)>
+ <TYPE? LV17 <TYPE-CODE SYMTAB> - PHRASE284>
+ <NTHUV LV17 4 = SEG?7 (TYPE FIX)>
+ <VEQUAL? SEG?7 -1 + PHRASE284 (TYPE FIX)>
+ <DEAD SEG?7>
+ <SET SIDE-E8 'T (TYPE ATOM)>
+ <NTHUV LV17 3 = SEG?7>
+ <TYPE? SEG?7 <TYPE-CODE FALSE> - PHRASE284>
+ <DEAD SEG?7>
+ <FRAME '\1a+>
+ <FRAME '\1aNTH>
+ <PUSH LV17>
+ <PUSH %<OFFSET 2 TEMP>>
+ <CALL '\1aNTH 2 = STACK>
+ <PUSH 1>
+ <CALL '\1a+ 2 = SEG?7>
+ <PUTUV LV17 2 SEG?7>
+ <DEAD SEG?7>
+ <FRAME '\1aMOVE-ARG>
+ <PUSH LV17>
+ <DEAD LV17>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMOVE-ARG 2 = SEG?7>
+ <RETURN SEG?7>
+ <DEAD SEG?7>
+PHRASE284
+ <TYPE? LV17 <TYPE-CODE SYMTAB> - PHRASE293>
+ <NTHUV LV17 2 = LV17 (TYPE ATOM)>
+PHRASE293
+ <EQUAL? W5 'DONT-CARE - PHRASE295>
+ <FRAME '\1aGEN-TEMP>
+ <PUSH %<>>
+ <CALL '\1aGEN-TEMP 1 = W5>
+PHRASE295
+ <FRAME '\1aGET-VALUE-X>
+ <PUSH LV17>
+ <DEAD LV17>
+ <PUSH W5>
+ <DEAD W5>
+ <VEQUAL? SIDE-E8 0 - TAG298>
+ <DEAD SIDE-E8>
+ <SET SEGTYP15 'T (TYPE ATOM)>
+ <JUMP + TAG299>
+TAG298
+ <SET SEGTYP15 %<> (TYPE FALSE)>
+TAG299
+ <PUSH SEGTYP15>
+ <DEAD SEGTYP15>
+ <CALL '\1aGET-VALUE-X 3 = SEG?7>
+ <RETURN SEG?7>
+ <DEAD SEG?7>
+PHRASE282
+ <RETURN W5>
+ <DEAD W5>
+ <END \1aMULTI-SET-GEN>\r\r
+#WORD *24210361262*
+<GFCN \1aREF? ("VALUE" <OR ATOM FALSE> <OR ATOM SYMTAB> <LIST [REST NODE]>) SY4 L5>
+ <TEMP TEMP15 TEMP12:LIST N17:NODE TEMP45 TEMP49>
+ <INTGO>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <SET TEMP12 L5 (TYPE LIST)>
+ <DEAD L5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <NTHL TEMP12 1 = N17>
+ <NTHUV N17 1 = TEMP15 (TYPE FIX)>
+ <LOOP>
+AGAIN22
+ <INTGO>
+ <VEQUAL? TEMP15 10 + BOOL25 (TYPE FIX)>
+ <VEQUAL? TEMP15 43 + BOOL25 (TYPE FIX)>
+ <VEQUAL? TEMP15 11 - PHRASE24 (TYPE FIX)>
+BOOL25
+ <NTHUV N17 4 = TEMP15>
+ <DEAD N17>
+ <EQUAL? TEMP15 SY4 + TAG28>
+ <DEAD TEMP15>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE58>
+TAG28
+ <RETURN 'T>
+PHRASE24
+ <VEQUAL? TEMP15 31 + BOOL31 (TYPE FIX)>
+ <VEQUAL? TEMP15 32 - PHRASE30 (TYPE FIX)>
+BOOL31
+ <NTHUV N17 4 = TEMP15>
+ <EQUAL? TEMP15 SY4 + BOOL40>
+ <DEAD TEMP15>
+ <NTHUV N17 5 = TEMP15 (TYPE LIST)>
+ <DEAD N17>
+ <NTHL TEMP15 1 = N17 (TYPE NODE)>
+ <DEAD TEMP15>
+ <NTHUV N17 1 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 2 - PHRASE37 (TYPE FIX)>
+ <DEAD TEMP15>
+ <NTHUV N17 4 = TEMP15>
+ <DEAD N17>
+ <EQUAL? TEMP15 SY4 + BOOL40>
+ <DEAD TEMP15>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE58>
+PHRASE37
+ <TYPE? SY4 <TYPE-CODE ATOM> + BOOL40>
+ <NTHUV SY4 4 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 -1 + BOOL40 (TYPE FIX)>
+ <DEAD TEMP15>
+ <NTHUV SY4 3 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE58>
+BOOL40
+ <RETURN 'T>
+PHRASE30
+ <LENUV N17 = TEMP45 (TYPE FIX)>
+ <GRTR? TEMP45 8 - PHRASE43 (TYPE FIX)>
+ <DEAD TEMP45>
+ <NTHUV N17 8 = TEMP45>
+ <CHTYPE TEMP45 <TYPE-CODE LIST> = TEMP45>
+ <EMPL? TEMP45 + PHRASE43>
+ <LOOP (TEMP45 VALUE)>
+TAG47
+ <NTHL TEMP45 1 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE ATOM> - TAG48>
+ <VEQUAL? TEMP49 'ALL + TAG46>
+ <DEAD TEMP49>
+TAG48
+ <RESTL TEMP45 1 = TEMP45 (TYPE LIST)>
+ <EMPL? TEMP45 - TAG47>
+ <JUMP + PHRASE43>
+TAG46
+ <TYPE? SY4 <TYPE-CODE ATOM> + BOOL50>
+ <NTHUV SY4 3 = TEMP45>
+ <TYPE? TEMP45 <TYPE-CODE FALSE> - BOOL50>
+ <DEAD TEMP45>
+ <NTHUV SY4 4 = TEMP45 (TYPE FIX)>
+ <VEQUAL? TEMP45 -1 - PHRASE43 (TYPE FIX)>
+ <DEAD TEMP45>
+BOOL50
+ <RETURN 'T>
+PHRASE43
+ <FRAME '\1aREF?>
+ <PUSH SY4>
+ <NTHUV N17 5 = STACK (TYPE LIST)>
+ <CALL '\1aREF? 2 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE55>
+ <DEAD TEMP49>
+ <RETURN 'T>
+PHRASE55
+ <VEQUAL? TEMP15 8 + TAG59 (TYPE FIX)>
+ <DEAD TEMP15>
+ <SET TEMP15 %<> (TYPE FALSE)>
+ <JUMP + PHRASE58>
+TAG59
+ <NTHUV N17 4 = N17 (TYPE NODE)>
+ <NTHUV N17 1 = TEMP15 (TYPE FIX)>
+ <JUMP + AGAIN22>
+PHRASE58
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aREF?>
+#WORD *34236367662*
+<GFCN \1aGEN-DISPATCH ("VALUE" ANY ANY ANY) N4 W5>
+ <TEMP TEMP92>
+ <INTGO>
+ <NTHUV N4 1 = TEMP92 (TYPE FIX)>
+ <DISPATCH TEMP92 4 CASE8 CASE9 CASE10 CASE11 CASEDF6 CASE20 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASEDF6 CASE18 CASE19 CASE21 CASE22 CASE23 CASE24 CASE25 CASE26 CASE27 CASE28 CASE30 CASE29 CASE31 CASE32 CASE33 CASE34 CASE35 CASE36 CASE37 CASEDF6 CASE38 CASE41 CASE39 CASE40 CASE42 CASE43 CASE44 CASE83 CASE84 CASEDF6 CASE45 CASE81 CASE82 CASE53 CASEDF6 CASE46 CASE49 CASE48 CASE47 CASE51 CASE50 CASE52 CASEDF6 CASEDF6 CASE54 CASEDF6 CASE55 CASE56 CASE57 CASE58 CASE59 CASEDF6 CASE61 CASEDF6 CASEDF6 CASEDF6 CASE60 CASE62 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASE63 CASE80 CASE90 CASE66 CASE67 CASE64 CASE65 CASE68 CASE69 CASE70 CASE75 CASE71 CASE72 CASE73 CASE74 CASE76 CASE79 CASE78 CASE77 CASE85 CASE86 CASE87 CASE88 CASE89 CASE91>
+ <DEAD TEMP92>
+CASEDF6
+ <FRAME '\1aDEFAULT-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aDEFAULT-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE8
+ <FRAME '\1aFORM-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFORM-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE9
+ <FRAME '\1aPROG-REP-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aPROG-REP-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE10
+ <FRAME '\1aSUBR-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSUBR-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE11
+ <FRAME '\1aCOND-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aCOND-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE12
+ <FRAME '\1aLVAL-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aLVAL-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE13
+ <FRAME '\1aSET-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSET-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE14
+ <FRAME '\1aOR-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aOR-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE15
+ <FRAME '\1aAND-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aAND-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE16
+ <FRAME '\1aRETURN-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aRETURN-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE17
+ <FRAME '\1aCOPY-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aCOPY-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE18
+ <FRAME '\1aAGAIN-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aAGAIN-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE19
+ <FRAME '\1aARITH-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aARITH-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE20
+ <FRAME '\1aSUBR-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSUBR-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE21
+ <FRAME '\1a0-TEST>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1a0-TEST 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE22
+ <FRAME '\1aNOT-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aNOT-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE23
+ <FRAME '\1a1?-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1a1?-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE24
+ <FRAME '\1aTEST-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aTEST-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE25
+ <FRAME '\1a==-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1a==-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE26
+ <FRAME '\1aTYPE?-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aTYPE?-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE27
+ <FRAME '\1aLNTH-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aLNTH-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE28
+ <FRAME '\1aMT-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMT-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE29
+ <FRAME '\1aREST-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aREST-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE30
+ <FRAME '\1aNTH-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aNTH-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE31
+ <FRAME '\1aPUT-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aPUT-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE32
+ <FRAME '\1aPUTREST-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aPUTREST-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE33
+ <FRAME '\1aFLVAL-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFLVAL-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE34
+ <FRAME '\1aFSET-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFSET-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE35
+ <FRAME '\1aFGVAL-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFGVAL-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE36
+ <FRAME '\1aFSETG-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFSETG-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE37
+ <FRAME '\1aMIN-MAX>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMIN-MAX 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE38
+ <FRAME '\1aCHTYPE-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aCHTYPE-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE39
+ <FRAME '\1aFIX-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFIX-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE40
+ <FRAME '\1aFLOAT-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFLOAT-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE41
+ <FRAME '\1aABS-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aABS-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE42
+ <FRAME '\1aMOD-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMOD-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE43
+ <FRAME '\1aID-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aID-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE44
+ <FRAME '\1aASSIGNED?-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aASSIGNED?-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE45
+ <FRAME '\1aBITLOG-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aBITLOG-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE46
+ <FRAME '\1aSUBR-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSUBR-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE47
+ <FRAME '\1aID-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aID-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE48
+ <FRAME '\1aREAD2-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aREAD2-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE49
+ <FRAME '\1aSUBR-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSUBR-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE50
+ <FRAME '\1aGET2-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aGET2-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE51
+ <FRAME '\1aGET-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aGET-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE52
+ <FRAME '\1aSUBR-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSUBR-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE53
+ <FRAME '\1aMAPFR-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMAPFR-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE54
+ <FRAME '\1aMPARGS-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMPARGS-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE55
+ <FRAME '\1aMAPLEAVE-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMAPLEAVE-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE56
+ <FRAME '\1aMAPRET-STOP-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMAPRET-STOP-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE57
+ <FRAME '\1aUNWIND-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aUNWIND-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE58
+ <FRAME '\1aGVAL-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aGVAL-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE59
+ <FRAME '\1aSETG-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSETG-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE60
+ <FRAME '\1aMEMQ-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMEMQ-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE61
+ <FRAME '\1aLENGTH?-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aLENGTH?-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE62
+ <FRAME '\1aFORM-F-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFORM-F-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE63
+ <FRAME '\1aALL-REST-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aALL-REST-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE64
+ <FRAME '\1aLIST-BUILD>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aLIST-BUILD 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE65
+ <FRAME '\1aPUT-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aPUT-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE66
+ <FRAME '\1aBACK-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aBACK-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE67
+ <FRAME '\1aTOP-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aTOP-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE68
+ <FRAME '\1aROT-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aROT-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE69
+ <FRAME '\1aLSH-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aLSH-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE70
+ <FRAME '\1aBIT-TEST-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aBIT-TEST-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE71
+ <FRAME '\1aCALL-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aCALL-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE72
+ <FRAME '\1aMONAD?-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMONAD?-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE73
+ <FRAME '\1aGASSIGNED?-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aGASSIGNED?-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE74
+ <FRAME '\1aAPPLY-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aAPPLY-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE75
+ <FRAME '\1aADECL-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aADECL-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE76
+ <FRAME '\1aMULTI-RETURN-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMULTI-RETURN-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE77
+ <FRAME '\1aVALID-TYPE?-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aVALID-TYPE?-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE78
+ <FRAME '\1aTYPE-C-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aTYPE-C-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE79
+ <FRAME '\1a=?-STRING-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1a=?-STRING-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE80
+ <FRAME '\1aCASE-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aCASE-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE81
+ <FRAME '\1aFGETBITS-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFGETBITS-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE82
+ <FRAME '\1aFPUTBITS-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aFPUTBITS-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE83
+ <FRAME '\1aISTRUC-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aISTRUC-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE84
+ <FRAME '\1aISTRUC-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aISTRUC-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE85
+ <FRAME '\1aSTACK-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSTACK-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE86
+ <FRAME '\1aCHANNEL-OP-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aCHANNEL-OP-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE87
+ <FRAME '\1aATOM-PART-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aATOM-PART-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE88
+ <FRAME '\1aOFFSET-PART-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aOFFSET-PART-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE89
+ <FRAME '\1aPUT-GET-DECL-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aPUT-GET-DECL-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE90
+ <FRAME '\1aSUBSTRUC-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aSUBSTRUC-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+CASE91
+ <FRAME '\1aMULTI-SET-GEN>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH W5>
+ <DEAD W5>
+ <CALL '\1aMULTI-SET-GEN 2 = TEMP92>
+ <RETURN TEMP92>
+ <DEAD TEMP92>
+ <END \1aGEN-DISPATCH>\r\r
+<ENDPA
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff