--- /dev/null
+
+<PACKAGE "SYMANA">
+
+<ENTRY ANA EANA SET-CURRENT-TYPE TYPE-NTH-REST WHO TMPS GET-TMP TRUTH UNTRUTH SEGFLUSH KILL-REM BUILD-TYPE-LIST GET-CURRENT-TYPE ADD-TYPE-LIST PUT-FLUSH WHON SAVE-SURVIVORS SEQ-AN ARGCHK ASSUM-OK? FREST-L-D-STATE HTMPS ORUPC APPLTYP MSAVE-L-D-STATE SHTMPS RESET-VARS STMPS ASSERT-TYPES SAVE-L-D-STATE MUNG-L-D-STATE NORM-BAN SUBR-C-AN ENTROPY NAUX-BAN TUP-BAN ARGS-BAN LIFE MANIFESTQ SPEC-FLUSH UPDATE-SIDE-EFFECTS>
+
+<USE "CHKDCL" "COMPDEC" "STRANA" "CARANA" "NOTANA" "ADVMESS" "MAPANA" "SUBRTY" "BITSANA" "CDRIVE">
+
+" This is the main file associated with the type analysis phase of
+the compilation. It is called by calling FUNC-ANA with the main data structure
+pointer. ANA is the FUNCTION that dispatches to the various special handlers
+and the SUBR call analyzer further dispatches for specific functions."
+
+" Many analyzers for specific SUBRs appear in their own files
+(CARITH, STRUCT etc.). Currently no special hacks are done for TYPE?, EMPTY?
+etc. in COND, ANDS and ORS."
+
+" All analysis functions are called with 2 args, a NODE and a desired
+type specification. These args are usually called NOD and RTYP or
+N and R."
+
+" ANA is the main analysis dispatcher (see ANALYZERS at the end of
+ this file for its dispatch table."
+
+<GDECL (TEMPLATES SUBRS) VECTOR>
+
+#WORD *23316420275*
+<GFCN \1aANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP P6 TEMP9>
+ <INTGO>
+ <NTHUV NOD4 2 = P6>
+ <LENUV NOD4 = TEMP9 (TYPE FIX)>
+ <LESS? TEMP9 8 + PHRASE8 (TYPE FIX)>
+ <DEAD TEMP9>
+ <PUTUV NOD4 8 %<>>
+PHRASE8
+ <FRAME '\1aANALYSIS-DISPATCHER>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aANALYSIS-DISPATCHER 2 = TEMP9>
+ <PUTUV NOD4 3 TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aUPDATE-SIDE-EFFECTS>
+ <PUSH NOD4>
+ <PUSH P6>
+ <DEAD P6>
+ <CALL '\1aUPDATE-SIDE-EFFECTS 2>
+ <NTHUV NOD4 3 = TEMP9>
+ <DEAD NOD4>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aANA>
+#WORD *33230222626*
+<GFCN \1aUPDATE-SIDE-EFFECTS ("VALUE" <OR FALSE NODE> NODE ANY) NOD4 P5>
+ <TEMP TEMP12 TEM6 TEMP29 TEMP30 TEMP43 TEMP52 TEMP53 TEMP54 TEMP82>
+ <INTGO>
+ <NTHUV NOD4 1 = TEMP12 (TYPE FIX)>
+ <VEQUAL? TEMP12 2 - TAG13 (TYPE FIX)>
+ <DEAD TEMP12>
+ <RETURN %<>>
+TAG13
+ <NTHUV NOD4 8 = TEM6>
+ <DEAD NOD4>
+ <SET TEMP12 TEM6>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE9>
+ <LOOP>
+AGAIN15
+ <INTGO>
+ <TYPE? P5 <TYPE-CODE NODE> + PHRASE17>
+ <SET TEMP12 %<> (TYPE FALSE)>
+ <JUMP + EXIT14>
+PHRASE17
+ <LENUV P5 = TEMP12 (TYPE FIX)>
+ <LESS? TEMP12 8 + PHRASE19 (TYPE FIX)>
+ <DEAD TEMP12>
+ <SET TEMP12 'T (TYPE ATOM)>
+ <JUMP + EXIT14>
+PHRASE19
+ <NTHUV P5 2 = P5>
+ <JUMP + AGAIN15>
+EXIT14
+ <VEQUAL? TEMP12 0 + PHRASE9>
+ <EMPL? TEM6 - PHRASE22 (TYPE LIST)>
+ <NTHUV P5 8 = TEMP12>
+ <JUMP + PHRASE96>
+PHRASE22
+ <NTHUV P5 8 = TEMP12>
+ <EMPL? TEMP12 - PHRASE23>
+ <SET TEMP12 TEM6>
+ <DEAD TEM6>
+ <JUMP + PHRASE96>
+PHRASE23
+ <SET TEMP29 TEM6>
+ <LOOP (TEMP29 VALUE)>
+TAG27
+ <NTHL TEMP29 1 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG28>
+ <VEQUAL? TEMP30 'ALL + TAG26>
+ <DEAD TEMP30>
+TAG28
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <EMPL? TEMP29 - TAG27>
+ <JUMP + PHRASE24>
+TAG26
+ <SET TEMP29 TEMP12>
+ <LOOP (TEMP29 VALUE)>
+TAG32
+ <NTHL TEMP29 1 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG33>
+ <VEQUAL? TEMP30 'ALL + TAG31>
+ <DEAD TEMP30>
+TAG33
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <EMPL? TEMP29 - TAG32>
+ <JUMP + PHRASE24>
+TAG31
+ <LENL TEM6 = TEMP29 (TYPE FIX)>
+ <LENL TEMP12 = TEMP30 (TYPE FIX)>
+ <GRTR? TEMP29 TEMP30 - PHRASE35 (TYPE FIX)>
+ <DEAD TEMP29 TEMP30>
+ <SET TEMP43 () (TYPE LIST)>
+ <SET TEMP30 () (TYPE LIST)>
+ <CHTYPE TEMP12 <TYPE-CODE LIST> = TEMP29>
+ <DEAD TEMP12>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPL? TEMP29 + MAPAP40>
+ <NTHL TEMP29 1 = TEMP12>
+ <EQUAL? TEMP12 'ALL + MAP38>
+ <SET TEMP52 TEM6>
+ <TYPE TEMP12 = TEMP53>
+ <LOOP (TEMP12 VALUE) (TEMP53 VALUE) (TEMP52 VALUE)>
+TAG50
+ <NTHL TEMP52 1 = TEMP54>
+ <TYPE? TEMP54 TEMP53 - TAG51>
+ <VEQUAL? TEMP54 TEMP12 + MAP38>
+ <DEAD TEMP54>
+TAG51
+ <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
+ <EMPL? TEMP52 - TAG50>
+ <SET TEMP52 TEMP12>
+ <DEAD TEMP12>
+ <CONS TEMP52 () = TEMP52 (TYPE LIST)>
+ <EMPL? TEMP43 - TAG57>
+ <SET TEMP43 TEMP52 (TYPE LIST)>
+ <JUMP + TAG58>
+TAG57
+ <PUTREST TEMP30 TEMP52>
+ <DEAD TEMP30>
+TAG58
+ <SET TEMP30 TEMP52 (TYPE LIST)>
+ <DEAD TEMP52>
+MAP38
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <JUMP + MAP37>
+MAPAP40
+ <SET TEMP12 TEMP43>
+ <DEAD TEMP43>
+ <EMPL? TEMP12 - PHRASE60 (TYPE LIST)>
+ <SET TEMP12 TEM6>
+ <DEAD TEM6>
+ <JUMP + PHRASE96>
+PHRASE60
+ <SET TEMP29 TEMP12>
+ <LOOP (TEMP29 VALUE)>
+TAG62
+ <RESTL TEMP29 1 = TEMP52 (TYPE LIST)>
+ <EMPL? TEMP52 + TAG63>
+ <SET TEMP29 TEMP52>
+ <DEAD TEMP52>
+ <JUMP + TAG62>
+TAG63
+ <PUTREST TEMP29 TEM6>
+ <DEAD TEMP29 TEM6>
+ <JUMP + PHRASE96>
+PHRASE35
+ <SET TEMP29 () (TYPE LIST)>
+ <SET TEMP53 () (TYPE LIST)>
+ <SET TEMP52 TEM6 (TYPE LIST)>
+ <LOOP>
+MAP66
+ <INTGO>
+ <EMPL? TEMP52 + MAPAP69>
+ <NTHL TEMP52 1 = TEMP30>
+ <EQUAL? TEMP30 'ALL + MAP67>
+ <SET TEMP43 TEMP12>
+ <TYPE TEMP30 = TEMP54>
+ <LOOP (TEMP30 VALUE) (TEMP54 VALUE) (TEMP43 VALUE)>
+TAG78
+ <NTHL TEMP43 1 = TEMP82>
+ <TYPE? TEMP82 TEMP54 - TAG79>
+ <VEQUAL? TEMP82 TEMP30 + MAP67>
+ <DEAD TEMP82>
+TAG79
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <EMPL? TEMP43 - TAG78>
+ <SET TEMP43 TEMP30>
+ <DEAD TEMP30>
+ <CONS TEMP43 () = TEMP43 (TYPE LIST)>
+ <EMPL? TEMP29 - TAG85>
+ <SET TEMP29 TEMP43 (TYPE LIST)>
+ <JUMP + TAG86>
+TAG85
+ <PUTREST TEMP53 TEMP43>
+ <DEAD TEMP53>
+TAG86
+ <SET TEMP53 TEMP43 (TYPE LIST)>
+ <DEAD TEMP43>
+MAP67
+ <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
+ <JUMP + MAP66>
+MAPAP69
+ <SET TEMP12 TEMP29>
+ <DEAD TEMP29>
+ <EMPL? TEM6 + PHRASE96 (TYPE LIST)>
+ <SET TEMP52 TEM6>
+ <LOOP (TEMP52 VALUE)>
+TAG90
+ <RESTL TEMP52 1 = TEMP43 (TYPE LIST)>
+ <EMPL? TEMP43 + TAG91>
+ <SET TEMP52 TEMP43>
+ <DEAD TEMP43>
+ <JUMP + TAG90>
+TAG91
+ <PUTREST TEMP52 TEMP12>
+ <DEAD TEMP52 TEMP12>
+ <SET TEMP12 TEM6>
+ <DEAD TEM6>
+ <JUMP + PHRASE96>
+PHRASE24
+ <LENL TEMP12 = TEMP43 (TYPE FIX)>
+ <LENL TEM6 = TEMP54 (TYPE FIX)>
+ <GRTR? TEMP43 TEMP54 - PHRASE92 (TYPE FIX)>
+ <DEAD TEMP43 TEMP54>
+ <SET TEMP43 TEM6>
+ <DEAD TEM6>
+ <NTHL TEMP43 1 = TEMP82>
+ <CONS TEMP82 TEMP12 = TEMP82>
+ <SET TEMP54 TEMP82>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <EMPL? TEMP43 + TAG94>
+ <LOOP (TEMP43 VALUE) (TEMP82 VALUE) (TEMP12 VALUE)>
+TAG93
+ <NTHL TEMP43 1 = TEMP29>
+ <CONS TEMP29 TEMP12 = TEMP29>
+ <PUTREST TEMP82 TEMP29>
+ <DEAD TEMP82>
+ <SET TEMP82 TEMP29>
+ <DEAD TEMP29>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <EMPL? TEMP43 - TAG93>
+TAG94
+ <SET TEMP12 TEMP54>
+ <DEAD TEMP54>
+ <JUMP + PHRASE96>
+PHRASE92
+ <SET TEMP54 TEMP12>
+ <DEAD TEMP12>
+ <NTHL TEMP54 1 = TEMP43>
+ <CONS TEMP43 TEM6 = TEMP43>
+ <SET TEMP82 TEMP43>
+ <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
+ <EMPL? TEMP54 + TAG98>
+ <LOOP (TEMP54 VALUE) (TEMP43 VALUE) (TEM6 VALUE)>
+TAG97
+ <NTHL TEMP54 1 = TEMP29>
+ <CONS TEMP29 TEM6 = TEMP29>
+ <PUTREST TEMP43 TEMP29>
+ <DEAD TEMP43>
+ <SET TEMP43 TEMP29>
+ <DEAD TEMP29>
+ <RESTL TEMP54 1 = TEMP54 (TYPE LIST)>
+ <EMPL? TEMP54 - TAG97>
+TAG98
+ <SET TEMP12 TEMP82>
+ <DEAD TEMP82>
+PHRASE96
+ <PUTUV P5 8 TEMP12>
+ <DEAD TEMP12>
+ <SET TEMP12 P5>
+ <DEAD P5>
+PHRASE9
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aUPDATE-SIDE-EFFECTS>
+#WORD *11532332567*
+<GFCN \1aARGCHK ("VALUE" ATOM FIX <OR <LIST FIX FIX> FIX> ANY NODE) GIV4 REQ5 NAME6 NOD7>
+ <TEMP HI8 LO9>
+ <INTGO>
+ <SET HI8 REQ5>
+ <SET LO9 REQ5>
+ <TYPE? REQ5 <TYPE-CODE LIST> - PHRASE11>
+ <RESTL REQ5 1 = HI8 (TYPE LIST)>
+ <NTHL HI8 1 = HI8 (TYPE FIX)>
+ <NTHL REQ5 1 = LO9 (TYPE FIX)>
+ <DEAD REQ5>
+PHRASE11
+ <LESS? GIV4 LO9 - PHRASE14 (TYPE FIX)>
+ <DEAD LO9>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many arguments to: ">
+ <PUSH NAME6>
+ <DEAD NAME6>
+ <PUSH NOD7>
+ <DEAD NOD7>
+ <CALL '\1aCOMPILE-ERROR 3>
+ <RETURN 'T>
+PHRASE14
+ <GRTR? GIV4 HI8 - PHRASE16 (TYPE FIX)>
+ <DEAD GIV4 HI8>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many arguments to: ">
+ <PUSH NAME6>
+ <DEAD NAME6>
+ <PUSH NOD7>
+ <DEAD NOD7>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE16
+ <RETURN 'T>
+ <END \1aARGCHK>
+#WORD *35072322136*
+<GFCN \1aEANA ("VALUE" ANY NODE ANY ANY) NOD4 RTYP5 NAME6>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aANA>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aANA 2 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Argument wrong type to: ">
+ <PUSH NAME6>
+ <DEAD NAME6>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 3 = TEMP8>
+PHRASE10
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aEANA>
+" FUNC-ANA main entry to analysis phase. Analyzes bindings then body."
+
+#WORD *21272717127*
+<FCN \1aFUNC-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP3:LBIND TEMP11 OV7>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <GEN-ASSIGNED? 'ANALY-OK - PHRASE10>
+ <GEN-LVAL 'ANALY-OK = TEMP11>
+ <JUMP + PHRASE15>
+PHRASE10
+ <SET TEMP11 'T (TYPE ATOM)>
+PHRASE15
+ <BBIND 'ANALY-OK 'ANY 'FIX TEMP11>
+ <DEAD TEMP11>
+ <GEN-LVAL 'VERBOSE = OV7>
+ <CFRAME = TEMP11 (TYPE FRAME)>
+ <BBIND 'ANA-ACT 'ANY 'FIX TEMP11>
+ <DEAD TEMP11>
+ <ACTIVATION>
+ <GEN-LVAL 'VERBOSE = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP11>
+ <GEN-SET 'VERBOSE OV7>
+ <PUTREST OV7 ()>
+PHRASE19
+ <FRAME '\1aFUNC-AN1>
+ <PUSH N4>
+ <PUSH R5>
+ <CALL '\1aFUNC-AN1 2 = TEMP11>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aFUNC-ANA>
+#WORD *1770756522*
+<GFCN \1aFUNC-AN1 ("VALUE" ANY NODE ANY) FCN4 RTYP5>
+ <TEMP TEMP3:LBIND TEMP19 NRTYP18 ACT?40 OV44 TEMP63 TEM14>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'FCN 'NODE %<> FCN4>
+ <DEAD FCN4>
+ <FIXBIND>
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP19 11 = TEMP19 (TYPE SYMTAB)>
+ <BBIND 'VARTBL 'SYMTAB 'FIX TEMP19>
+ <DEAD TEMP19>
+ <BBIND 'TMPS 'FIX 'FIX 0>
+ <BBIND 'HTMPS 'FIX 'FIX 0>
+ <BBIND 'TRUTH 'LIST 'FIX ()>
+ <BBIND 'UNTRUTH 'LIST 'FIX ()>
+ <BBIND 'WHO 'ANY 'FIX ()>
+ <BBIND 'WHON 'ANY 'FIX %<>>
+ <BBIND 'PRED 'ANY 'FIX %<>>
+ <BBIND 'LIFE 'LIST 'FIX ()>
+ <BBIND 'USE-COUNT 'FIX 'FIX 0>
+ <BBIND 'BACKTRACK 'FIX 'FIX 0>
+ <FRAME '\1aRESET-VARS>
+ <NTHR 'VARTBL 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP19>
+ <CALL '\1aRESET-VARS 1>
+ <FRAME '\1aBIND-AN>
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP19 10 = STACK (TYPE LIST)>
+ <DEAD TEMP19>
+ <CALL '\1aBIND-AN 1>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RTYP5>
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP19 17 = STACK>
+ <DEAD TEMP19>
+ <CALL '\1aTYPE-OK? 2 = NRTYP18>
+ <TYPE? NRTYP18 <TYPE-CODE FALSE> - PHRASE30>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Function returns wrong type: ">
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP19 4 = STACK>
+ <DEAD TEMP19>
+ <PUSH ". Declared type is ">
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP19 17 = STACK>
+ <DEAD TEMP19>
+ <PUSH ", required type is ">
+ <PUSH RTYP5>
+ <CALL '\1aCOMPILE-ERROR 6>
+PHRASE30
+ <FRAME '\1aACTIV?>
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP19 10 = STACK (TYPE LIST)>
+ <DEAD TEMP19>
+ <PUSH 'T>
+ <CALL '\1aACTIV? 2 = ACT?40>
+ <GEN-LVAL 'VERBOSE = OV44>
+ <LOOP>
+AGAIN47
+ <INTGO>
+ <GEN-LVAL 'VERBOSE = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE49>
+ <DEAD TEMP19>
+ <GEN-SET 'VERBOSE OV44>
+ <PUTREST OV44 ()>
+PHRASE49
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP19 19 %<>>
+ <DEAD TEMP19>
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP19 7 () (TYPE LIST)>
+ <DEAD TEMP19>
+ <NTHR 'LIFE 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP19 1 () (RECORD-TYPE LBIND)>
+ <DEAD TEMP19>
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHR 'VARTBL 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP63>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP63>
+ <PUTUV TEMP19 18 TEMP63 (TYPE LIST)>
+ <DEAD TEMP19 TEMP63>
+ <TYPE? ACT?40 <TYPE-CODE FALSE> + PHRASE67>
+ <SET TEMP19 RTYP5>
+ <JUMP + PHRASE68>
+PHRASE67
+ <SET TEMP19 'NO-RETURN (TYPE ATOM)>
+PHRASE68
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP63 14 TEMP19>
+ <DEAD TEMP63 TEMP19>
+ <FRAME '\1aSEQ-AN>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 5 = STACK (TYPE LIST)>
+ <DEAD TEMP63>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 17 = STACK>
+ <DEAD TEMP63>
+ <CALL '\1aSEQ-AN 2 = TEM14>
+ <TYPE? ACT?40 <TYPE-CODE FALSE> + PHRASE77>
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+PHRASE77
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 19 = TEMP63>
+ <TYPE? TEMP63 <TYPE-CODE FALSE> - BOOL84>
+ <DEAD TEMP63>
+ <TYPE? ACT?40 <TYPE-CODE FALSE> + BOOL83>
+BOOL84
+ <FRAME '\1aASSUM-OK?>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 18 = STACK (TYPE LIST)>
+ <DEAD TEMP63>
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP19 19 = TEMP63>
+ <DEAD TEMP19>
+ <TYPE? TEMP63 <TYPE-CODE FALSE> - BOOL90>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHR 'VARTBL 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP19>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP63>
+BOOL90
+ <PUSH TEMP63>
+ <DEAD TEMP63>
+ <CALL '\1aASSUM-OK? 2 = TEMP63>
+ <TYPE? TEMP63 <TYPE-CODE FALSE> + AGAIN47>
+ <DEAD TEMP63>
+BOOL83
+ <TYPE? ACT?40 <TYPE-CODE FALSE> - PHRASE81>
+ <DEAD ACT?40>
+ <FRAME '\1aACTIV?>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 10 = STACK (TYPE LIST)>
+ <DEAD TEMP63>
+ <PUSH 'T>
+ <CALL '\1aACTIV? 2 = ACT?40>
+ <VEQUAL? ACT?40 0 + PHRASE81>
+ <FRAME '\1aASSERT-TYPES>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 18 = STACK (TYPE LIST)>
+ <DEAD TEMP63>
+ <CALL '\1aASSERT-TYPES 1 = TEMP63>
+ <TYPE? TEMP63 <TYPE-CODE FALSE> - AGAIN47>
+ <DEAD TEMP63>
+PHRASE81
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP63 18 () (TYPE LIST)>
+ <DEAD TEMP63>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP63 15 ()>
+ <DEAD TEMP63>
+ <TYPE? TEM14 <TYPE-CODE FALSE> - PHRASE108>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Returned value violates decl of: ">
+ <PUSH NRTYP18>
+ <DEAD NRTYP18>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE108
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <FRAME '\1aTYPE-MERGE>
+ <NTHR 'FCN 2 = TEMP19 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP19 14 = STACK>
+ <DEAD TEMP19>
+ <PUSH TEM14>
+ <DEAD TEM14>
+ <CALL '\1aTYPE-MERGE 2 = TEMP19>
+ <PUTUV TEMP63 3 TEMP19>
+ <DEAD TEMP63 TEMP19>
+ <FRAME '\1aPUT>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 9 = STACK>
+ <DEAD TEMP63>
+ <PUSH 2>
+ <FRAME '\1aTASTEFUL-DECL>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 3 = STACK>
+ <DEAD TEMP63>
+ <CALL '\1aTASTEFUL-DECL 1 = STACK>
+ <CALL '\1aPUT 3>
+ <NTHR 'FCN 2 = TEMP63 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP63 1 = TEMP63 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP63 3 = TEMP63>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -108>
+ <RETURN TEMP63>
+ <DEAD TEMP63>
+ <END \1aFUNC-AN1>
+" BIND-AN analyze binding structure for PROGs, FUNCTIONs etc."
+
+#WORD *2754703073*
+<GFCN \1aBIND-AN ("VALUE" ATOM <LIST [REST SYMTAB]>) BNDS4>
+ <TEMP TEMP6>
+ <INTGO>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPL? BNDS4 - PHRASE12 (TYPE LIST)>
+ <RETURN 'T>
+PHRASE12
+ <NTHL BNDS4 1 = TEMP6 (TYPE SYMTAB)>
+ <PUTUV TEMP6 18 'ANY>
+ <PUTUV TEMP6 17 %<>>
+ <FRAME '\1aBIND-DISPATCH>
+ <PUSH TEMP6>
+ <DEAD TEMP6>
+ <CALL '\1aBIND-DISPATCH 1>
+ <RESTL BNDS4 1 = BNDS4 (TYPE LIST)>
+ <JUMP + AGAIN10>
+ <END \1aBIND-AN>
+" ENTROPY ignore call and return."
+
+#WORD *24572033427*
+<GFCN \1aENTROPY ("VALUE" ATOM ANY) SYM4>
+ <TEMP>
+ <INTGO>
+ <RETURN 'T>
+ <END \1aENTROPY>
+#WORD *27576323030*
+<GFCN \1aTUP-BAN ("VALUE" SYMTAB SYMTAB) SYM4>
+ <TEMP TEMP7>
+ <INTGO>
+ <GEN-LVAL 'ANALY-OK = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> - PHRASE6>
+ <DEAD TEMP7>
+ <NTHUV SYM4 7 = TEMP7>
+ <PUTUV SYM4 18 TEMP7>
+ <DEAD TEMP7>
+ <PUTUV SYM4 17 'ANY>
+ <RETURN SYM4>
+ <DEAD SYM4>
+PHRASE6
+ <FRAME '\1aISTYPE?>
+ <NTHUV SYM4 7 = STACK>
+ <CALL '\1aISTYPE? 1 = TEMP7>
+ <VEQUAL? TEMP7 'TUPLE + PHRASE10>
+ <DEAD TEMP7>
+ <PUTUV SYM4 18 'TUPLE>
+ <PUTUV SYM4 17 'TUPLE>
+ <RETURN SYM4>
+ <DEAD SYM4>
+PHRASE10
+ <NTHUV SYM4 7 = TEMP7>
+ <PUTUV SYM4 17 TEMP7>
+ <DEAD TEMP7>
+ <NTHUV SYM4 7 = TEMP7>
+ <PUTUV SYM4 18 TEMP7>
+ <DEAD TEMP7>
+ <RETURN SYM4>
+ <DEAD SYM4>
+ <END \1aTUP-BAN>
+" Analyze AUX and OPTIONAL intializations."
+
+#WORD *35435344735*
+<GFCN \1aNORM-BAN ("VALUE" SYMTAB SYMTAB) SYM4>
+ <TEMP TEMP3:LBIND TEMP9 N8:NODE TEM6>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <NTHUV SYM4 1 = TEMP9 (TYPE SYMTAB)>
+ <BBIND 'VARTBL 'SYMTAB 'FIX TEMP9>
+ <DEAD TEMP9>
+ <NTHUV SYM4 9 = N8 (TYPE NODE)>
+ <FRAME '\1aANA>
+ <PUSH N8>
+ <NTHUV SYM4 7 = STACK>
+ <CALL '\1aANA 2 = TEM6>
+ <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE11>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "AUX/OPT init for: ">
+ <NTHUV SYM4 2 = STACK (TYPE ATOM)>
+ <PUSH ". Init value of: ">
+ <PUSH N8>
+ <PUSH " whose type is ">
+ <NTHUV N8 3 = STACK>
+ <PUSH " violates decl of ">
+ <NTHUV SYM4 7 = STACK>
+ <CALL '\1aCOMPILE-ERROR 8>
+PHRASE11
+ <GEN-LVAL 'ANALY-OK = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
+ <DEAD TEMP9>
+ <NTHUV SYM4 4 = TEMP9 (TYPE FIX)>
+ <GRTR? TEMP9 9 + BOOL19 (TYPE FIX)>
+ <LESS? TEMP9 6 - PHRASE15 (TYPE FIX)>
+ <DEAD TEMP9>
+BOOL19
+ <NTHUV N8 1 = TEMP9 (TYPE FIX)>
+ <VEQUAL? TEMP9 2 - PHRASE24 (TYPE FIX)>
+ <DEAD TEMP9>
+ <NTHUV N8 4 = TEMP9>
+ <EQUAL? TEMP9 %<> - PHRASE23>
+ <DEAD TEMP9>
+ <SET TEM6 'BOOL-FALSE (TYPE ATOM)>
+ <JUMP + PHRASE24>
+PHRASE23
+ <NTHUV N8 4 = TEMP9>
+ <DEAD N8>
+ <EQUAL? TEMP9 'T - PHRASE24>
+ <DEAD TEMP9>
+ <SET TEM6 'BOOL-TRUE (TYPE ATOM)>
+PHRASE24
+ <PUTUV SYM4 17 TEM6>
+ <PUTUV SYM4 18 TEM6>
+ <DEAD TEM6>
+ <SET TEMP9 SYM4>
+ <DEAD SYM4>
+ <JUMP + PHRASE25>
+PHRASE15
+ <NTHUV SYM4 7 = TEMP9>
+ <PUTUV SYM4 18 TEMP9>
+ <DEAD TEMP9>
+ <NTHUV SYM4 7 = TEMP9>
+ <PUTUV SYM4 17 TEMP9>
+ <DEAD TEMP9>
+ <SET TEMP9 SYM4>
+ <DEAD SYM4>
+PHRASE25
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aNORM-BAN>
+" ARGS-BAN analyze ARGS decl (change to OPTIONAL in some cases)."
+
+#WORD *34214105762*
+<GFCN \1aARGS-BAN ("VALUE" <OR FALSE SYMTAB> SYMTAB) SYM4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aNODE1>
+ <PUSH 2>
+ <PUSH ()>
+ <PUSH 'LIST>
+ <PUSH ()>
+ <PUSH ()>
+ <CALL '\1aNODE1 5 = TEMP6>
+ <PUTUV SYM4 9 TEMP6>
+ <DEAD TEMP6>
+ <PUTUV SYM4 4 7 (TYPE FIX)>
+ <GEN-LVAL 'ANALY-OK = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD TEMP6>
+ <PUTUV SYM4 18 'LIST>
+ <JUMP + PHRASE11>
+PHRASE8
+ <NTHUV SYM4 7 = TEMP6>
+ <PUTUV SYM4 18 TEMP6>
+ <DEAD TEMP6>
+PHRASE11
+ <GEN-LVAL 'ANALY-OK = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
+ <DEAD TEMP6>
+ <FRAME '\1aTYPE-AND>
+ <PUSH 'LIST>
+ <NTHUV SYM4 7 = STACK>
+ <CALL '\1aTYPE-AND 2 = TEMP6>
+ <PUTUV SYM4 17 TEMP6>
+ <DEAD TEMP6>
+ <RETURN SYM4>
+ <DEAD SYM4>
+PHRASE13
+ <GEN-LVAL 'ANALY-OK = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + TAG21>
+ <DEAD TEMP6>
+ <RETURN %<>>
+TAG21
+ <PUTUV SYM4 17 'ANY>
+ <RETURN SYM4>
+ <DEAD SYM4>
+ <END \1aARGS-BAN>
+#WORD *25605130251*
+<GFCN \1aNAUX-BAN ("VALUE" SYMTAB SYMTAB) SYM4>
+ <TEMP TEMP7>
+ <INTGO>
+ <GEN-LVAL 'ANALY-OK = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
+ <DEAD TEMP7>
+ <SET TEMP7 'NO-RETURN (TYPE ATOM)>
+ <JUMP + PHRASE10>
+PHRASE6
+ <NTHUV SYM4 7 = TEMP7>
+PHRASE10
+ <PUTUV SYM4 18 TEMP7>
+ <DEAD TEMP7>
+ <GEN-LVAL 'ANALY-OK = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP7>
+ <SET TEMP7 'NO-RETURN (TYPE ATOM)>
+ <JUMP + PHRASE15>
+PHRASE12
+ <SET TEMP7 'ANY (TYPE ATOM)>
+PHRASE15
+ <PUTUV SYM4 17 TEMP7>
+ <DEAD TEMP7>
+ <RETURN SYM4>
+ <DEAD SYM4>
+ <END \1aNAUX-BAN>
+"BIND-DISPATCH go to various binding analyzers analyzers."
+
+#WORD *13645572622*
+<GFCN \1aBIND-DISPATCH ("VALUE" <OR ATOM FALSE SYMTAB> ANY) SYM4>
+ <TEMP COD5>
+ <INTGO>
+ <NTHUV SYM4 4 = COD5 (TYPE FIX)>
+ <DISPATCH COD5 1 CASE8 CASE9 CASE10 CASE11 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASE18 CASE19 CASE20>
+ <DEAD COD5>
+ <RETURN %<>>
+CASE8
+ <FRAME '\1aENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE9
+ <FRAME '\1aNORM-BAN>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-BAN 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE10
+ <FRAME '\1aNAUX-BAN>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNAUX-BAN 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE11
+ <FRAME '\1aTUP-BAN>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aTUP-BAN 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE12
+ <FRAME '\1aARGS-BAN>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aARGS-BAN 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE13
+ <FRAME '\1aNORM-BAN>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-BAN 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE14
+ <FRAME '\1aNORM-BAN>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aNORM-BAN 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE15
+ <FRAME '\1aENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE16
+ <FRAME '\1aENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE17
+ <FRAME '\1aENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE18
+ <FRAME '\1aENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE19
+ <FRAME '\1aENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+CASE20
+ <FRAME '\1aENTROPY>
+ <PUSH SYM4>
+ <DEAD SYM4>
+ <CALL '\1aENTROPY 1 = COD5>
+ <RETURN COD5>
+ <DEAD COD5>
+ <END \1aBIND-DISPATCH>
+" SEQ-AN analyze a sequence of NODES discarding values until the last."
+
+#WORD *3174247171*
+<GFCN \1aSEQ-AN ("VALUE" ANY <LIST [REST NODE]> ANY "OPTIONAL" ANY) L6 FTYP7 DO-PRED8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP (SOA9 %<>) RES23 TEMP17:LBIND N19:NODE ENDIF-FLAG25 TEMP33 TEMP45>
+ <INTGO>
+ <EMPL? L6 - PHRASE12 (TYPE LIST)>
+ <FRAME '\1aCOMPILE-LOSSAGE>
+ <PUSH "Empty KIDS list in SEQ-AN">
+ <CALL '\1aCOMPILE-LOSSAGE 1 = SOA9>
+ <RETURN SOA9>
+ <DEAD SOA9>
+PHRASE12
+ <SET RES23 'NO-RETURN (TYPE ATOM)>
+ <SET SOA9 %<> (TYPE FALSE)>
+ <GETS 'BIND = TEMP17 (TYPE LBIND)>
+ <BBIND 'RET-OR-AGAIN 'ANY 'FIX %<>>
+ <LOOP>
+AGAIN27
+ <INTGO>
+ <NTHL L6 1 = N19 (TYPE NODE)>
+ <SET ENDIF-FLAG25 %<> (TYPE FALSE)>
+ <RESTL L6 1 = L6 (TYPE LIST)>
+ <EMPL? L6 - BOOL31 (TYPE LIST)>
+ <FRAME '\1aIFSYS-ENDIF?>
+ <PUSH N19>
+ <PUSH "ENDIF">
+ <CALL '\1aIFSYS-ENDIF? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL30>
+ <DEAD TEMP33>
+BOOL31
+ <EMPL? L6 + PHRASE29 (TYPE LIST)>
+ <FRAME '\1aIFSYS-ENDIF?>
+ <NTHL L6 1 = STACK (TYPE NODE)>
+ <PUSH "ENDIF">
+ <CALL '\1aIFSYS-ENDIF? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD TEMP33>
+ <SET ENDIF-FLAG25 'T (TYPE ATOM)>
+BOOL30
+ <TYPE? DO-PRED8 <TYPE-CODE FALSE> + PHRASE37>
+ <EMPL? L6 - PHRASE37 (TYPE LIST)>
+ <GEN-SET 'TRUTH ()>
+ <GEN-SET 'UNTRUTH ()>
+ <GETS 'BIND = TEMP33 (TYPE LBIND)>
+ <NTHUV N19 2 = TEMP45>
+ <BBIND 'PRED 'ANY 'FIX TEMP45>
+ <DEAD TEMP45>
+ <FRAME '\1aANA>
+ <PUSH N19>
+ <PUSH FTYP7>
+ <CALL '\1aANA 2 = TEMP45>
+ <UNBIND TEMP33>
+ <DEAD TEMP33>
+ <ADJ -9>
+ <JUMP + PHRASE48>
+PHRASE37
+ <FRAME '\1aANA>
+ <PUSH N19>
+ <PUSH FTYP7>
+ <CALL '\1aANA 2 = TEMP45>
+PHRASE48
+ <VEQUAL? ENDIF-FLAG25 0 + PHRASE51>
+ <DEAD ENDIF-FLAG25>
+ <TYPE? SOA9 <TYPE-CODE FALSE> + PHRASE51>
+ <FRAME '\1aASSERT-TYPES>
+ <FRAME '\1aORUPC>
+ <GEN-LVAL 'VARTBL = STACK>
+ <PUSH SOA9>
+ <DEAD SOA9>
+ <CALL '\1aORUPC 2 = STACK>
+ <CALL '\1aASSERT-TYPES 1>
+ <SET SOA9 %<> (TYPE FALSE)>
+PHRASE51
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TEMP45>
+ <PUSH RES23>
+ <DEAD RES23>
+ <CALL '\1aTYPE-MERGE 2 = RES23>
+ <JUMP + PHRASE80>
+PHRASE29
+ <FRAME '\1aIFSYS-ENDIF?>
+ <PUSH N19>
+ <PUSH "IFSYS">
+ <CALL '\1aIFSYS-ENDIF? 2 = TEMP45>
+ <TYPE? TEMP45 <TYPE-CODE FALSE> + PHRASE58>
+ <DEAD TEMP45>
+ <FRAME '\1aANA>
+ <PUSH N19>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TEMP45>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aBUILD-TYPE-LIST 1 = SOA9>
+ <JUMP + PHRASE80>
+PHRASE58
+ <FRAME '\1aANA>
+ <PUSH N19>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TEMP45>
+ <LENUV N19 = ENDIF-FLAG25 (TYPE FIX)>
+ <LESS? ENDIF-FLAG25 8 + BOOL68 (TYPE FIX)>
+ <DEAD ENDIF-FLAG25>
+ <NTHUV N19 8 = ENDIF-FLAG25>
+ <TYPE? ENDIF-FLAG25 <TYPE-CODE FALSE> - PHRASE80>
+ <DEAD ENDIF-FLAG25>
+BOOL68
+ <NTHR 'RET-OR-AGAIN 2 = ENDIF-FLAG25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR ENDIF-FLAG25 1 = ENDIF-FLAG25 (RECORD-TYPE LBIND)>
+ <TYPE? ENDIF-FLAG25 <TYPE-CODE FALSE> - PHRASE71>
+ <DEAD ENDIF-FLAG25>
+ <GEN-LVAL 'VERBOSE = ENDIF-FLAG25>
+ <TYPE? ENDIF-FLAG25 <TYPE-CODE FALSE> + PHRASE80>
+ <DEAD ENDIF-FLAG25>
+ <EMPL? L6 + PHRASE80 (TYPE LIST)>
+ <FRAME '\1aADDVMESS>
+ <NTHUV N19 2 = STACK (TYPE NODE)>
+ <CONS N19 () = ENDIF-FLAG25>
+ <CONS "This object has no side-effects and its value is ignored" ENDIF-FLAG25 = STACK>
+ <DEAD ENDIF-FLAG25>
+ <CALL '\1aADDVMESS 2>
+ <JUMP + PHRASE80>
+PHRASE71
+ <FRAME '\1aPUTPROP>
+ <PUSH N19>
+ <PUSH 'DONT-FLUSH-ME>
+ <PUSH 'T>
+ <CALL '\1aPUTPROP 3>
+PHRASE80
+ <TYPE? TEMP45 <TYPE-CODE FALSE> - PHRASE83>
+ <NTHR 'RET-OR-AGAIN 2 = SOA9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SOA9 1 = SOA9 (RECORD-TYPE LBIND)>
+ <SET RES23 %<> (TYPE FALSE)>
+ <UNBIND TEMP17>
+ <DEAD TEMP17>
+ <JUMP + EXIT16>
+PHRASE83
+ <EQUAL? TEMP45 'NO-RETURN - PHRASE87>
+ <DEAD TEMP45>
+ <GEN-LVAL 'VERBOSE = ENDIF-FLAG25>
+ <TYPE? ENDIF-FLAG25 <TYPE-CODE FALSE> + PHRASE89>
+ <DEAD ENDIF-FLAG25>
+ <EMPL? L6 + PHRASE89 (TYPE LIST)>
+ <DEAD L6>
+ <FRAME '\1aADDVMESS>
+ <NTHUV N19 2 = STACK (TYPE NODE)>
+ <CONS " because it never returns" () = ENDIF-FLAG25>
+ <CONS N19 ENDIF-FLAG25 = ENDIF-FLAG25>
+ <DEAD N19>
+ <CONS "This object ends a sequence of forms" ENDIF-FLAG25 = STACK>
+ <DEAD ENDIF-FLAG25>
+ <CALL '\1aADDVMESS 2>
+PHRASE89
+ <NTHR 'RET-OR-AGAIN 2 = SOA9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SOA9 1 = SOA9 (RECORD-TYPE LBIND)>
+ <SET RES23 'NO-RETURN (TYPE ATOM)>
+ <UNBIND TEMP17>
+ <DEAD TEMP17>
+ <JUMP + EXIT16>
+PHRASE87
+ <EMPL? L6 - AGAIN27 (TYPE LIST)>
+ <NTHR 'RET-OR-AGAIN 2 = SOA9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR SOA9 1 = SOA9 (RECORD-TYPE LBIND)>
+ <UNBIND TEMP17>
+ <DEAD TEMP17>
+EXIT16
+ <ADJ -9>
+ <TYPE? SOA9 <TYPE-CODE FALSE> + PHRASE101>
+ <DEAD SOA9>
+ <GEN-SET 'RET-OR-AGAIN 'T>
+PHRASE101
+ <RETURN RES23>
+ <DEAD RES23>
+ <END \1aSEQ-AN>
+#WORD *17532454754*
+<GFCN \1aIFSYS-ENDIF? ("VALUE" <OR ATOM FALSE> NODE ANY) N4 STR5>
+ <TEMP TEMP10 Y6 TEMP18 TEMP19 TEMP20>
+ <INTGO>
+ <NTHUV N4 1 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP10 90 + TAG11 (TYPE FIX)>
+ <DEAD TEMP10>
+ <RETURN %<>>
+TAG11
+ <NTHUV N4 5 = Y6 (TYPE LIST)>
+ <DEAD N4>
+ <EMPL? Y6 + TAG13>
+ <RESTL Y6 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 - TAG12>
+ <DEAD TEMP10>
+TAG13
+ <RETURN %<>>
+TAG12
+ <NTHL Y6 1 = TEMP10 (TYPE NODE)>
+ <DEAD Y6>
+ <NTHUV TEMP10 4 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE ATOM> + TAG14>
+ <RETURN %<>>
+TAG14
+ <NTHR TEMP10 3 = TEMP10 (RECORD-TYPE ATOM)>
+ <TYPE? STR5 <TYPE-CODE STRING> - TAG16>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP10 STR5 - TAG16>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET Y6 STR5>
+ <DEAD STR5>
+ <LENUS TEMP10 = TEMP18 (TYPE FIX)>
+ <LENUS Y6 = TEMP19 (TYPE FIX)>
+ <VEQUAL? TEMP18 TEMP19 - TAG16>
+ <DEAD TEMP19>
+ <LOOP (TEMP10 VALUE LENGTH) (Y6 VALUE LENGTH) (TEMP18 VALUE)>
+TAG21
+ <NTHUS TEMP10 1 = TEMP19>
+ <NTHUS Y6 1 = TEMP20>
+ <VEQUAL? TEMP19 TEMP20 - TAG16>
+ <DEAD TEMP19 TEMP20>
+ <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
+ <RESTUS Y6 1 = Y6 (TYPE STRING)>
+ <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
+ <GRTR? TEMP18 0 + TAG21 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RETURN 'T>
+TAG16
+ <RETURN %<>>
+ <END \1aIFSYS-ENDIF?>
+" ANALYZE ASSIGNED? usage."
+
+#WORD *15000171036*
+<GFCN \1aASSIGNED?-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEM6:LIST (TY10 <OR ATOM FALSE>) TEMP15 TT7:NODE T29>
+ <INTGO>
+ <NTHUV NOD4 5 = TEM6 (TYPE LIST)>
+ <EMPL? TEM6 - PHRASE12 (TYPE LIST)>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "No arguments ASSIGNED?: ">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <JUMP + PHRASE38>
+PHRASE12
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE38>
+ <DEAD TEMP15>
+ <FRAME '\1aEANA>
+ <NTHL TEM6 1 = TT7 (TYPE NODE)>
+ <PUSH TT7>
+ <PUSH 'ATOM>
+ <PUSH 'ASSIGNED?>
+ <CALL '\1aEANA 3>
+ <RESTL TEM6 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 - PHRASE19 (TYPE LIST)>
+ <DEAD TEMP15>
+ <NTHUV TT7 1 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 2 - PHRASE19 (TYPE FIX)>
+ <DEAD TEMP15>
+ <FRAME '\1aSRCH-SYM>
+ <NTHUV TT7 4 = STACK (TYPE ATOM)>
+ <CALL '\1aSRCH-SYM 1 = T29>
+ <VEQUAL? T29 0 + PHRASE19>
+ <NTHUV T29 4 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 -1 + PHRASE19 (TYPE FIX)>
+ <DEAD TEMP15>
+ <PUTUV NOD4 1 43 (TYPE FIX)>
+ <PUTUV NOD4 4 T29>
+ <PUTUV T29 12 'T>
+ <PUTUV T29 15 'T>
+ <NTHUV T29 13 = TEMP15 (TYPE FIX)>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <PUTUV T29 13 TEMP15 (TYPE FIX)>
+ <DEAD TEMP15>
+ <FRAME '\1aREVIVE>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH T29>
+ <CALL '\1aREVIVE 2>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH T29>
+ <DEAD T29>
+ <CALL '\1aGET-CURRENT-TYPE 1 = TEMP15>
+ <EQUAL? TEMP15 'NO-RETURN - PHRASE26>
+ <DEAD TEMP15>
+ <SET TY10 'BOOL-FALSE (TYPE ATOM)>
+ <JUMP + PHRASE38>
+PHRASE26
+ <SET TY10 'BOOLEAN (TYPE ATOM)>
+ <JUMP + PHRASE38>
+PHRASE19
+ <EMPL? TEM6 + PHRASE29>
+ <RESTL TEM6 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 + PHRASE29>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 - PHRASE29>
+ <DEAD TEMP15>
+ <FRAME '\1aEANA>
+ <RESTL TEM6 1 = TEMP15 (TYPE LIST)>
+ <DEAD TEM6>
+ <NTHL TEMP15 1 = STACK (TYPE NODE)>
+ <DEAD TEMP15>
+ <PUSH <OR <PRIMTYPE FRAME> PROCESS>>
+ <PUSH 'ASSIGNED?>
+ <CALL '\1aEANA 3>
+ <JUMP + PHRASE38>
+PHRASE29
+ <RESTL TEM6 1 = TEMP15 (TYPE LIST)>
+ <DEAD TEM6>
+ <EMPL? TEMP15 - PHRASE31 (TYPE LIST)>
+ <DEAD TEMP15>
+ <GEN-LVAL 'VERBOSE = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD TEMP15>
+ <NTHUV TT7 1 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 2 - PHRASE33 (TYPE FIX)>
+ <DEAD TEMP15>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <NTHUV TT7 4 = TEMP15>
+ <DEAD TT7>
+ <CONS TEMP15 () = TEMP15>
+ <CONS "External reference to LVAL: " TEMP15 = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aADDVMESS 2>
+PHRASE33
+ <PUTUV NOD4 1 43 (TYPE FIX)>
+ <DEAD NOD4>
+ <SET TY10 'BOOLEAN (TYPE ATOM)>
+ <JUMP + PHRASE38>
+PHRASE31
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many args to ASSIGNED?: ">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE38
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TY10>
+ <DEAD TY10>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aASSIGNED?-ANA>
+<COND (<GASSIGNED? ASSIGNED?-ANA> <PUTPROP ,ASSIGNED? ANALYSIS ,ASSIGNED?-ANA>)>
+
+" ANALYZE LVAL usage. Become either direct reference or PUSHJ"
+
+#WORD *35667234005*
+<GFCN \1aLVAL-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP (TT8 %<>) P12 TEM6:LIST TEMP17 TEMP33 T311>
+ <INTGO>
+ <NTHUV NOD4 2 = P12>
+ <NTHUV NOD4 5 = TEM6 (TYPE LIST)>
+ <EMPL? TEM6 - PHRASE15 (TYPE LIST)>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "No arguments LVAL: ">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+PHRASE15
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE96>
+ <NTHUV NOD4 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE SYMTAB> - BOOL22>
+ <DEAD TEMP17>
+ <NTHUV NOD4 4 = TT8 (TYPE SYMTAB)>
+ <JUMP + BOOL21>
+BOOL22
+ <FRAME '\1aEANA>
+ <NTHL TEM6 1 = STACK (TYPE NODE)>
+ <PUSH 'ATOM>
+ <PUSH 'LVAL>
+ <CALL '\1aEANA 3 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP17>
+ <RESTL TEM6 1 = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP17 - PHRASE19 (TYPE LIST)>
+ <DEAD TEMP17>
+ <NTHL TEM6 1 = TEMP17 (TYPE NODE)>
+ <NTHUV TEMP17 1 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 2 - PHRASE19 (TYPE FIX)>
+ <DEAD TEMP17>
+ <NTHL TEM6 1 = TEMP17 (TYPE NODE)>
+ <NTHUV TEMP17 3 = TEMP17>
+ <EQUAL? TEMP17 'ATOM - PHRASE19>
+ <DEAD TEMP17>
+ <FRAME '\1aSRCH-SYM>
+ <NTHL TEM6 1 = TEMP17 (TYPE NODE)>
+ <NTHUV TEMP17 4 = STACK (TYPE ATOM)>
+ <DEAD TEMP17>
+ <CALL '\1aSRCH-SYM 1 = TT8>
+ <VEQUAL? TT8 0 + PHRASE19>
+BOOL21
+ <GEN-LVAL 'WHON = TEMP17>
+ <EQUAL? TEMP17 P12 - PHRASE28>
+ <DEAD TEMP17>
+ <GEN-LVAL 'WHO = TEMP17>
+ <CONS TT8 () = TEMP33>
+ <CONS %<> TEMP33 = TEMP33>
+ <CONS TEMP33 TEMP17 = TEMP33>
+ <DEAD TEMP17>
+ <GEN-SET 'WHO TEMP33>
+ <DEAD TEMP33>
+PHRASE28
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH TT8>
+ <CALL '\1aGET-CURRENT-TYPE 1 = TEMP33>
+ <GEN-LVAL 'PRED = TEMP17>
+ <EQUAL? TEMP17 P12 - PHRASE41>
+ <DEAD TEMP17>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP33>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE41>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP33>
+ <PUSH <NOT FALSE>>
+ <CALL '\1aTYPE-OK? 2 = T311>
+ <TYPE? T311 <TYPE-CODE FALSE> + PHRASE41>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TT8>
+ <PUSH T311>
+ <DEAD T311>
+ <GEN-LVAL 'TRUTH = STACK>
+ <PUSH %<>>
+ <CALL '\1aADD-TYPE-LIST 4 = P12>
+ <GEN-SET 'TRUTH P12>
+ <DEAD P12>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TT8>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <GEN-LVAL 'UNTRUTH = STACK>
+ <PUSH %<>>
+ <CALL '\1aADD-TYPE-LIST 4 = TEMP17>
+ <GEN-SET 'UNTRUTH TEMP17>
+ <DEAD TEMP17>
+ <JUMP + PHRASE59>
+PHRASE41
+ <GEN-LVAL 'PRED = TEMP17>
+ <EQUAL? TEMP17 P12 + PHRASE59>
+ <DEAD TEMP17>
+ <TYPE? P12 <TYPE-CODE NODE> - BOOL65>
+ <NTHUV P12 1 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 11 + PHRASE59 (TYPE FIX)>
+ <VEQUAL? TEMP17 20 + PHRASE59 (TYPE FIX)>
+ <VEQUAL? TEMP17 6 - BOOL65 (TYPE FIX)>
+ <DEAD TEMP17>
+ <NTHUV P12 9 = TEMP17>
+ <GVAL 'SET = T311>
+ <EQUAL? TEMP17 T311 + PHRASE59>
+ <DEAD TEMP17 T311>
+ <NTHUV P12 9 = T311>
+ <DEAD P12>
+ <GVAL 'NOT = TEMP17>
+ <EQUAL? T311 TEMP17 + PHRASE59>
+ <DEAD T311 TEMP17>
+BOOL65
+ <SET TEMP17 [BOOL-TRUE BOOL-FALSE BOOLEAN] (TYPE VECTOR)>
+ <TYPE? TEMP33 <TYPE-CODE ATOM> - PHRASE59>
+ <LOOP (TEMP33 VALUE) (TEMP17 LENGTH VALUE)>
+TAG69
+ <NTHUV TEMP17 1 = T311>
+ <VEQUAL? T311 TEMP33 + TAG68>
+ <DEAD T311>
+ <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
+ <EMPUV? TEMP17 - TAG69>
+ <JUMP + PHRASE59>
+TAG68
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <PUSH TT8>
+ <FRAME '\1aGET-DECL>
+ <PUSH TEMP33>
+ <DEAD TEMP33>
+ <CALL '\1aGET-DECL 1 = TEMP33>
+ <PUSH TEMP33>
+ <CALL '\1aSET-CURRENT-TYPE 2>
+PHRASE59
+ <SET T311 TT8>
+ <NTHUV T311 4 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 -1 + PHRASE19 (TYPE FIX)>
+ <DEAD TEMP17>
+ <PUTUV NOD4 1 10 (TYPE FIX)>
+ <FRAME '\1aREVIVE>
+ <PUSH NOD4>
+ <PUSH T311>
+ <CALL '\1aREVIVE 2>
+ <PUTUV T311 11 %<>>
+ <PUTUV T311 15 'T>
+ <NTHUV T311 13 = TEMP17 (TYPE FIX)>
+ <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
+ <PUTUV T311 13 TEMP17 (TYPE FIX)>
+ <DEAD TEMP17>
+ <PUTUV NOD4 4 T311>
+ <DEAD NOD4>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP33>
+ <DEAD TEMP33>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE79>
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <PUSH T311>
+ <DEAD T311>
+ <PUSH TEMP33>
+ <CALL '\1aSET-CURRENT-TYPE 2>
+PHRASE79
+ <RETURN TEMP33>
+ <DEAD TEMP33>
+PHRASE19
+ <RESTL TEM6 1 = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP17 - PHRASE81 (TYPE LIST)>
+ <DEAD TEMP17>
+ <GEN-LVAL 'VERBOSE = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE83>
+ <DEAD TEMP17>
+ <NTHL TEM6 1 = TEMP17 (TYPE NODE)>
+ <NTHUV TEMP17 1 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 2 - PHRASE83 (TYPE FIX)>
+ <DEAD TEMP17>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <NTHL TEM6 1 = TEMP17 (TYPE NODE)>
+ <DEAD TEM6>
+ <NTHUV TEMP17 4 = TEMP17>
+ <CONS TEMP17 () = TEMP17>
+ <CONS "External variable being referenced: " TEMP17 = STACK>
+ <DEAD TEMP17>
+ <CALL '\1aADDVMESS 2>
+PHRASE83
+ <PUTUV NOD4 1 31 (TYPE FIX)>
+ <TYPE? TT8 <TYPE-CODE FALSE> + BOOL88>
+ <SET T311 TT8>
+ <PUTUV NOD4 4 T311>
+ <DEAD NOD4>
+BOOL88
+ <TYPE? TT8 <TYPE-CODE FALSE> + PHRASE90>
+ <DEAD TT8>
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV T311 7 = STACK>
+ <DEAD T311>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+PHRASE90
+ <RETURN RTYP5>
+ <DEAD RTYP5>
+PHRASE81
+ <EMPL? TEM6 + PHRASE93>
+ <RESTL TEM6 1 = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP17 + PHRASE93>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP17 - PHRASE93>
+ <DEAD TEMP17>
+ <FRAME '\1aEANA>
+ <RESTL TEM6 1 = TEMP17 (TYPE LIST)>
+ <DEAD TEM6>
+ <NTHL TEMP17 1 = STACK (TYPE NODE)>
+ <DEAD TEMP17>
+ <PUSH <OR <PRIMTYPE FRAME> PROCESS>>
+ <PUSH 'LVAL>
+ <CALL '\1aEANA 3 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE93>
+ <DEAD TEMP17>
+ <RETURN 'ANY>
+PHRASE93
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many args to LVAL: ">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP17>
+PHRASE96
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aLVAL-ANA>
+<COND (<GASSIGNED? LVAL-ANA> <PUTPROP ,LVAL ANALYSIS ,LVAL-ANA>)>
+
+" SET-ANA analyze uses of SET."
+
+#WORD *6766165636*
+<GFCN \1aSET-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEM6:LIST LN7:FIX (T29 'ATOM) TEMP18 NM11 TEMP3:LBIND TEMP24 TEMP30 N17:NODE>
+ <INTGO>
+ <NTHUV NOD4 5 = TEM6 (TYPE LIST)>
+ <LENL TEM6 = LN7 (TYPE FIX)>
+ <NTHUV NOD4 9 = TEMP18>
+ <NTHUV TEMP18 2 = NM11>
+ <DEAD TEMP18>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <GEN-LVAL 'WHON = TEMP18>
+ <BBIND 'WHON 'ANY 'FIX TEMP18>
+ <DEAD TEMP18>
+ <GEN-LVAL 'PRED = TEMP18>
+ <BBIND 'PRED 'ANY 'FIX TEMP18>
+ <DEAD TEMP18>
+ <PUSH NOD4>
+ <SET TEMP24 1 (TYPE FIX)>
+ <NTHUV NOD4 8 = TEMP18>
+ <TYPE TEMP18 = TEMP30>
+ <AND TEMP30 7 = TEMP30>
+ <VEQUAL? TEMP30 1 + TAG26>
+ <DEAD TEMP30>
+ <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP24 VALUE)>
+TAG32
+ <INTGO>
+ <EMPTY? TEMP18 + TAG31>
+ <NTH1 TEMP18 = STACK>
+ <REST1 TEMP18 = TEMP18>
+ <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG31
+ <LIST TEMP24 = TEMP18 (TYPE LIST)>
+ <DEAD TEMP24>
+ <JUMP + TAG28>
+TAG26
+ <LOOP>
+TAG29
+ <VEQUAL? TEMP24 0 + TAG28>
+ <POP = TEMP30>
+ <CONS TEMP30 TEMP18 = TEMP18 (TYPE LIST)>
+ <DEAD TEMP30>
+ <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG28
+ <PUTUV NOD4 8 TEMP18>
+ <DEAD TEMP18>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE163>
+ <EQUAL? NM11 'SET - BOOL37>
+ <LESS? LN7 2 + BOOL36 (TYPE FIX)>
+BOOL37
+ <EQUAL? NM11 'UNASSIGN - PHRASE35>
+ <VEQUAL? LN7 0 - PHRASE35 (TYPE FIX)>
+BOOL36
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too few arguments to: ">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP18>
+ <JUMP + PHRASE163>
+PHRASE35
+ <NTHUV NOD4 4 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE SYMTAB> - BOOL45>
+ <DEAD TEMP30>
+ <NTHUV NOD4 4 = TEMP18 (TYPE SYMTAB)>
+ <JUMP + BOOL44>
+BOOL45
+ <FRAME '\1aEANA>
+ <NTHL TEM6 1 = STACK (TYPE NODE)>
+ <PUSH 'ATOM>
+ <PUSH NM11>
+ <CALL '\1aEANA 3 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE42>
+ <DEAD TEMP30>
+ <EQUAL? NM11 'SET - BOOL49>
+ <VEQUAL? LN7 2 + BOOL48 (TYPE FIX)>
+BOOL49
+ <EQUAL? NM11 'UNASSIGN - PHRASE42>
+ <VEQUAL? LN7 1 - PHRASE42 (TYPE FIX)>
+BOOL48
+ <NTHL TEM6 1 = TEMP30 (TYPE NODE)>
+ <NTHUV TEMP30 1 = TEMP30 (TYPE FIX)>
+ <VEQUAL? TEMP30 2 - PHRASE42 (TYPE FIX)>
+ <DEAD TEMP30>
+ <FRAME '\1aSRCH-SYM>
+ <NTHL TEM6 1 = TEMP30 (TYPE NODE)>
+ <NTHUV TEMP30 4 = STACK (TYPE ATOM)>
+ <DEAD TEMP30>
+ <CALL '\1aSRCH-SYM 1 = TEMP18>
+ <VEQUAL? TEMP18 0 + PHRASE42>
+BOOL44
+ <NTHUV NOD4 2 = TEMP30>
+ <NTHR 'WHON 2 = TEMP24 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP24 1 = TEMP24 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP30 TEMP24 - PHRASE55>
+ <DEAD TEMP30 TEMP24>
+ <NTHR 'WHON 2 = TEMP24 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP24 1 NOD4 (RECORD-TYPE LBIND)>
+ <DEAD TEMP24>
+ <GEN-LVAL 'WHO = TEMP24>
+ <CONS TEMP18 () = TEMP30>
+ <CONS 'T TEMP30 = TEMP30>
+ <CONS TEMP30 TEMP24 = TEMP24>
+ <DEAD TEMP30>
+ <GEN-SET 'WHO TEMP24>
+ <DEAD TEMP24>
+PHRASE55
+ <NTHUV NOD4 2 = TEMP24>
+ <NTHR 'PRED 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP30 1 = TEMP30 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP24 TEMP30 - PHRASE67>
+ <DEAD TEMP24 TEMP30>
+ <NTHR 'PRED 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP30 1 NOD4 (RECORD-TYPE LBIND)>
+ <DEAD TEMP30>
+PHRASE67
+ <EQUAL? NM11 'SET - PHRASE74>
+ <FRAME '\1aANA>
+ <RESTL TEM6 1 = TEMP30 (TYPE LIST)>
+ <NTHL TEMP30 1 = N17 (TYPE NODE)>
+ <DEAD TEMP30>
+ <PUSH N17>
+ <NTHUV TEMP18 7 = STACK>
+ <CALL '\1aANA 2 = T29>
+ <TYPE? T29 <TYPE-CODE FALSE> - PHRASE74>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Decl violation: ">
+ <NTHUV TEMP18 2 = STACK (TYPE ATOM)>
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 3 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE42>
+ <DEAD TEMP30>
+PHRASE74
+ <PUTUV TEMP18 6 %<>>
+ <NTHUV TEMP18 13 = TEMP30 (TYPE FIX)>
+ <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
+ <PUTUV TEMP18 13 TEMP30 (TYPE FIX)>
+ <DEAD TEMP30>
+ <NTHUV TEMP18 17 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> - BOOL79>
+ <SET TEMP24 'ANY (TYPE ATOM)>
+BOOL79
+ <NTHUV TEMP18 4 = TEMP30 (TYPE FIX)>
+ <VEQUAL? TEMP30 -1 - PHRASE81 (TYPE FIX)>
+ <DEAD TEMP30>
+ <GEN-LVAL 'VERBOSE = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> + PHRASE81>
+ <DEAD TEMP30>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <NTHUV TEMP18 2 = TEMP30 (TYPE ATOM)>
+ <CONS TEMP30 () = TEMP30>
+ <CONS "External variable being SET (or UNASSIGNed): " TEMP30 = STACK>
+ <DEAD TEMP30>
+ <CALL '\1aADDVMESS 2>
+PHRASE81
+ <EQUAL? NM11 'SET - PHRASE89>
+ <FRAME '\1aTYPE-AND>
+ <PUSH T29>
+ <PUSH RTYP5>
+ <CALL '\1aTYPE-AND 2 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> - BOOL90>
+ <SET TEMP30 T29>
+ <DEAD T29>
+BOOL90
+ <SET T29 TEMP30>
+ <DEAD TEMP30>
+PHRASE89
+ <EQUAL? NM11 'SET - PHRASE95>
+ <FRAME '\1aTYPESAME>
+ <PUSH TEMP24>
+ <DEAD TEMP24>
+ <PUSH T29>
+ <CALL '\1aTYPESAME 2 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE93>
+ <CONS %<> () = TEMP30>
+ <CONS TEMP24 TEMP30 = TEMP30>
+ <DEAD TEMP24>
+ <PUTUV NOD4 7 TEMP30 (TYPE LIST)>
+ <DEAD TEMP30>
+ <JUMP + PHRASE95>
+PHRASE93
+ <CONS %<> () = TEMP30>
+ <CONS %<> TEMP30 = TEMP30>
+ <PUTUV NOD4 7 TEMP30 (TYPE LIST)>
+ <DEAD TEMP30>
+PHRASE95
+ <NTHUV TEMP18 4 = TEMP30 (TYPE FIX)>
+ <VEQUAL? TEMP30 -1 - PHRASE97 (TYPE FIX)>
+ <DEAD TEMP30>
+ <SET TEMP30 32 (TYPE FIX)>
+ <JUMP + PHRASE100>
+PHRASE97
+ <SET TEMP30 11 (TYPE FIX)>
+PHRASE100
+ <PUTUV NOD4 1 TEMP30 (TYPE FIX)>
+ <DEAD TEMP30>
+ <PUTUV NOD4 4 TEMP18>
+ <FRAME '\1aMAKE-DEAD>
+ <PUSH NOD4>
+ <PUSH TEMP18>
+ <CALL '\1aMAKE-DEAD 2>
+ <EQUAL? NM11 'SET - PHRASE107>
+ <NTHUV N17 1 = TEMP30 (TYPE FIX)>
+ <VEQUAL? TEMP30 2 - PHRASE107 (TYPE FIX)>
+ <DEAD TEMP30>
+ <NTHUV N17 4 = TEMP30>
+ <EQUAL? TEMP30 %<> - PHRASE106>
+ <DEAD TEMP30>
+ <SET T29 'BOOL-FALSE (TYPE ATOM)>
+ <JUMP + PHRASE107>
+PHRASE106
+ <NTHUV N17 4 = TEMP30>
+ <DEAD N17>
+ <EQUAL? TEMP30 'T - PHRASE107>
+ <DEAD TEMP30>
+ <SET T29 'BOOL-TRUE (TYPE ATOM)>
+PHRASE107
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <PUSH TEMP18>
+ <EQUAL? NM11 'SET - PHRASE110>
+ <SET TEMP30 T29>
+ <JUMP + PHRASE111>
+PHRASE110
+ <SET TEMP30 'NO-RETURN (TYPE ATOM)>
+PHRASE111
+ <PUSH TEMP30>
+ <DEAD TEMP30>
+ <CALL '\1aSET-CURRENT-TYPE 2>
+ <PUTUV TEMP18 15 'T>
+ <EQUAL? NM11 'SET - PHRASE113>
+ <DEAD NM11>
+ <NTHR 'PRED 2 = TEMP30 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP30 1 = TEMP30 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP30 NOD4 - PHRASE115>
+ <DEAD TEMP30 NOD4>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH T29>
+ <PUSH <NOT FALSE>>
+ <CALL '\1aTYPE-OK? 2 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE115>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH T29>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = NM11>
+ <TYPE? NM11 <TYPE-CODE FALSE> + PHRASE115>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP18>
+ <PUSH TEMP24>
+ <DEAD TEMP24>
+ <GEN-LVAL 'TRUTH = STACK>
+ <PUSH 'T>
+ <CALL '\1aADD-TYPE-LIST 4 = TEMP24>
+ <GEN-SET 'TRUTH TEMP24>
+ <DEAD TEMP24>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <PUSH NM11>
+ <DEAD NM11>
+ <GEN-LVAL 'UNTRUTH = STACK>
+ <PUSH 'T>
+ <CALL '\1aADD-TYPE-LIST 4 = NM11>
+ <GEN-SET 'UNTRUTH NM11>
+ <DEAD NM11>
+PHRASE115
+ <FRAME '\1aTYPE-OK?>
+ <PUSH T29>
+ <DEAD T29>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP18>
+ <JUMP + PHRASE163>
+PHRASE113
+ <FRAME '\1aTYPE-OK?>
+ <PUSH T29>
+ <DEAD T29>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP18>
+ <JUMP + PHRASE163>
+PHRASE42
+ <EQUAL? NM11 'SET - PHRASE135>
+ <LESS? LN7 4 - PHRASE135 (TYPE FIX)>
+ <FRAME '\1aANA>
+ <RESTL TEM6 1 = NM11 (TYPE LIST)>
+ <NTHL NM11 1 = STACK (TYPE NODE)>
+ <DEAD NM11>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TEMP18>
+ <VEQUAL? LN7 2 - PHRASE139 (TYPE FIX)>
+ <DEAD LN7>
+ <GEN-LVAL 'VERBOSE = NM11>
+ <TYPE? NM11 <TYPE-CODE FALSE> + PHRASE141>
+ <DEAD NM11>
+ <NTHL TEM6 1 = NM11 (TYPE NODE)>
+ <NTHUV NM11 1 = NM11 (TYPE FIX)>
+ <VEQUAL? NM11 2 - PHRASE141 (TYPE FIX)>
+ <DEAD NM11>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <NTHL TEM6 1 = NM11 (TYPE NODE)>
+ <DEAD TEM6>
+ <NTHUV NM11 4 = NM11>
+ <CONS NM11 () = NM11>
+ <CONS "External variable being SET: " NM11 = STACK>
+ <DEAD NM11>
+ <CALL '\1aADDVMESS 2>
+PHRASE141
+ <PUTUV NOD4 1 32 (TYPE FIX)>
+ <DEAD NOD4>
+ <JUMP + PHRASE146>
+PHRASE139
+ <FRAME '\1aEANA>
+ <RESTL TEM6 1 = NM11 (TYPE LIST)>
+ <DEAD TEM6>
+ <RESTL NM11 1 = NM11 (TYPE LIST)>
+ <NTHL NM11 1 = STACK (TYPE NODE)>
+ <DEAD NM11>
+ <PUSH <OR <PRIMTYPE FRAME> PROCESS>>
+ <PUSH 'SET>
+ <CALL '\1aEANA 3>
+PHRASE146
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP18>
+ <DEAD TEMP18>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP18>
+ <JUMP + PHRASE163>
+PHRASE135
+ <EQUAL? NM11 'UNASSIGN - PHRASE149>
+ <DEAD NM11>
+ <LESS? LN7 3 - PHRASE149 (TYPE FIX)>
+ <VEQUAL? LN7 1 - PHRASE152 (TYPE FIX)>
+ <DEAD LN7>
+ <GEN-LVAL 'VERBOSE = NM11>
+ <TYPE? NM11 <TYPE-CODE FALSE> + PHRASE156>
+ <DEAD NM11>
+ <NTHL TEM6 1 = NM11 (TYPE NODE)>
+ <NTHUV NM11 1 = NM11 (TYPE FIX)>
+ <VEQUAL? NM11 2 - PHRASE156 (TYPE FIX)>
+ <DEAD NM11>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <NTHL TEM6 1 = NM11 (TYPE NODE)>
+ <DEAD TEM6>
+ <NTHUV NM11 4 = NM11>
+ <CONS NM11 () = NM11>
+ <CONS "External variable being UNASSIGNed: " NM11 = STACK>
+ <DEAD NM11>
+ <CALL '\1aADDVMESS 2>
+PHRASE156
+ <PUTUV NOD4 1 32 (TYPE FIX)>
+ <SET TEMP18 NOD4>
+ <DEAD NOD4>
+ <JUMP + PHRASE163>
+PHRASE152
+ <FRAME '\1aEANA>
+ <RESTL TEM6 1 = NM11 (TYPE LIST)>
+ <DEAD TEM6>
+ <NTHL NM11 1 = STACK (TYPE NODE)>
+ <DEAD NM11>
+ <PUSH <OR <PRIMTYPE FRAME> PROCESS>>
+ <PUSH 'SET>
+ <CALL '\1aEANA 3 = TEMP18>
+ <JUMP + PHRASE163>
+PHRASE149
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many args to SET: ">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP18>
+PHRASE163
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aSET-ANA>
+#WORD *37570557355*
+<GFCN \1aMULTI-SET-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP (K6 %<>) (LN7 0) TEMP3:LBIND TEMP18 L-OF-A12 TEMP30 TEMP43 ATM46 N47 NT48 TEMP87>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <GEN-LVAL 'WHON = TEMP18>
+ <BBIND 'WHON 'ANY 'FIX TEMP18>
+ <DEAD TEMP18>
+ <GEN-LVAL 'PRED = TEMP18>
+ <BBIND 'PRED 'ANY 'FIX TEMP18>
+ <DEAD TEMP18>
+ <NTHL K6 1 = LN7 (TYPE NODE)>
+ <NTHUV LN7 4 = L-OF-A12 (TYPE LIST)>
+ <DEAD LN7>
+ <PUSH NOD4>
+ <SET LN7 1 (TYPE FIX)>
+ <NTHUV NOD4 8 = TEMP18>
+ <TYPE TEMP18 = TEMP30>
+ <AND TEMP30 7 = TEMP30>
+ <VEQUAL? TEMP30 1 + TAG26>
+ <DEAD TEMP30>
+ <LOOP (TEMP18 TYPE VALUE LENGTH) (LN7 VALUE)>
+TAG32
+ <INTGO>
+ <EMPTY? TEMP18 + TAG31>
+ <NTH1 TEMP18 = STACK>
+ <REST1 TEMP18 = TEMP18>
+ <ADD LN7 1 = LN7 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG31
+ <LIST LN7 = TEMP18 (TYPE LIST)>
+ <DEAD LN7>
+ <JUMP + TAG28>
+TAG26
+ <LOOP>
+TAG29
+ <VEQUAL? LN7 0 + TAG28>
+ <POP = TEMP30>
+ <CONS TEMP30 TEMP18 = TEMP18 (TYPE LIST)>
+ <DEAD TEMP30>
+ <SUB LN7 1 = LN7 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG28
+ <PUTUV NOD4 8 TEMP18>
+ <DEAD TEMP18>
+ <SET TEMP30 () (TYPE LIST)>
+ <SET LN7 () (TYPE LIST)>
+ <SET TEMP18 L-OF-A12 (TYPE LIST)>
+ <DEAD L-OF-A12>
+ <RESTL K6 1 = TEMP43 (TYPE LIST)>
+ <DEAD K6>
+ <LOOP>
+MAP34
+ <INTGO>
+ <EMPL? TEMP18 + MAPAP37>
+ <EMPL? TEMP43 + MAPAP37>
+ <SET K6 TEMP18>
+ <SET L-OF-A12 TEMP43>
+ <NTHL K6 1 = ATM46>
+ <NTHL L-OF-A12 1 = N47 (TYPE NODE)>
+ <NTHUV N47 1 = NT48 (TYPE FIX)>
+ <VEQUAL? NT48 3 + BOOL52 (TYPE FIX)>
+ <VEQUAL? NT48 68 - PHRASE51 (TYPE FIX)>
+ <DEAD NT48>
+BOOL52
+ <FRAME '\1aMULTI-SET-SEG>
+ <PUSH NOD4>
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH L-OF-A12>
+ <DEAD L-OF-A12>
+ <CALL '\1aMULTI-SET-SEG 3 = K6>
+ <LOOP (K6 VALUE)>
+TAG59
+ <INTGO>
+ <EMPL? K6 + MAPAP37>
+ <NTHL K6 1 = NT48>
+ <CONS NT48 () = NT48 (TYPE LIST)>
+ <EMPL? TEMP30 - TAG61>
+ <SET TEMP30 NT48 (TYPE LIST)>
+ <JUMP + TAG62>
+TAG61
+ <PUTREST LN7 NT48>
+ <DEAD LN7>
+TAG62
+ <SET LN7 NT48 (TYPE LIST)>
+ <DEAD NT48>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <JUMP + TAG59>
+PHRASE51
+ <RESTL K6 1 = NT48 (TYPE LIST)>
+ <EMPL? NT48 - PHRASE65 (TYPE LIST)>
+ <DEAD NT48>
+ <RESTL L-OF-A12 1 = NT48 (TYPE LIST)>
+ <EMPL? NT48 + PHRASE65 (TYPE LIST)>
+ <DEAD NT48>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many values for vars: ">
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <JUMP + PHRASE68>
+PHRASE65
+ <RESTL K6 1 = NT48 (TYPE LIST)>
+ <EMPL? NT48 + PHRASE68 (TYPE LIST)>
+ <DEAD NT48>
+ <RESTL L-OF-A12 1 = NT48 (TYPE LIST)>
+ <DEAD L-OF-A12>
+ <EMPL? NT48 - PHRASE68 (TYPE LIST)>
+ <DEAD NT48>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too few values for vars: ">
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE68
+ <SET L-OF-A12 'ANY (TYPE ATOM)>
+ <TYPE? ATM46 <TYPE-CODE ATOM> - PHRASE72>
+ <FRAME '\1aSRCH-SYM>
+ <PUSH ATM46>
+ <CALL '\1aSRCH-SYM 1 = NT48>
+ <VEQUAL? NT48 0 + PHRASE81>
+ <SET ATM46 NT48>
+ <DEAD NT48>
+ <JUMP + PHRASE81>
+PHRASE72
+ <TYPE? ATM46 <TYPE-CODE ADECL> - PHRASE76>
+ <FRAME '\1aSRCH-SYM>
+ <NTHUV ATM46 1 = STACK (TYPE ATOM)>
+ <CALL '\1aSRCH-SYM 1 = NT48>
+ <VEQUAL? NT48 0 + PHRASE78>
+ <NTHUV ATM46 2 = L-OF-A12>
+ <DEAD ATM46>
+ <SET ATM46 NT48>
+ <DEAD NT48>
+ <JUMP + PHRASE81>
+PHRASE78
+ <NTHUV ATM46 2 = L-OF-A12>
+ <NTHUV ATM46 1 = ATM46>
+ <JUMP + PHRASE81>
+PHRASE76
+ <TYPE? ATM46 <TYPE-CODE LIST> - PHRASE81>
+ <NTHL ATM46 1 = L-OF-A12>
+ <RESTL ATM46 1 = NT48 (TYPE LIST)>
+ <DEAD ATM46>
+ <NTHL NT48 1 = ATM46>
+ <DEAD NT48>
+PHRASE81
+ <TYPE? ATM46 <TYPE-CODE SYMTAB> - PHRASE83>
+ <NTHUV NOD4 2 = NT48>
+ <NTHR 'WHON 2 = TEMP87 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP87 1 = TEMP87 (RECORD-TYPE LBIND)>
+ <EQUAL? NT48 TEMP87 - PHRASE85>
+ <DEAD NT48 TEMP87>
+ <RESTL K6 1 = TEMP87 (TYPE LIST)>
+ <EMPL? TEMP87 - PHRASE85 (TYPE LIST)>
+ <DEAD TEMP87>
+ <NTHR 'WHON 2 = TEMP87 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP87 1 NOD4 (RECORD-TYPE LBIND)>
+ <DEAD TEMP87>
+ <GEN-LVAL 'WHO = TEMP87>
+ <CONS ATM46 () = NT48>
+ <CONS 'T NT48 = NT48>
+ <CONS NT48 TEMP87 = TEMP87>
+ <DEAD NT48>
+ <GEN-SET 'WHO TEMP87>
+ <DEAD TEMP87>
+PHRASE85
+ <NTHUV NOD4 2 = TEMP87>
+ <NTHR 'PRED 2 = NT48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR NT48 1 = NT48 (RECORD-TYPE LBIND)>
+ <EQUAL? TEMP87 NT48 - PHRASE97>
+ <DEAD TEMP87 NT48>
+ <RESTL K6 1 = NT48 (TYPE LIST)>
+ <DEAD K6>
+ <EMPL? NT48 - PHRASE97 (TYPE LIST)>
+ <DEAD NT48>
+ <NTHR 'PRED 2 = NT48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR NT48 1 NOD4 (RECORD-TYPE LBIND)>
+ <DEAD NT48>
+PHRASE97
+ <FRAME '\1aTYPE-OK?>
+ <PUSH L-OF-A12>
+ <NTHUV ATM46 7 = STACK>
+ <CALL '\1aTYPE-OK? 2 = TEMP87>
+ <TYPE? TEMP87 <TYPE-CODE FALSE> + BOOL105>
+ <FRAME '\1aANA>
+ <PUSH N47>
+ <PUSH TEMP87>
+ <DEAD TEMP87>
+ <CALL '\1aANA 2 = TEMP87>
+ <TYPE? TEMP87 <TYPE-CODE FALSE> - PHRASE104>
+BOOL105
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Decl violation: ">
+ <FRAME '\1aNTH>
+ <PUSH N47>
+ <PUSH %<OFFSET 2 SYMTAB>>
+ <CALL '\1aNTH 2 = STACK>
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE104
+ <PUTUV ATM46 6 %<>>
+ <NTHUV ATM46 13 = NT48 (TYPE FIX)>
+ <ADD NT48 1 = NT48 (TYPE FIX)>
+ <PUTUV ATM46 13 NT48 (TYPE FIX)>
+ <DEAD NT48>
+ <NTHUV N47 1 = NT48 (TYPE FIX)>
+ <VEQUAL? NT48 2 - PHRASE114 (TYPE FIX)>
+ <DEAD NT48>
+ <NTHUV N47 4 = NT48>
+ <EQUAL? NT48 %<> - PHRASE113>
+ <DEAD NT48>
+ <SET TEMP87 'BOOL-FALSE (TYPE ATOM)>
+ <JUMP + PHRASE114>
+PHRASE113
+ <NTHUV N47 4 = NT48>
+ <DEAD N47>
+ <EQUAL? NT48 'T - PHRASE114>
+ <DEAD NT48>
+ <SET TEMP87 'BOOL-TRUE (TYPE ATOM)>
+PHRASE114
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <PUSH ATM46>
+ <PUSH TEMP87>
+ <CALL '\1aSET-CURRENT-TYPE 2>
+ <PUTUV ATM46 15 'T>
+ <NTHR 'PRED 2 = NT48 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR NT48 1 = NT48 (RECORD-TYPE LBIND)>
+ <EQUAL? NT48 NOD4 - PHRASE134>
+ <DEAD NT48>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP87>
+ <PUSH <NOT FALSE>>
+ <CALL '\1aTYPE-OK? 2 = N47>
+ <TYPE? N47 <TYPE-CODE FALSE> + PHRASE134>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP87>
+ <DEAD TEMP87>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = NT48>
+ <TYPE? NT48 <TYPE-CODE FALSE> + PHRASE134>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH ATM46>
+ <PUSH N47>
+ <DEAD N47>
+ <GEN-LVAL 'TRUTH = STACK>
+ <PUSH 'T>
+ <CALL '\1aADD-TYPE-LIST 4 = TEMP87>
+ <GEN-SET 'TRUTH TEMP87>
+ <DEAD TEMP87>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH ATM46>
+ <PUSH NT48>
+ <DEAD NT48>
+ <GEN-LVAL 'UNTRUTH = STACK>
+ <PUSH 'T>
+ <CALL '\1aADD-TYPE-LIST 4 = N47>
+ <GEN-SET 'UNTRUTH N47>
+ <DEAD N47>
+ <JUMP + PHRASE134>
+PHRASE83
+ <FRAME '\1aANA>
+ <PUSH N47>
+ <DEAD N47>
+ <PUSH L-OF-A12>
+ <CALL '\1aANA 2>
+PHRASE134
+ <GEN-LVAL 'VERBOSE = N47>
+ <TYPE? N47 <TYPE-CODE FALSE> + PHRASE137>
+ <DEAD N47>
+ <TYPE? ATM46 <TYPE-CODE SYMTAB> - BOOL142>
+ <NTHUV ATM46 4 = N47 (TYPE FIX)>
+ <VEQUAL? N47 -1 - BOOL142 (TYPE FIX)>
+ <DEAD N47>
+ <NTHUV ATM46 2 = ATM46 (TYPE ATOM)>
+ <JUMP + BOOL141>
+BOOL142
+ <TYPE? ATM46 <TYPE-CODE ATOM> - PHRASE137>
+BOOL141
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <CONS ATM46 () = N47>
+ <CONS "External variable being SET: " N47 = STACK>
+ <DEAD N47>
+ <CALL '\1aADDVMESS 2>
+PHRASE137
+ <CONS L-OF-A12 () = N47>
+ <DEAD L-OF-A12>
+ <CONS ATM46 N47 = N47>
+ <DEAD ATM46>
+ <CONS N47 () = N47 (TYPE LIST)>
+ <EMPL? TEMP30 - TAG146>
+ <SET TEMP30 N47 (TYPE LIST)>
+ <JUMP + TAG147>
+TAG146
+ <PUTREST LN7 N47>
+ <DEAD LN7>
+TAG147
+ <SET LN7 N47 (TYPE LIST)>
+ <DEAD N47>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <JUMP + MAP34>
+MAPAP37
+ <PUTUV NOD4 4 TEMP30>
+ <PUTUV NOD4 1 103 (TYPE FIX)>
+ <DEAD NOD4>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aNTH>
+ <SET TEMP43 TEMP30>
+ <DEAD TEMP30>
+ <LOOP (TEMP43 VALUE)>
+TAG150
+ <RESTL TEMP43 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 + TAG151>
+ <SET TEMP43 TEMP18>
+ <DEAD TEMP18>
+ <JUMP + TAG150>
+TAG151
+ <NTHL TEMP43 1 = STACK>
+ <DEAD TEMP43>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = STACK>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP18>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aMULTI-SET-ANA>
+#WORD *12130671254*
+<GFCN \1aMULTI-SET-SEG ("VALUE" LIST NODE LIST <LIST [REST NODE]>) NOD4 AL5 NL6>
+ <TEMP (MIN-LN7:FIX 0) (MAX-LN8:FIX 0) LN9:FIX (COMPOSIT-DECL10 'NO-RETURN) (COMPOSIT-TYPE11 'NO-RETURN) L-OF-SY12 TEMP20 TEMP19:LIST ATM24 TY26 SY25>
+ <INTGO>
+ <LENL AL5 = LN9 (TYPE FIX)>
+ <SET L-OF-SY12 () (TYPE LIST)>
+ <SET TEMP20 () (TYPE LIST)>
+ <SET TEMP19 AL5 (TYPE LIST)>
+ <DEAD AL5>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP17>
+ <NTHL TEMP19 1 = ATM24>
+ <SET TY26 'ANY (TYPE ATOM)>
+ <TYPE? ATM24 <TYPE-CODE ATOM> - PHRASE28>
+ <FRAME '\1aSRCH-SYM>
+ <PUSH ATM24>
+ <CALL '\1aSRCH-SYM 1 = SY25>
+ <VEQUAL? SY25 0 + PHRASE37>
+ <SET ATM24 SY25>
+ <DEAD SY25>
+ <JUMP + PHRASE37>
+PHRASE28
+ <TYPE? ATM24 <TYPE-CODE ADECL> - PHRASE32>
+ <FRAME '\1aSRCH-SYM>
+ <NTHUV ATM24 1 = STACK (TYPE ATOM)>
+ <CALL '\1aSRCH-SYM 1 = SY25>
+ <VEQUAL? SY25 0 + PHRASE34>
+ <NTHUV ATM24 2 = TY26>
+ <DEAD ATM24>
+ <SET ATM24 SY25>
+ <DEAD SY25>
+ <JUMP + PHRASE37>
+PHRASE34
+ <NTHUV ATM24 2 = TY26>
+ <NTHUV ATM24 1 = ATM24>
+ <JUMP + PHRASE37>
+PHRASE32
+ <TYPE? ATM24 <TYPE-CODE LIST> - PHRASE37>
+ <NTHL ATM24 1 = TY26>
+ <RESTL ATM24 1 = SY25 (TYPE LIST)>
+ <DEAD ATM24>
+ <NTHL SY25 1 = ATM24>
+ <DEAD SY25>
+PHRASE37
+ <TYPE? ATM24 <TYPE-CODE SYMTAB> - PHRASE40>
+ <FRAME '\1aTYPE-AND>
+ <NTHUV ATM24 7 = STACK>
+ <PUSH TY26>
+ <DEAD TY26>
+ <CALL '\1aTYPE-AND 2 = TY26>
+ <TYPE? TY26 <TYPE-CODE FALSE> - PHRASE42>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "ADECL and DECL mismatch: ">
+ <NTHUV ATM24 2 = STACK (TYPE ATOM)>
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE42
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH COMPOSIT-DECL10>
+ <DEAD COMPOSIT-DECL10>
+ <PUSH TY26>
+ <CALL '\1aTYPE-MERGE 2 = COMPOSIT-DECL10>
+ <PUTUV ATM24 6 %<>>
+ <NTHUV ATM24 13 = SY25 (TYPE FIX)>
+ <ADD SY25 1 = SY25 (TYPE FIX)>
+ <PUTUV ATM24 13 SY25 (TYPE FIX)>
+ <DEAD SY25>
+ <PUTUV ATM24 15 'T>
+PHRASE40
+ <CONS TY26 () = SY25>
+ <DEAD TY26>
+ <CONS ATM24 SY25 = SY25>
+ <DEAD ATM24>
+ <CONS SY25 () = SY25 (TYPE LIST)>
+ <EMPL? L-OF-SY12 - TAG46>
+ <SET L-OF-SY12 SY25 (TYPE LIST)>
+ <JUMP + TAG47>
+TAG46
+ <PUTREST TEMP20 SY25>
+ <DEAD TEMP20>
+TAG47
+ <SET TEMP20 SY25 (TYPE LIST)>
+ <DEAD SY25>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP14>
+MAPAP17
+ <SET TEMP19 NL6 (TYPE LIST)>
+ <DEAD NL6>
+ <LOOP>
+MAP49
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP52>
+ <NTHL TEMP19 1 = ATM24>
+ <NTHUV ATM24 1 = TEMP20 (TYPE FIX)>
+ <VEQUAL? TEMP20 68 + BOOL63 (TYPE FIX)>
+ <VEQUAL? TEMP20 3 - PHRASE62 (TYPE FIX)>
+ <DEAD TEMP20>
+BOOL63
+ <FRAME '\1aEANA>
+ <NTHUV ATM24 5 = TEMP20 (TYPE LIST)>
+ <DEAD ATM24>
+ <NTHL TEMP20 1 = ATM24 (TYPE NODE)>
+ <DEAD TEMP20>
+ <PUSH ATM24>
+ <DEAD ATM24>
+ <PUSH <OR MULTI STRUCTURED>>
+ <PUSH 'MULTI-SET>
+ <CALL '\1aEANA 3 = ATM24>
+ <EQUAL? COMPOSIT-DECL10 'ANY + PHRASE67>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH ATM24>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <PUSH COMPOSIT-DECL10>
+ <CALL '\1aTYPE-OK? 2 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE73>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Decl violation: ">
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <JUMP + PHRASE73>
+PHRASE67
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH ATM24>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = TEMP20>
+PHRASE73
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <PUSH COMPOSIT-TYPE11>
+ <DEAD COMPOSIT-TYPE11>
+ <CALL '\1aTYPE-MERGE 2 = COMPOSIT-TYPE11>
+ <SET TEMP20 MAX-LN8>
+ <DEAD MAX-LN8>
+ <FRAME '\1aMAXL>
+ <PUSH ATM24>
+ <CALL '\1aMAXL 1 = TY26>
+ <ADD TEMP20 TY26 = TEMP20 (TYPE FIX)>
+ <DEAD TY26>
+ <LESS? TEMP20 65535 - TAG79>
+ <SET TEMP20 65535 (TYPE FIX)>
+TAG79
+ <SET MAX-LN8 TEMP20>
+ <DEAD TEMP20>
+ <SET TY26 MIN-LN7>
+ <DEAD MIN-LN7>
+ <FRAME '\1aMINL>
+ <PUSH ATM24>
+ <DEAD ATM24>
+ <CALL '\1aMINL 1 = TEMP20>
+ <ADD TY26 TEMP20 = MIN-LN7 (TYPE FIX)>
+ <DEAD TY26 TEMP20>
+ <JUMP + PHRASE81>
+PHRASE62
+ <FRAME '\1aTYPE-MERGE>
+ <FRAME '\1aEANA>
+ <PUSH ATM24>
+ <DEAD ATM24>
+ <PUSH COMPOSIT-DECL10>
+ <PUSH 'MULTI-SET>
+ <CALL '\1aEANA 3 = STACK>
+ <PUSH COMPOSIT-TYPE11>
+ <DEAD COMPOSIT-TYPE11>
+ <CALL '\1aTYPE-MERGE 2 = COMPOSIT-TYPE11>
+ <ADD MAX-LN8 1 = TEMP20 (TYPE FIX)>
+ <DEAD MAX-LN8>
+ <LESS? TEMP20 65535 - TAG84>
+ <SET TEMP20 65535 (TYPE FIX)>
+TAG84
+ <SET MAX-LN8 TEMP20>
+ <DEAD TEMP20>
+ <ADD MIN-LN7 1 = MIN-LN7 (TYPE FIX)>
+PHRASE81
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP49>
+MAPAP52
+ <SET TEMP19 L-OF-SY12 (TYPE LIST)>
+ <LOOP>
+MAP86
+ <INTGO>
+ <EMPL? TEMP19 + MAPAP89>
+ <NTHL TEMP19 1 = COMPOSIT-DECL10>
+ <NTH1 COMPOSIT-DECL10 = COMPOSIT-DECL10>
+ <TYPE? COMPOSIT-DECL10 <TYPE-CODE SYMTAB> - PHRASE94>
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <PUSH COMPOSIT-DECL10>
+ <FRAME '\1aTYPE-AND>
+ <PUSH COMPOSIT-TYPE11>
+ <NTHUV COMPOSIT-DECL10 7 = STACK>
+ <DEAD COMPOSIT-DECL10>
+ <CALL '\1aTYPE-AND 2 = STACK>
+ <CALL '\1aSET-CURRENT-TYPE 2>
+PHRASE94
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + MAP86>
+MAPAP89
+ <GRTR? MIN-LN7 LN9 - PHRASE98 (TYPE FIX)>
+ <DEAD MIN-LN7>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many values: ">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <RETURN L-OF-SY12>
+ <DEAD L-OF-SY12>
+PHRASE98
+ <LESS? MAX-LN8 LN9 - PHRASE100 (TYPE FIX)>
+ <DEAD MAX-LN8 LN9>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too few values: ">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE100
+ <RETURN L-OF-SY12>
+ <DEAD L-OF-SY12>
+ <END \1aMULTI-SET-SEG>
+<COND (<GASSIGNED? SET-ANA> <PUTPROP ,SET ANALYSIS ,SET-ANA> <PUTPROP ,UNASSIGN ANALYSIS ,SET-ANA>)>
+
+#WORD *70077115*
+<GFCN \1aMUNG-L-D-STATE ("VALUE" ATOM <OR VECTOR SYMTAB>) V4>
+ <TEMP TEMP5:ATOM>
+ <INTGO>
+ <LOOP>
+AGAIN8
+ <INTGO>
+ <TYPE? V4 <TYPE-CODE VECTOR> - PHRASE10>
+ <RETURN 'T>
+PHRASE10
+ <PUTUV V4 16 () (TYPE LIST)>
+ <NTHUV V4 1 = V4>
+ <JUMP + AGAIN8>
+ <END \1aMUNG-L-D-STATE>
+#WORD *17010373327*
+<GFCN \1aMRESTORE-L-D-STATE ("VALUE" ATOM ANY ANY ANY) L14 L25 V6>
+ <TEMP TEMP9:ATOM>
+ <INTGO>
+ <FRAME '\1aRESTORE-L-D-STATE>
+ <PUSH L14>
+ <DEAD L14>
+ <PUSH V6>
+ <CALL '\1aRESTORE-L-D-STATE 2>
+ <FRAME '\1aRESTORE-L-D-STATE>
+ <PUSH L25>
+ <DEAD L25>
+ <PUSH V6>
+ <DEAD V6>
+ <PUSH 'T>
+ <CALL '\1aRESTORE-L-D-STATE 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMRESTORE-L-D-STATE>
+#WORD *16170023043*
+<GFCN \1aFREST-L-D-STATE ("VALUE" <OR FALSE SYMTAB> LIST) L4>
+ <TEMP TEMP14 TEMP11:LIST LL16:LIST>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <SET TEMP11 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPL? TEMP11 + MAPAP9>
+ <NTHL TEMP11 1 = LL16>
+ <RESTL LL16 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = TEMP14 (TYPE NODE)>
+ <NTHUV TEMP14 7 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG20>
+ <DEAD TEMP14>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <JUMP + PHRASE18>
+TAG20
+ <NTHL LL16 1 = TEMP14 (TYPE SYMTAB)>
+ <RESTL LL16 1 = LL16 (TYPE LIST)>
+ <NTHL LL16 1 = LL16 (TYPE LIST)>
+ <PUTUV TEMP14 16 LL16 (TYPE LIST)>
+ <DEAD LL16>
+PHRASE18
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aFREST-L-D-STATE>
+#WORD *23574207050*
+<GFCN \1aRESTORE-L-D-STATE ("VALUE" ATOM <LIST [REST <LIST SYMTAB LIST>]> <OR SYMTAB VECTOR> "OPTIONAL" ANY) L6 V7 FLG8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP DL13 S23:SYMTAB TEMP45 TEMP43 TEMP47 N48 TEMP51>
+ <INTGO>
+ <TYPE? FLG8 <TYPE-CODE FALSE> - EXIT11>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <TYPE? V7 <TYPE-CODE VECTOR> + EXIT11>
+ <NTHUV V7 16 = DL13 (TYPE LIST)>
+ <EMPL? DL13 + PHRASE18 (TYPE LIST)>
+ <NTHL DL13 1 = DL13 (TYPE NODE)>
+ <NTHUV DL13 7 = DL13 (TYPE LIST)>
+ <RESTL DL13 1 = DL13 (TYPE LIST)>
+ <NTHL DL13 1 = DL13>
+ <TYPE? DL13 <TYPE-CODE FALSE> - PHRASE18>
+ <DEAD DL13>
+ <PUTUV V7 16 () (TYPE LIST)>
+PHRASE18
+ <NTHUV V7 1 = V7>
+ <JUMP + AGAIN14>
+EXIT11
+ <LOOP>
+AGAIN25
+ <INTGO>
+ <EMPL? L6 - PHRASE27 (TYPE LIST)>
+ <RETURN 'T>
+PHRASE27
+ <NTHL L6 1 = DL13 (TYPE LIST)>
+ <NTHL DL13 1 = S23 (TYPE SYMTAB)>
+ <DEAD DL13>
+ <TYPE? FLG8 <TYPE-CODE FALSE> + EXIT30>
+ <LOOP>
+AGAIN31
+ <INTGO>
+ <EQUAL? S23 V7 + EXIT30>
+ <TYPE? V7 <TYPE-CODE VECTOR> + EXIT30>
+ <SET DL13 V7>
+ <SET TEMP45 () (TYPE LIST)>
+ <SET TEMP43 () (TYPE LIST)>
+ <NTHUV V7 16 = TEMP47 (TYPE LIST)>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPL? TEMP47 + MAPAP40>
+ <NTHL TEMP47 1 = N48>
+ <NTHUV N48 1 = TEMP51 (TYPE FIX)>
+ <VEQUAL? TEMP51 11 + MAP38 (TYPE FIX)>
+ <DEAD TEMP51>
+ <SET TEMP51 N48>
+ <DEAD N48>
+ <CONS TEMP51 () = TEMP51 (TYPE LIST)>
+ <EMPL? TEMP45 - TAG54>
+ <SET TEMP45 TEMP51 (TYPE LIST)>
+ <JUMP + TAG55>
+TAG54
+ <PUTREST TEMP43 TEMP51>
+ <DEAD TEMP43>
+TAG55
+ <SET TEMP43 TEMP51 (TYPE LIST)>
+ <DEAD TEMP51>
+MAP38
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <JUMP + MAP37>
+MAPAP40
+ <PUTUV DL13 16 TEMP45 (TYPE LIST)>
+ <DEAD DL13 TEMP45>
+ <NTHUV V7 1 = V7>
+ <JUMP + AGAIN31>
+EXIT30
+ <NTHL L6 1 = TEMP47 (TYPE LIST)>
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <NTHL TEMP47 1 = DL13 (TYPE LIST)>
+ <DEAD TEMP47>
+ <NTHL DL13 1 = TEMP47 (TYPE NODE)>
+ <NTHUV TEMP47 7 = TEMP47 (TYPE LIST)>
+ <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
+ <NTHL TEMP47 1 = TEMP47>
+ <TYPE? TEMP47 <TYPE-CODE FALSE> - PHRASE57>
+ <DEAD TEMP47>
+ <TYPE? FLG8 <TYPE-CODE FALSE> + PHRASE59>
+ <FRAME '\1aLMERGE>
+ <NTHUV S23 16 = STACK (TYPE LIST)>
+ <PUSH DL13>
+ <DEAD DL13>
+ <CALL '\1aLMERGE 2 = TEMP47>
+ <JUMP + PHRASE61>
+PHRASE59
+ <SET TEMP47 DL13>
+ <DEAD DL13>
+PHRASE61
+ <PUTUV S23 16 TEMP47 (TYPE LIST)>
+ <DEAD S23 TEMP47>
+PHRASE57
+ <RESTL L6 1 = L6 (TYPE LIST)>
+ <JUMP + AGAIN25>
+ <END \1aRESTORE-L-D-STATE>
+#WORD *15630143052*
+<GFCN \1aSAVE-L-D-STATE ("VALUE" LIST <OR VECTOR SYMTAB>) V4>
+ <TEMP L8:LIST LP9:LIST DL10:LIST TEMP17>
+ <INTGO>
+ <CONS () () = L8>
+ <SET LP9 L8>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <TYPE? V4 <TYPE-CODE VECTOR> - PHRASE13>
+ <RESTL L8 1 = L8 (TYPE LIST)>
+ <RETURN L8>
+ <DEAD L8>
+PHRASE13
+ <NTHUV V4 16 = DL10 (TYPE LIST)>
+ <EMPL? DL10 + PHRASE15 (TYPE LIST)>
+ <NTHL DL10 1 = TEMP17 (TYPE NODE)>
+ <NTHUV TEMP17 7 = TEMP17 (TYPE LIST)>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE15>
+ <DEAD TEMP17>
+ <CONS DL10 () = TEMP17>
+ <DEAD DL10>
+ <CONS V4 TEMP17 = TEMP17>
+ <CONS TEMP17 () = TEMP17>
+ <PUTREST LP9 TEMP17>
+ <DEAD LP9>
+ <SET LP9 TEMP17>
+ <DEAD TEMP17>
+PHRASE15
+ <NTHUV V4 1 = V4>
+ <JUMP + AGAIN11>
+ <END \1aSAVE-L-D-STATE>
+#WORD *26753335367*
+<GFCN \1aMSAVE-L-D-STATE ("VALUE" LIST LIST <OR VECTOR SYMTAB>) L4 V5>
+ <TEMP L9:LIST LR10:LIST LP11:LIST TEMP19 DL12:LIST>
+ <INTGO>
+ <CONS () L4 = L9>
+ <DEAD L4>
+ <SET LR10 L9>
+ <RESTL L9 1 = LP11 (TYPE LIST)>
+ <LOOP>
+AGAIN15
+ <INTGO>
+ <EMPL? LP11 - PHRASE17 (TYPE LIST)>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <PUSH V5>
+ <DEAD V5>
+ <CALL '\1aSAVE-L-D-STATE 1 = TEMP19>
+ <PUTREST L9 TEMP19>
+ <DEAD L9 TEMP19>
+ <RESTL LR10 1 = L9 (TYPE LIST)>
+ <DEAD LR10>
+ <RETURN L9>
+ <DEAD L9>
+PHRASE17
+ <TYPE? V5 <TYPE-CODE VECTOR> - PHRASE20>
+ <RESTL LR10 1 = L9 (TYPE LIST)>
+ <DEAD LR10>
+ <RETURN L9>
+ <DEAD L9>
+PHRASE20
+ <NTHUV V5 16 = DL12 (TYPE LIST)>
+ <EMPL? DL12 + PHRASE21 (TYPE LIST)>
+ <NTHL DL12 1 = TEMP19 (TYPE NODE)>
+ <NTHUV TEMP19 7 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE21>
+ <DEAD TEMP19>
+ <NTHL LP11 1 = TEMP19>
+ <NTH1 TEMP19 = TEMP19>
+ <VEQUAL? TEMP19 V5 - PHRASE24>
+ <DEAD TEMP19>
+ <FRAME '\1aLMERGE>
+ <FRAME '\1aNTH>
+ <NTHL LP11 1 = STACK>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = STACK>
+ <PUSH DL12>
+ <DEAD DL12>
+ <CALL '\1aLMERGE 2 = DL12>
+ <EMPL? DL12 - PHRASE28 (TYPE LIST)>
+ <RESTL LP11 1 = LP11 (TYPE LIST)>
+ <PUTREST L9 LP11>
+ <JUMP + PHRASE33>
+PHRASE28
+ <FRAME '\1aPUT>
+ <NTHL LP11 1 = STACK>
+ <PUSH 2>
+ <PUSH DL12>
+ <DEAD DL12>
+ <CALL '\1aPUT 3>
+ <SET L9 LP11>
+ <DEAD LP11>
+ <RESTL L9 1 = LP11 (TYPE LIST)>
+ <JUMP + PHRASE33>
+PHRASE24
+ <SET TEMP19 L9>
+ <DEAD L9>
+ <CONS DL12 () = L9>
+ <DEAD DL12>
+ <CONS V5 L9 = L9>
+ <CONS L9 () = L9>
+ <PUTREST TEMP19 L9>
+ <DEAD TEMP19>
+ <PUTREST L9 LP11>
+ <JUMP + PHRASE33>
+PHRASE21
+ <NTHL LP11 1 = TEMP19>
+ <NTH1 TEMP19 = TEMP19>
+ <EQUAL? TEMP19 V5 - PHRASE33>
+ <DEAD TEMP19>
+ <SET L9 LP11>
+ <DEAD LP11>
+ <RESTL L9 1 = LP11 (TYPE LIST)>
+PHRASE33
+ <NTHUV V5 1 = V5>
+ <JUMP + AGAIN15>
+ <END \1aMSAVE-L-D-STATE>
+#WORD *36504120426*
+<GFCN \1aLMERGE ("VALUE" <LIST [REST NODE]> <LIST [REST NODE]> <LIST [REST NODE]>) L14 L25>
+ <TEMP TEMP15 TEMP13 TEMP12 N17:NODE TEMP21 TEMP26>
+ <INTGO>
+ <SET TEMP15 () (TYPE LIST)>
+ <SET TEMP13 () (TYPE LIST)>
+ <SET TEMP12 L14 (TYPE LIST)>
+ <DEAD L14>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <NTHL TEMP12 1 = N17>
+ <NTHUV N17 7 = TEMP21 (TYPE LIST)>
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <NTHL TEMP21 1 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> - MAP8>
+ <DEAD TEMP21>
+ <NTHUV N17 1 = TEMP21 (TYPE FIX)>
+ <VEQUAL? TEMP21 11 - PHRASE19 (TYPE FIX)>
+ <DEAD TEMP21>
+ <SET TEMP21 L25>
+ <EMPL? TEMP21 + MAP8>
+ <LOOP (N17 VALUE) (TEMP21 VALUE)>
+TAG24
+ <NTHL TEMP21 1 = TEMP26>
+ <VEQUAL? TEMP26 N17 + PHRASE19>
+ <DEAD TEMP26>
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <EMPL? TEMP21 - TAG24>
+ <JUMP + MAP8>
+PHRASE19
+ <CONS N17 () = TEMP21 (TYPE LIST)>
+ <DEAD N17>
+ <EMPL? TEMP15 - TAG28>
+ <SET TEMP15 TEMP21 (TYPE LIST)>
+ <JUMP + TAG29>
+TAG28
+ <PUTREST TEMP13 TEMP21>
+ <DEAD TEMP13>
+TAG29
+ <SET TEMP13 TEMP21 (TYPE LIST)>
+ <DEAD TEMP21>
+MAP8
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <SET L14 TEMP15>
+ <DEAD TEMP15>
+ <SET TEMP15 () (TYPE LIST)>
+ <SET TEMP21 () (TYPE LIST)>
+ <SET TEMP12 L25 (TYPE LIST)>
+ <DEAD L25>
+ <LOOP>
+MAP31
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP34>
+ <NTHL TEMP12 1 = N17>
+ <NTHUV N17 7 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - MAP32>
+ <DEAD TEMP13>
+ <NTHUV N17 1 = TEMP13 (TYPE FIX)>
+ <VEQUAL? TEMP13 11 + MAP32 (TYPE FIX)>
+ <DEAD TEMP13>
+ <SET TEMP13 L14>
+ <EMPL? TEMP13 + PHRASE40>
+ <LOOP (N17 VALUE) (TEMP13 VALUE)>
+TAG44
+ <NTHL TEMP13 1 = TEMP26>
+ <VEQUAL? TEMP26 N17 + MAP32>
+ <DEAD TEMP26>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <EMPL? TEMP13 - TAG44>
+PHRASE40
+ <CONS N17 () = TEMP13 (TYPE LIST)>
+ <DEAD N17>
+ <EMPL? TEMP15 - TAG48>
+ <SET TEMP15 TEMP13 (TYPE LIST)>
+ <JUMP + TAG49>
+TAG48
+ <PUTREST TEMP21 TEMP13>
+ <DEAD TEMP21>
+TAG49
+ <SET TEMP21 TEMP13 (TYPE LIST)>
+ <DEAD TEMP13>
+MAP32
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP31>
+MAPAP34
+ <SET L25 TEMP15>
+ <DEAD TEMP15>
+ <EMPL? L14 - PHRASE51 (TYPE LIST)>
+ <RETURN L25>
+ <DEAD L25>
+PHRASE51
+ <SET TEMP13 L14>
+ <LOOP (TEMP13 VALUE)>
+TAG53
+ <RESTL TEMP13 1 = TEMP26 (TYPE LIST)>
+ <EMPL? TEMP26 + TAG54>
+ <SET TEMP13 TEMP26>
+ <DEAD TEMP26>
+ <JUMP + TAG53>
+TAG54
+ <PUTREST TEMP13 L25>
+ <DEAD TEMP13 L25>
+ <RETURN L14>
+ <DEAD L14>
+ <END \1aLMERGE>
+#WORD *6716114513*
+<GFCN \1aMAKE-DEAD ("VALUE" SYMTAB NODE SYMTAB) N4 SYM5>
+ <TEMP TEMP6:LIST>
+ <INTGO>
+ <CONS N4 () = TEMP6>
+ <DEAD N4>
+ <PUTUV SYM5 16 TEMP6 (TYPE LIST)>
+ <DEAD TEMP6>
+ <RETURN SYM5>
+ <DEAD SYM5>
+ <END \1aMAKE-DEAD>
+#WORD *26173145242*
+<GFCN \1aKILL-REM ("VALUE" LIST <LIST [REST SYMTAB]> <OR SYMTAB VECTOR>) L4 V5>
+ <TEMP L19:LIST TEMP16 TEMP22>
+ <INTGO>
+ <SET L19 () (TYPE LIST)>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <TYPE? V5 <TYPE-CODE VECTOR> - PHRASE12>
+ <RETURN L19>
+ <DEAD L19>
+PHRASE12
+ <NTHUV V5 3 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE14>
+ <DEAD TEMP16>
+ <NTHUV V5 4 = TEMP16 (TYPE FIX)>
+ <VEQUAL? TEMP16 -1 + PHRASE14 (TYPE FIX)>
+ <DEAD TEMP16>
+ <SET TEMP16 L4>
+ <EMPL? TEMP16 + PHRASE14>
+ <LOOP (V5 VALUE) (TEMP16 VALUE)>
+TAG20
+ <NTHL TEMP16 1 = TEMP22>
+ <VEQUAL? TEMP22 V5 + TAG19>
+ <DEAD TEMP22>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 - TAG20>
+ <JUMP + PHRASE14>
+TAG19
+ <CONS V5 L19 = L19>
+PHRASE14
+ <NTHUV V5 1 = V5>
+ <JUMP + AGAIN10>
+ <END \1aKILL-REM>
+#WORD *4013752212*
+<GFCN \1aSAVE-SURVIVORS ("VALUE" <OR FALSE <LIST ANY ATOM> SYMTAB> <LIST [REST <LIST SYMTAB LIST>]> <LIST [REST SYMTAB]> "OPTIONAL" ANY) LS6 LI7 FLG8>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP18 TEMP15:LIST LL20:LIST TEMP26 TEMP27:LIST>
+ <INTGO>
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <SET TEMP15 LS6 (TYPE LIST)>
+ <DEAD LS6>
+ <LOOP>
+MAP10
+ <INTGO>
+ <EMPL? TEMP15 + MAPAP13>
+ <NTHL TEMP15 1 = LL20>
+ <NTHL LL20 1 = TEMP26 (TYPE SYMTAB)>
+ <SET TEMP27 LI7>
+ <EMPL? TEMP27 + PHRASE22>
+ <LOOP (TEMP26 VALUE) (TEMP27 VALUE)>
+TAG24
+ <NTHL TEMP27 1 = TEMP18>
+ <VEQUAL? TEMP18 TEMP26 + TAG23>
+ <DEAD TEMP18>
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <EMPL? TEMP27 - TAG24>
+ <JUMP + PHRASE22>
+TAG23
+ <SET TEMP18 %<> (TYPE FALSE)>
+ <RESTL LL20 1 = TEMP26 (TYPE LIST)>
+ <DEAD LL20>
+ <NTHL TEMP26 1 = TEMP26>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPTY? TEMP26 + PHRASE41>
+ <NTH1 TEMP26 = TEMP18>
+ <NTHUV TEMP18 7 = TEMP18 (TYPE LIST)>
+ <RESTL TEMP18 1 = LL20 (TYPE LIST)>
+ <PUTL LL20 1 'T>
+ <DEAD LL20>
+ <REST1 TEMP26 = TEMP26>
+ <JUMP + MAP30>
+PHRASE22
+ <SET TEMP18 FLG8>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE41>
+ <NTHL LL20 1 = TEMP26 (TYPE SYMTAB)>
+ <RESTL LL20 1 = LL20 (TYPE LIST)>
+ <NTHL LL20 1 = LL20 (TYPE LIST)>
+ <PUTUV TEMP26 16 LL20 (TYPE LIST)>
+ <DEAD LL20>
+ <SET TEMP18 TEMP26>
+ <DEAD TEMP26>
+PHRASE41
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + MAP10>
+MAPAP13
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aSAVE-SURVIVORS>
+#WORD *11723137516*
+<GFCN \1aREVIVE ("VALUE" <OR FALSE NODE> NODE SYMTAB) NOD4 SYM5>
+ <TEMP L6 TEMP11 TEMP27>
+ <INTGO>
+ <NTHUV SYM5 16 = L6 (TYPE LIST)>
+ <NTHUV SYM5 3 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG12>
+ <DEAD TEMP11>
+ <RETURN %<>>
+TAG12
+ <NTHUV SYM5 4 = TEMP11 (TYPE FIX)>
+ <VEQUAL? TEMP11 -1 - TAG13 (TYPE FIX)>
+ <DEAD TEMP11>
+ <RETURN %<>>
+TAG13
+ <EMPL? L6 - PHRASE17 (TYPE LIST)>
+ <PUSH SYM5>
+ <SET L6 1 (TYPE FIX)>
+ <GEN-LVAL 'LIFE = TEMP11>
+ <TYPE TEMP11 = TEMP27>
+ <AND TEMP27 7 = TEMP27>
+ <VEQUAL? TEMP27 1 + TAG23>
+ <DEAD TEMP27>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (L6 VALUE)>
+TAG29
+ <INTGO>
+ <EMPTY? TEMP11 + TAG28>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD L6 1 = L6 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG28
+ <LIST L6 = TEMP11 (TYPE LIST)>
+ <DEAD L6>
+ <JUMP + TAG25>
+TAG23
+ <LOOP>
+TAG26
+ <VEQUAL? L6 0 + TAG25>
+ <POP = TEMP27>
+ <CONS TEMP27 TEMP11 = TEMP11 (TYPE LIST)>
+ <DEAD TEMP27>
+ <SUB L6 1 = L6 (TYPE FIX)>
+ <JUMP + TAG26>
+TAG25
+ <GEN-SET 'LIFE TEMP11>
+ <DEAD TEMP11>
+ <JUMP + MAPAP37>
+PHRASE17
+ <SET TEMP11 L6 (TYPE LIST)>
+ <DEAD L6>
+ <LOOP>
+MAP34
+ <INTGO>
+ <EMPL? TEMP11 + MAPAP37>
+ <NTHL TEMP11 1 = L6>
+ <NTHUV L6 7 = TEMP27 (TYPE LIST)>
+ <DEAD L6>
+ <RESTL TEMP27 1 = L6 (TYPE LIST)>
+ <DEAD TEMP27>
+ <PUTL L6 1 'T>
+ <DEAD L6>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <JUMP + MAP34>
+MAPAP37
+ <CONS NOD4 () = L6>
+ <PUTUV SYM5 16 L6 (TYPE LIST)>
+ <DEAD SYM5 L6>
+ <CONS %<> () = L6>
+ <CONS %<> L6 = L6>
+ <PUTUV NOD4 7 L6 (TYPE LIST)>
+ <DEAD L6>
+ <RETURN NOD4>
+ <DEAD NOD4>
+ <END \1aREVIVE>
+" Ananlyze a FORM that could really be an NTH."
+
+#WORD *21131610712*
+<GFCN \1aFORM-F-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6:LIST OBJ7 TYP8 TEMP13 TEMP14>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <NTHUV NOD4 4 = OBJ7>
+ <FRAME '\1aISTYPE?>
+ <FRAME '\1aANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'APPLICABLE>
+ <CALL '\1aANA 2 = TYP8>
+ <PUSH TYP8>
+ <CALL '\1aISTYPE? 1 = TEMP13>
+ <VEQUAL? TEMP13 'FIX - PHRASE10>
+ <DEAD TEMP13>
+ <RESTL K6 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP13 (TYPE LIST)>
+ <DEAD TEMP14>
+ <NTHL K6 1 = TEMP14 (TYPE NODE)>
+ <CONS TEMP14 TEMP13 = TEMP13>
+ <DEAD TEMP14>
+ <RESTL K6 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = TEMP14 (TYPE NODE)>
+ <CONS TEMP14 TEMP13 = TEMP13>
+ <DEAD TEMP14>
+ <PUTUV NOD4 5 TEMP13 (TYPE LIST)>
+ <DEAD TEMP13>
+ <EMPL? K6 + PHRASE16>
+ <RESTL K6 1 = TEMP13 (TYPE LIST)>
+ <EMPL? TEMP13 + PHRASE16>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <EMPL? TEMP13 - PHRASE16>
+ <DEAD TEMP13>
+ <FRAME '\1aNTH-REST-ANA>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <PUSH 27>
+ <PUSH TYP8>
+ <DEAD TYP8>
+ <CALL '\1aNTH-REST-ANA 4 = RTYP5>
+ <JUMP + PHRASE18>
+PHRASE16
+ <FRAME '\1aPUT-ANA>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <PUSH 29>
+ <CALL '\1aPUT-ANA 3 = RTYP5>
+PHRASE18
+ <NTHUV NOD4 1 = TEMP13 (TYPE FIX)>
+ <PUTUV NOD4 9 TEMP13>
+ <DEAD TEMP13>
+ <PUTUV NOD4 5 K6 (TYPE LIST)>
+ <DEAD K6>
+ <PUTUV NOD4 4 OBJ7>
+ <DEAD OBJ7>
+ <PUTUV NOD4 1 74 (TYPE FIX)>
+ <DEAD NOD4>
+ <RETURN RTYP5>
+ <DEAD RTYP5>
+PHRASE10
+ <FRAME '\1aSPECIALIZE>
+ <NTHUV NOD4 4 = STACK>
+ <CALL '\1aSPECIALIZE 1>
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+ <CONS 'ALL () = TEMP14>
+ <PUTUV NOD4 8 TEMP14>
+ <DEAD TEMP14>
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aFORM-F-ANA>
+" Further analyze a FORM."
+
+#WORD *10113446137*
+<GFCN \1aANONFFORM-AN1 ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP TEMP8 TEMP9:FIX>
+ <INTGO>
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+ <CONS 'ALL () = TEMP8>
+ <LENUV N4 = TEMP9 (TYPE FIX)>
+ <LESS? TEMP9 8 + COMPERR (TYPE FIX)>
+ <DEAD TEMP9>
+ <PUTUV N4 8 TEMP8>
+ <DEAD TEMP8>
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aANONFFORM-AN1>
+ <GFCN \1aFORM-AN ("VALUE" ANY NODE ANY) NOD5 RTYP6>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME>
+ <FRAME '\1aGETPROP>
+ <NTHUV NOD5 9 = STACK>
+ <PUSH 'ANALYSIS>
+ <CALL '\1aGETPROP 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL8>
+ <FRAME '\1aGETPROP>
+ <FRAME '\1aTYPE>
+ <NTHUV NOD5 9 = STACK>
+ <CALL '\1aTYPE 1 = STACK>
+ <PUSH 'TANALYSIS>
+ <CALL '\1aGETPROP 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL8>
+ <GVAL 'ANONFFORM-AN1 = TEMP9>
+BOOL8
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <PUSH RTYP6>
+ <DEAD RTYP6>
+ <ACALL TEMP9 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aFORM-AN>\r\r
+"Determine if an ATOM is mainfest."
+
+#WORD *25776244411*
+<GFCN \1aMANIFESTQ ("VALUE" <OR ATOM FALSE> ATOM) ATM4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aMANIFEST?>
+ <PUSH ATM4>
+ <CALL '\1aMANIFEST? 1 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + TAG12>
+ <NTHR ATM4 1 = TEMP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG9)>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + TAG9>
+ <NTHR TEMP6 1 = TEMP6 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP6 <TYPE-CODE UNBOUND> - TAG8>
+ <DEAD TEMP6>
+TAG9
+ <RETURN %<>>
+TAG8
+ <GVAL ATM4 = TEMP6>
+ <DEAD ATM4>
+ <TYPE? TEMP6 <TYPE-CODE MSUBR> - TAG11>
+ <DEAD TEMP6>
+ <RETURN %<>>
+TAG11
+ <SET TEMP6 'T (TYPE ATOM)>
+TAG12
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aMANIFESTQ>
+" Search for a decl associated with a local value."
+
+#WORD *13154210207*
+<GFCN
\1aSRCH-SYM ("VALUE" <OR !<FALSE> <<PRIMTYPE VECTOR> ANY ATOM>> ATOM) ATM4>
+ <TEMP TEMP6 TEMP17:ATOM>
+ <INTGO>
+ <GEN-LVAL 'VARTBL = TEMP6>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <EMPUV? TEMP6 - PHRASE14>
+ <RETURN %<>>
+PHRASE14
+ <NTHUV TEMP6 2 = TEMP17 (TYPE ATOM)>
+ <VEQUAL? TEMP17 ATM4 - PHRASE16>
+ <DEAD TEMP17>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+PHRASE16
+ <NTHUV TEMP6 1 = TEMP6>
+ <JUMP + AGAIN12>
+ <END \1aSRCH-SYM>
+" Here to flush decls of specials for an external function call."
+
+#WORD *16354624505*
+<GFCN \1aSPEC-FLUSH ("VALUE" ATOM)>
+ <TEMP TEMP5:ATOM>
+ <INTGO>
+ <FRAME '\1aFLUSHER>
+ <PUSH %<>>
+ <CALL '\1aFLUSHER 1 = TEMP5>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aSPEC-FLUSH>
+" Here to flush decls when a PUT, PUTREST or external call happens."
+
+#WORD *27615676341*
+<GFCN \1aPUT-FLUSH ("VALUE" ATOM ANY) TYP4>
+ <TEMP TEMP6:ATOM>
+ <INTGO>
+ <FRAME '\1aFLUSHER>
+ <PUSH TYP4>
+ <DEAD TYP4>
+ <CALL '\1aFLUSHER 1 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aPUT-FLUSH>
+#WORD *10672521264*
+<GFCN \1aFLUSHER ("VALUE" ATOM ANY) FLSFLG4>
+ <TEMP TEMP6 TEMP11 CT18 TEMP25>
+ <INTGO>
+ <GEN-LVAL 'VARTBL = TEMP6>
+ <GEN-LVAL 'ANALY-OK = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP11>
+ <LOOP>
+AGAIN19
+ <INTGO>
+ <SET TEMP11 TEMP6>
+ <NTHUV TEMP11 17 = CT18>
+ <TYPE? CT18 <TYPE-CODE FALSE> + PHRASE21>
+ <NTHUV TEMP11 3 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + BOOL24>
+ <DEAD TEMP25>
+ <TYPE? FLSFLG4 <TYPE-CODE FALSE> + BOOL28>
+BOOL24
+ <TYPE? FLSFLG4 <TYPE-CODE FALSE> + PHRASE21>
+ <EQUAL? CT18 'NO-RETURN + PHRASE21>
+ <EQUAL? CT18 'BOOL-FALSE + PHRASE21>
+ <EQUAL? CT18 'BOOLEAN + PHRASE21>
+ <EQUAL? CT18 'BOOL-TRUE + PHRASE21>
+ <DEAD CT18>
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV TEMP6 17 = STACK>
+ <PUSH <STRUCTURED ANY>>
+ <CALL '\1aTYPE-OK? 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD TEMP25>
+ <EQUAL? FLSFLG4 'ALL + BOOL28>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV TEMP6 17 = STACK>
+ <CALL '\1aSTRUCTYP 1 = CT18>
+ <TYPE? CT18 <TYPE-CODE FALSE> + BOOL28>
+ <EQUAL? CT18 FLSFLG4 - PHRASE21>
+ <DEAD CT18>
+BOOL28
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <PUSH TEMP11>
+ <FRAME '\1aFLUSH-FIX-TYPE>
+ <PUSH TEMP11>
+ <NTHUV TEMP11 17 = STACK>
+ <DEAD TEMP11>
+ <PUSH FLSFLG4>
+ <CALL '\1aFLUSH-FIX-TYPE 3 = STACK>
+ <CALL '\1aSET-CURRENT-TYPE 2>
+PHRASE21
+ <NTHUV TEMP6 1 = TEMP6>
+ <EMPUV? TEMP6 - AGAIN19>
+ <RETURN 'T>
+PHRASE10
+ <LOOP>
+AGAIN37
+ <INTGO>
+ <NTHUV TEMP6 1 = TEMP6>
+ <EMPUV? TEMP6 - AGAIN37>
+ <RETURN 'T>
+ <END \1aFLUSHER>
+#WORD *15222311316*
+<GFCN \1aFLUSH-FIX-TYPE ("VALUE" ANY SYMTAB ANY ANY) SYM4 TY5 FLG6>
+ <TEMP TEM7>
+ <INTGO>
+ <TYPE? FLG6 <TYPE-CODE FALSE> + BOOL10>
+ <DEAD FLG6>
+ <FRAME '\1aTOP-TYPE>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TY5>
+ <PUSH 'STRUCTURED>
+ <CALL '\1aTYPE-OK? 2 = STACK>
+ <CALL '\1aTOP-TYPE 1 = TEM7>
+ <TYPE? TEM7 <TYPE-CODE FALSE> + BOOL10>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TY5>
+ <DEAD TY5>
+ <PUSH <NOT STRUCTURED>>
+ <CALL '\1aTYPE-OK? 2 = TY5>
+ <TYPE? TY5 <TYPE-CODE FALSE> + PHRASE15>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TEM7>
+ <DEAD TEM7>
+ <PUSH TY5>
+ <DEAD TY5>
+ <CALL '\1aTYPE-MERGE 2 = TEM7>
+PHRASE15
+ <PUSH TEM7>
+ <DEAD TEM7>
+ <NTHUV SYM4 7 = STACK>
+ <CALL '\1aTYPE-OK? 2 = TEM7>
+ <TYPE? TEM7 <TYPE-CODE FALSE> - BOOL8>
+BOOL10
+ <NTHUV SYM4 7 = TEM7>
+ <DEAD SYM4>
+BOOL8
+ <RETURN TEM7>
+ <DEAD TEM7>
+ <END \1aFLUSH-FIX-TYPE>
+" Punt forms with segments in them."
+
+#WORD *21616245234*
+<GFCN \1aSEGFLUSH ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP L11:LIST TEMP8>
+ <INTGO>
+ <NTHUV NOD4 5 = L11 (TYPE LIST)>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <EMPL? L11 - BOOL13 (TYPE LIST)>
+ <SET TEMP8 %<> (TYPE FALSE)>
+ <JUMP + EXIT9>
+BOOL13
+ <NTHL L11 1 = TEMP8 (TYPE NODE)>
+ <NTHUV TEMP8 1 = TEMP8 (TYPE FIX)>
+ <VEQUAL? TEMP8 3 - BOOL14 (TYPE FIX)>
+ <DEAD TEMP8>
+ <SET TEMP8 'T (TYPE ATOM)>
+ <JUMP + EXIT9>
+BOOL14
+ <RESTL L11 1 = L11 (TYPE LIST)>
+ <JUMP + AGAIN12>
+EXIT9
+ <VEQUAL? TEMP8 0 + PHRASE7>
+ <GEN-LVAL 'VERBOSE = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP8>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <CONS "Not open compiled due to SEGMENT." () = STACK>
+ <CALL '\1aADDVMESS 2>
+PHRASE17
+ <FRAME '\1aSUBR-C-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aSUBR-C-AN 2 = TEMP8>
+PHRASE7
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aSEGFLUSH>
+" Determine if the arg to STACKFORM is a SUBR."
+
+#WORD *37004414543*
+<GFCN \1aAPPLTYP ("VALUE" <OR ATOM FORM> NODE) NOD4>
+ <TEMP NT5 TT7>
+ <INTGO>
+ <NTHUV NOD4 1 = NT5 (TYPE FIX)>
+ <VEQUAL? NT5 66 - PHRASE9 (TYPE FIX)>
+ <DEAD NT5>
+ <NTHUV NOD4 5 = NT5 (TYPE LIST)>
+ <DEAD NOD4>
+ <NTHL NT5 1 = TT7 (TYPE NODE)>
+ <DEAD NT5>
+ <NTHUV TT7 1 = NT5 (TYPE FIX)>
+ <VEQUAL? NT5 2 - PHRASE11 (TYPE FIX)>
+ <DEAD NT5>
+ <NTHUV TT7 4 = TT7 (TYPE ATOM)>
+ <NTHR TT7 1 = NT5 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE11)>
+ <TYPE? NT5 <TYPE-CODE FALSE> + PHRASE11>
+ <NTHR NT5 1 = NT5 (RECORD-TYPE GBIND)>
+ <TYPE? NT5 <TYPE-CODE UNBOUND> + PHRASE11>
+ <DEAD NT5>
+ <GVAL TT7 = NT5>
+ <TYPE? NT5 <TYPE-CODE MSUBR> - PHRASE11>
+ <DEAD NT5>
+ <FRAME '\1aSUBR-TYPE>
+ <GVAL TT7 = STACK>
+ <DEAD TT7>
+ <CALL '\1aSUBR-TYPE 1 = NT5>
+ <RETURN NT5>
+ <DEAD NT5>
+PHRASE11
+ <RETURN 'ANY>
+PHRASE9
+ <RETURN 'ANY>
+ <END \1aAPPLTYP>
+" Return type returned by a SUBR."
+
+#WORD *5143337320*
+<GFCN \1aSUBR-TYPE ("VALUE" <OR ATOM FORM> MSUBR) SUB4>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aGET-TMP>
+ <PUSH SUB4>
+ <DEAD SUB4>
+ <CALL '\1aGET-TMP 1 = TEMP7>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE ATOM> + TAG10>
+ <TYPE? TEMP7 <TYPE-CODE FORM> - PHRASE9>
+TAG10
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE9
+ <RETURN 'ANY>
+ <END \1aSUBR-TYPE>
+" Access the SUBR data base for return type."
+
+#WORD *34223560135*
+<GFCN \1aGET-TMP ("VALUE" <LIST [2 ANY]> ANY) SUB4>
+ <TEMP TEMP10:VECTOR TEMP11 TEMP12>
+ <INTGO>
+ <GVAL 'SUBRS = TEMP10>
+ <TYPE SUB4 = TEMP11>
+ <EMPUV? TEMP10 + TAG6>
+ <LOOP (SUB4 VALUE) (TEMP11 VALUE) (TEMP10 LENGTH VALUE)>
+TAG8
+ <NTHUV TEMP10 1 = TEMP12>
+ <TYPE? TEMP12 TEMP11 - TAG9>
+ <VEQUAL? TEMP12 SUB4 + TAG7>
+ <DEAD TEMP12>
+TAG9
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <EMPUV? TEMP10 - TAG8>
+TAG6
+ <SET TEMP11 %<> (TYPE FALSE)>
+ <JUMP + TAG13>
+TAG7
+ <SET TEMP11 TEMP10>
+ <DEAD TEMP10>
+TAG13
+ <VEQUAL? TEMP11 0 + PHRASE15>
+ <GVAL 'TEMPLATES = TEMP10>
+ <LENUV TEMP11 = TEMP11 (TYPE FIX)>
+ <NTHUV TEMP10 TEMP11 = TEMP11 (TYPE LIST)>
+ <DEAD TEMP10>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE15
+ <RETURN (ANY ANY)>
+ <END \1aGET-TMP>
+" GVAL analyzer."
+
+#WORD *32256746400*
+<GFCN \1aGVAL-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6 LN7:FIX TEMP12>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <LENL K6 = LN7 (TYPE FIX)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE36>
+ <FRAME '\1aARGCHK>
+ <PUSH LN7>
+ <DEAD LN7>
+ <PUSH 1>
+ <PUSH 'GVAL>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <PUTUV NOD4 1 33 (TYPE FIX)>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'ATOM>
+ <PUSH 'GVAL>
+ <CALL '\1aEANA 3>
+ <NTHL K6 1 = K6 (TYPE NODE)>
+ <NTHUV K6 1 = TEMP12 (TYPE FIX)>
+ <VEQUAL? TEMP12 2 - PHRASE18 (TYPE FIX)>
+ <DEAD TEMP12>
+ <NTHUV K6 3 = TEMP12>
+ <EQUAL? TEMP12 'ATOM - PHRASE18>
+ <DEAD TEMP12>
+ <PUTUV NOD4 1 66 (TYPE FIX)>
+ <FRAME '\1aMANIFEST?>
+ <NTHUV K6 4 = K6>
+ <PUSH K6>
+ <CALL '\1aMANIFEST? 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP12>
+ <PUTUV NOD4 1 2 (TYPE FIX)>
+ <GVAL K6 = TEMP12>
+ <PUTUV NOD4 4 TEMP12>
+ <DEAD TEMP12>
+ <PUTUV NOD4 5 () (TYPE LIST)>
+ <DEAD NOD4>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGEN-DECL>
+ <GVAL K6 = STACK>
+ <DEAD K6>
+ <CALL '\1aGEN-DECL 1 = STACK>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE22
+ <NTHR K6 1 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE26)>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE26>
+ <DEAD TEMP12>
+ <NTHR 'GLOC 1 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE29)>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE29>
+ <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP12 <TYPE-CODE UNBOUND> + PHRASE29>
+ <DEAD TEMP12>
+ <FRAME '\1aGET-DECL>
+ <FRAME '\1aGLOC>
+ <PUSH K6>
+ <DEAD K6>
+ <CALL '\1aGLOC 1 = STACK>
+ <CALL '\1aGET-DECL 1 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> + PHRASE26>
+ <JUMP + PHRASE32>
+PHRASE29
+ <NTHR K6 1 = TEMP12 (RECORD-TYPE ATOM)>
+ <DEAD K6>
+ <NTHR TEMP12 3 = K6 (RECORD-TYPE GBIND)>
+ <DEAD TEMP12>
+ <TYPE? K6 <TYPE-CODE FALSE> + PHRASE26>
+PHRASE32
+ <FRAME '\1aTYPE-OK?>
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE26
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'ANY>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE18
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'ANY>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP12>
+PHRASE36
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aGVAL-ANA>
+<COND (<GASSIGNED? GVAL-ANA> <PUTPROP ,GVAL ANALYSIS ,GVAL-ANA>)>
+
+#WORD *30767275324*
+<GFCN \1aGASSIGNED?-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6:LIST LN7:FIX NM8 TEMP11>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <LENL K6 = LN7 (TYPE FIX)>
+ <NTHUV NOD4 4 = NM8>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE12>
+ <DEAD TEMP11>
+ <FRAME '\1aARGCHK>
+ <PUSH LN7>
+ <DEAD LN7>
+ <PUSH 1>
+ <PUSH NM8>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <PUTUV NOD4 1 92 (TYPE FIX)>
+ <DEAD NOD4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <DEAD K6>
+ <PUSH 'ATOM>
+ <PUSH NM8>
+ <DEAD NM8>
+ <CALL '\1aEANA 3>
+PHRASE12
+ <FRAME '\1aTYPE-OK?>
+ <PUSH <OR ATOM FALSE>>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aGASSIGNED?-ANA>
+<COND (<GASSIGNED? GASSIGNED?-ANA> <PUTPROP ,GASSIGNED? ANALYSIS ,GASSIGNED?-ANA>)>
+
+<COND (<AND <GASSIGNED? GBOUND?> <GASSIGNED? GASSIGNED?-ANA>> <PUTPROP ,GBOUND? ANALYSIS ,GASSIGNED?-ANA>)>
+
+" Analyze SETG usage."
+
+#WORD *13520535503*
+<GFCN \1aSETG-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6:LIST LN7:FIX TEMP13 TEM8 TEMP20:FIX TEMP19>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <LENL K6 = LN7 (TYPE FIX)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE55>
+ <FRAME '\1aARGCHK>
+ <PUSH LN7>
+ <PUSH (2 3)>
+ <PUSH 'SETG>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <PUTUV NOD4 1 34 (TYPE FIX)>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = TEM8 (TYPE NODE)>
+ <PUSH TEM8>
+ <PUSH 'ATOM>
+ <PUSH 'SETG>
+ <CALL '\1aEANA 3>
+ <PUSH NOD4>
+ <SET TEMP20 1 (TYPE FIX)>
+ <NTHUV NOD4 8 = TEMP19>
+ <TYPE TEMP19 = TEMP13>
+ <AND TEMP13 7 = TEMP13>
+ <VEQUAL? TEMP13 1 + TAG22>
+ <DEAD TEMP13>
+ <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP20 VALUE)>
+TAG28
+ <INTGO>
+ <EMPTY? TEMP19 + TAG27>
+ <NTH1 TEMP19 = STACK>
+ <REST1 TEMP19 = TEMP19>
+ <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
+ <JUMP + TAG28>
+TAG27
+ <LIST TEMP20 = TEMP19 (TYPE LIST)>
+ <DEAD TEMP20>
+ <JUMP + TAG24>
+TAG22
+ <LOOP>
+TAG25
+ <VEQUAL? TEMP20 0 + TAG24>
+ <POP = TEMP13>
+ <CONS TEMP13 TEMP19 = TEMP19 (TYPE LIST)>
+ <DEAD TEMP13>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG24
+ <PUTUV NOD4 8 TEMP19>
+ <DEAD TEMP19>
+ <NTHUV TEM8 1 = TEMP19 (TYPE FIX)>
+ <VEQUAL? TEMP19 2 - PHRASE30 (TYPE FIX)>
+ <DEAD TEMP19>
+ <FRAME '\1aMANIFEST?>
+ <NTHUV TEM8 4 = TEMP13>
+ <DEAD TEM8>
+ <PUSH TEMP13>
+ <CALL '\1aMANIFEST? 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP19>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "SETGing manifest GVAL? ">
+ <PUSH TEMP13>
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-WARNING 3>
+PHRASE32
+ <PUTUV NOD4 1 67 (TYPE FIX)>
+ <NTHR TEMP13 1 = TEMP19 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE36)>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD TEMP19>
+ <NTHR 'GLOC 1 = TEMP19 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE39)>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE39>
+ <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP19 <TYPE-CODE UNBOUND> + PHRASE39>
+ <DEAD TEMP19>
+ <FRAME '\1aGET-DECL>
+ <FRAME '\1aGLOC>
+ <PUSH TEMP13>
+ <CALL '\1aGLOC 1 = STACK>
+ <CALL '\1aGET-DECL 1 = TEM8>
+ <TYPE? TEM8 <TYPE-CODE FALSE> + PHRASE36>
+ <JUMP + PHRASE42>
+PHRASE39
+ <NTHR TEMP13 1 = TEMP19 (RECORD-TYPE ATOM)>
+ <NTHR TEMP19 3 = TEM8 (RECORD-TYPE GBIND)>
+ <DEAD TEMP19>
+ <TYPE? TEM8 <TYPE-CODE FALSE> + PHRASE36>
+PHRASE42
+ <FRAME '\1aANA>
+ <RESTL K6 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK (TYPE NODE)>
+ <DEAD TEMP19>
+ <PUSH TEM8>
+ <CALL '\1aANA 2 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE44>
+ <DEAD TEMP19>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "GLOBAL declaration violation">
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE44
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEM8>
+ <DEAD TEM8>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+ <JUMP + PHRASE51>
+PHRASE36
+ <FRAME '\1aANA>
+ <RESTL K6 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK (TYPE NODE)>
+ <DEAD TEMP19>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TEMP13>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+ <JUMP + PHRASE51>
+PHRASE30
+ <FRAME '\1aANA>
+ <RESTL K6 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK (TYPE NODE)>
+ <DEAD TEMP19>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TEMP13>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+PHRASE51
+ <VEQUAL? LN7 3 - PHRASE55 (TYPE FIX)>
+ <DEAD LN7>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP19 (TYPE LIST)>
+ <DEAD K6>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK (TYPE NODE)>
+ <DEAD TEMP19>
+ <PUSH 'ANY>
+ <PUSH 'SETG>
+ <CALL '\1aEANA 3>
+PHRASE55
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aSETG-ANA>
+<COND (<GASSIGNED? SETG-ANA> <PUTPROP ,SETG ANALYSIS ,SETG-ANA>)>
+
+#WORD *5651731043*
+<GFCN \1aBUILD-TYPE-LIST ("VALUE" LIST <OR VECTOR SYMTAB>) V4>
+ <TEMP TEMP7 L12:LIST LP13:LIST>
+ <INTGO>
+ <GEN-LVAL 'ANALY-OK = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
+ <DEAD TEMP7>
+ <CONS () () = L12>
+ <SET LP13 L12>
+ <LOOP>
+AGAIN15
+ <INTGO>
+ <EMPUV? V4 - PHRASE17>
+ <RESTL L12 1 = TEMP7 (TYPE LIST)>
+ <DEAD L12>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE17
+ <NTHUV V4 4 = TEMP7 (TYPE FIX)>
+ <VEQUAL? TEMP7 -1 + PHRASE18 (TYPE FIX)>
+ <DEAD TEMP7>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH V4>
+ <CALL '\1aGET-CURRENT-TYPE 1 = TEMP7>
+ <CONS TEMP7 () = TEMP7>
+ <CONS V4 TEMP7 = TEMP7>
+ <CONS TEMP7 () = TEMP7>
+ <PUTREST LP13 TEMP7>
+ <DEAD LP13>
+ <SET LP13 TEMP7>
+ <DEAD TEMP7>
+PHRASE18
+ <NTHUV V4 1 = V4>
+ <JUMP + AGAIN15>
+PHRASE6
+ <RETURN ()>
+ <END \1aBUILD-TYPE-LIST>
+#WORD *17551505742*
+<GFCN \1aBUILD-MODIFIED-TYPE-LIST ("VALUE" LIST <OR VECTOR SYMTAB> LIST) V4 NL5>
+ <TEMP TEMP8 L13:LIST LP14:LIST TEM15 LL34:LIST TEMP37>
+ <INTGO>
+ <GEN-LVAL 'ANALY-OK = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
+ <DEAD TEMP8>
+ <CONS () () = L13>
+ <SET LP14 L13>
+ <LOOP>
+AGAIN16
+ <INTGO>
+ <EMPUV? V4 - PHRASE18>
+ <RESTL L13 1 = TEMP8 (TYPE LIST)>
+ <DEAD L13>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE18
+ <NTHUV V4 4 = TEMP8 (TYPE FIX)>
+ <VEQUAL? TEMP8 -1 + PHRASE19 (TYPE FIX)>
+ <DEAD TEMP8>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH V4>
+ <CALL '\1aGET-CURRENT-TYPE 1 = TEM15>
+ <SET TEMP8 NL5 (TYPE LIST)>
+ <LOOP>
+MAP25
+ <INTGO>
+ <EMPL? TEMP8 + MAPAP28>
+ <NTHL TEMP8 1 = LL34>
+ <NTHL LL34 1 = TEMP37 (TYPE SYMTAB)>
+ <VEQUAL? TEMP37 V4 - PHRASE36>
+ <DEAD TEMP37>
+ <RESTL LL34 1 = TEMP37 (TYPE LIST)>
+ <DEAD LL34>
+ <NTHL TEMP37 1 = TEM15>
+ <DEAD TEMP37>
+ <JUMP + MAPAP28>
+PHRASE36
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <JUMP + MAP25>
+MAPAP28
+ <CONS TEM15 () = LL34>
+ <DEAD TEM15>
+ <CONS V4 LL34 = LL34>
+ <CONS LL34 () = LL34>
+ <PUTREST LP14 LL34>
+ <DEAD LP14>
+ <SET LP14 LL34>
+ <DEAD LL34>
+PHRASE19
+ <NTHUV V4 1 = V4>
+ <JUMP + AGAIN16>
+PHRASE7
+ <RETURN ()>
+ <END \1aBUILD-MODIFIED-TYPE-LIST>
+#WORD *30206662455*
+<GFCN \1aRESET-VARS ("VALUE" ATOM <OR SYMTAB VECTOR> "OPTIONAL" <OR SYMTAB VECTOR> ANY) V7 VL8 FLG9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH []>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP TEMP10:ATOM>
+ <INTGO>
+ <LOOP>
+AGAIN13
+ <INTGO>
+ <EQUAL? V7 VL8 - PHRASE15>
+ <SET FLG9 'T (TYPE ATOM)>
+PHRASE15
+ <EMPUV? V7 - PHRASE17>
+ <RETURN 'T>
+PHRASE17
+ <TYPE? FLG9 <TYPE-CODE FALSE> - PHRASE18>
+ <PUTUV V7 17 %<>>
+ <PUTUV V7 18 'ANY>
+PHRASE18
+ <PUTUV V7 16 () (TYPE LIST)>
+ <NTHUV V7 1 = V7>
+ <JUMP + AGAIN13>
+ <END \1aRESET-VARS>
+#WORD *27455132237*
+<GFCN \1aGET-CURRENT-TYPE ("VALUE" ANY SYMTAB) SYM4>
+ <TEMP TEMP8>
+ <INTGO>
+ <GEN-LVAL 'ANALY-OK = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
+ <DEAD TEMP8>
+ <NTHUV SYM4 17 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE11>
+BOOL7
+ <NTHUV SYM4 7 = TEMP8>
+ <DEAD SYM4>
+PHRASE11
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aGET-CURRENT-TYPE>
+#WORD *624141243*
+<GFCN \1aSET-CURRENT-TYPE ("VALUE" SYMTAB SYMTAB ANY) SYM4 ITYP5>
+ <TEMP OTYP6 TEMP10>
+ <INTGO>
+ <NTHUV SYM4 7 = OTYP6>
+ <GEN-LVAL 'ANALY-OK = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD TEMP10>
+ <NTHUV SYM4 4 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP10 -1 + PHRASE8 (TYPE FIX)>
+ <DEAD TEMP10>
+ <FRAME '\1aTYPE-AND>
+ <PUSH ITYP5>
+ <DEAD ITYP5>
+ <PUSH OTYP6>
+ <DEAD OTYP6>
+ <CALL '\1aTYPE-AND 2 = ITYP5>
+ <PUTUV SYM4 17 ITYP5>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH ITYP5>
+ <DEAD ITYP5>
+ <NTHUV SYM4 18 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TEMP10>
+ <PUTUV SYM4 18 TEMP10>
+ <DEAD TEMP10>
+ <RETURN SYM4>
+ <DEAD SYM4>
+PHRASE8
+ <PUTUV SYM4 17 %<>>
+ <PUTUV SYM4 18 OTYP6>
+ <DEAD OTYP6>
+ <RETURN SYM4>
+ <DEAD SYM4>
+ <END \1aSET-CURRENT-TYPE>
+#WORD *2616334207*
+<GFCN \1aORUPC ("VALUE" <LIST [REST !<LIST SYMTAB ANY>]> <OR VECTOR SYMTAB> <LIST [REST !<LIST SYMTAB ANY>]>) V4 L5>
+ <TEMP TEMP8 LL12:LIST LLL13>
+ <INTGO>
+ <GEN-LVAL 'ANALY-OK = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + EXIT11>
+ <DEAD TEMP8>
+ <SET LL12 L5>
+ <LOOP>
+AGAIN14
+ <INTGO>
+ <TYPE? V4 <TYPE-CODE VECTOR> + EXIT11>
+ <NTHUV V4 4 = TEMP8 (TYPE FIX)>
+ <VEQUAL? TEMP8 -1 + PHRASE18 (TYPE FIX)>
+ <DEAD TEMP8>
+ <NTHL LL12 1 = LLL13 (TYPE LIST)>
+ <NTHL LLL13 1 = TEMP8 (TYPE SYMTAB)>
+ <VEQUAL? TEMP8 V4 - PHRASE23>
+ <DEAD TEMP8>
+ <FRAME '\1aTYPE-MERGE>
+ <RESTL LLL13 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = STACK>
+ <DEAD TEMP8>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH V4>
+ <CALL '\1aGET-CURRENT-TYPE 1 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TEMP8>
+ <RESTL LLL13 1 = LLL13 (TYPE LIST)>
+ <PUTL LLL13 1 TEMP8>
+ <DEAD LLL13 TEMP8>
+ <JUMP + PHRASE27>
+PHRASE23
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-ORUPC!-ERRORS>
+ <CALL '\1aERROR 1>
+PHRASE27
+ <RESTL LL12 1 = LL12 (TYPE LIST)>
+PHRASE18
+ <NTHUV V4 1 = V4>
+ <JUMP + AGAIN14>
+EXIT11
+ <RETURN L5>
+ <DEAD L5>
+ <END \1aORUPC>
+#WORD *4037426170*
+<GFCN \1aORUP ("VALUE" <LIST [REST !<LIST SYMTAB ANY>]> <LIST [REST !<LIST SYMTAB ANY>]> <LIST [REST !<LIST SYMTAB ANY>]>) ONE4 TWO5>
+ <TEMP TEMP12:LIST TEMP13:LIST A18:LIST B19:LIST TEMP21>
+ <INTGO>
+ <SET TEMP12 ONE4 (TYPE LIST)>
+ <SET TEMP13 TWO5 (TYPE LIST)>
+ <DEAD TWO5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <EMPL? TEMP13 + MAPAP10>
+ <NTHL TEMP12 1 = A18>
+ <NTHL TEMP13 1 = B19>
+ <FRAME '\1aTYPE-MERGE>
+ <RESTL A18 1 = TEMP21 (TYPE LIST)>
+ <NTHL TEMP21 1 = STACK>
+ <DEAD TEMP21>
+ <RESTL B19 1 = TEMP21 (TYPE LIST)>
+ <DEAD B19>
+ <NTHL TEMP21 1 = STACK>
+ <DEAD TEMP21>
+ <CALL '\1aTYPE-MERGE 2 = TEMP21>
+ <RESTL A18 1 = A18 (TYPE LIST)>
+ <PUTL A18 1 TEMP21>
+ <DEAD A18 TEMP21>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN ONE4>
+ <DEAD ONE4>
+ <END \1aORUP>
+#WORD *30443313711*
+<GFCN \1aANDUP ("VALUE" <LIST [REST !<LIST SYMTAB ANY>]> <LIST [REST !<LIST SYMTAB ANY>]> <LIST [REST !<LIST SYMTAB ANY>]>) ONE4 TWO5>
+ <TEMP TEMP12:LIST TEMP13:LIST A18:LIST B19:LIST TEMP21>
+ <INTGO>
+ <SET TEMP12 ONE4 (TYPE LIST)>
+ <SET TEMP13 TWO5 (TYPE LIST)>
+ <DEAD TWO5>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP10>
+ <EMPL? TEMP13 + MAPAP10>
+ <NTHL TEMP12 1 = A18>
+ <NTHL TEMP13 1 = B19>
+ <FRAME '\1aTYPE-AND>
+ <RESTL A18 1 = TEMP21 (TYPE LIST)>
+ <NTHL TEMP21 1 = STACK>
+ <DEAD TEMP21>
+ <RESTL B19 1 = TEMP21 (TYPE LIST)>
+ <DEAD B19>
+ <NTHL TEMP21 1 = STACK>
+ <DEAD TEMP21>
+ <CALL '\1aTYPE-AND 2 = TEMP21>
+ <RESTL A18 1 = A18 (TYPE LIST)>
+ <PUTL A18 1 TEMP21>
+ <DEAD A18 TEMP21>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <RETURN ONE4>
+ <DEAD ONE4>
+ <END \1aANDUP>
+#WORD *6000515425*
+<GFCN \1aASSERT-TYPES ("VALUE" <OR FALSE SYMTAB> <LIST [REST !<LIST SYMTAB ANY>]>) L4>
+ <TEMP TEMP14 TEMP11:LIST>
+ <INTGO>
+ <SET TEMP14 %<> (TYPE FALSE)>
+ <SET TEMP11 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPL? TEMP11 + MAPAP9>
+ <NTHL TEMP11 1 = TEMP14>
+ <FRAME '\1aSET-CURRENT-TYPE>
+ <NTHL TEMP14 1 = STACK (TYPE SYMTAB)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = STACK>
+ <DEAD TEMP14>
+ <CALL '\1aSET-CURRENT-TYPE 2 = TEMP14>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aASSERT-TYPES>
+#WORD *34046355367*
+<GFCN \1aADD-TYPE-LIST ("VALUE" LIST SYMTAB <OR ATOM FALSE FORM SEGMENT> LIST <OR ATOM FALSE> "OPTIONAL" <LIST [REST ATOM FIX]>) SYM6 NDECL7 INF8 MUNG9 NTH-REST10>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5>
+OPT4
+ <PUSH ()>
+OPT5
+ <TEMP (WIN11 %<>) OD12 TEMP16 L30:LIST TEMP33>
+ <INTGO>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH SYM6>
+ <CALL '\1aGET-CURRENT-TYPE 1 = OD12>
+ <GEN-LVAL 'ANALY-OK = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE41>
+ <DEAD TEMP16>
+ <FRAME '\1aTYPE-NTH-REST>
+ <PUSH NDECL7>
+ <DEAD NDECL7>
+ <PUSH NTH-REST10>
+ <DEAD NTH-REST10>
+ <CALL '\1aTYPE-NTH-REST 2 = NDECL7>
+ <SET TEMP16 INF8 (TYPE LIST)>
+ <LOOP>
+MAP21
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP24>
+ <NTHL TEMP16 1 = L30>
+ <NTHL L30 1 = TEMP33 (TYPE SYMTAB)>
+ <VEQUAL? TEMP33 SYM6 - PHRASE32>
+ <DEAD TEMP33>
+ <TYPE? MUNG9 <TYPE-CODE FALSE> + PHRASE35>
+ <FRAME '\1aTYPE-AND>
+ <PUSH NDECL7>
+ <DEAD NDECL7>
+ <PUSH OD12>
+ <CALL '\1aTYPE-AND 2 = TEMP33>
+ <JUMP + PHRASE37>
+PHRASE35
+ <FRAME '\1aTYPE-AND>
+ <PUSH NDECL7>
+ <DEAD NDECL7>
+ <RESTL L30 1 = WIN11 (TYPE LIST)>
+ <NTHL WIN11 1 = STACK>
+ <DEAD WIN11>
+ <CALL '\1aTYPE-AND 2 = TEMP33>
+PHRASE37
+ <SET NDECL7 TEMP33>
+ <DEAD TEMP33>
+ <RESTL L30 1 = WIN11 (TYPE LIST)>
+ <DEAD L30>
+ <PUTL WIN11 1 NDECL7>
+ <DEAD WIN11>
+ <SET WIN11 'T (TYPE ATOM)>
+ <JUMP + MAPAP24>
+PHRASE32
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP21>
+MAPAP24
+ <VEQUAL? WIN11 0 - PHRASE41>
+ <DEAD WIN11>
+ <FRAME '\1aTYPE-AND>
+ <PUSH NDECL7>
+ <DEAD NDECL7>
+ <PUSH OD12>
+ <DEAD OD12>
+ <CALL '\1aTYPE-AND 2 = NDECL7>
+ <CONS MUNG9 () = L30>
+ <DEAD MUNG9>
+ <CONS NDECL7 L30 = L30>
+ <DEAD NDECL7>
+ <CONS SYM6 L30 = L30>
+ <DEAD SYM6>
+ <CONS L30 INF8 = INF8>
+ <DEAD L30>
+PHRASE41
+ <RETURN INF8>
+ <DEAD INF8>
+ <END \1aADD-TYPE-LIST>
+#WORD *27404507660*
+<GFCN \1aTYPE-NTH-REST ("VALUE" ANY ANY <LIST [REST ATOM FIX]>) NDECL4 NTH-REST5>
+ <TEMP FIRST9 NUM10:FIX TEMP16 TEMP18>
+ <INTGO>
+ <SET FIRST9 'T (TYPE ATOM)>
+ <SET NUM10 0 (TYPE FIX)>
+ <LOOP>
+AGAIN11
+ <INTGO>
+ <EMPL? NTH-REST5 - PHRASE13 (TYPE LIST)>
+ <RETURN NDECL4>
+ <DEAD NDECL4>
+PHRASE13
+ <NTHL NTH-REST5 1 = TEMP16 (TYPE ATOM)>
+ <VEQUAL? TEMP16 'NTH - PHRASE15>
+ <DEAD TEMP16>
+ <FRAME '\1aFORM>
+ <PUSH 'STRUCTURED>
+ <SET TEMP18 2 (TYPE FIX)>
+ <RESTL NTH-REST5 1 = FIRST9 (TYPE LIST)>
+ <NTHL FIRST9 1 = FIRST9 (TYPE FIX)>
+ <ADD FIRST9 NUM10 = FIRST9 (TYPE FIX)>
+ <DEAD NUM10>
+ <ADD FIRST9 -1 = NUM10 (TYPE FIX)>
+ <DEAD FIRST9>
+ <VEQUAL? NUM10 0 - PHRASE20 (TYPE FIX)>
+ <SET TEMP16 () (TYPE LIST)>
+ <JUMP + PHRASE27>
+PHRASE20
+ <VEQUAL? NUM10 1 - PHRASE24 (TYPE FIX)>
+ <CONS 'ANY () = TEMP16>
+ <JUMP + PHRASE27>
+PHRASE24
+ <PUSH NUM10>
+ <DEAD NUM10>
+ <PUSH 'ANY>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = FIRST9>
+ <CONS FIRST9 () = TEMP16>
+ <DEAD FIRST9>
+PHRASE27
+ <LOOP (TEMP16 VALUE) (TEMP18 VALUE)>
+TAG29
+ <INTGO>
+ <EMPL? TEMP16 + TAG17>
+ <NTHL TEMP16 1 = STACK>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG17
+ <PUSH NDECL4>
+ <DEAD NDECL4>
+ <CALL '\1aFORM TEMP18 = NDECL4>
+ <DEAD TEMP18>
+ <SET NUM10 0 (TYPE FIX)>
+ <SET FIRST9 %<> (TYPE FALSE)>
+ <JUMP + PHRASE33>
+PHRASE15
+ <VEQUAL? FIRST9 0 + PHRASE31>
+ <FRAME '\1aREST-DECL>
+ <PUSH NDECL4>
+ <DEAD NDECL4>
+ <RESTL NTH-REST5 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = STACK (TYPE FIX)>
+ <DEAD TEMP18>
+ <CALL '\1aREST-DECL 2 = NDECL4>
+ <JUMP + PHRASE33>
+PHRASE31
+ <RESTL NTH-REST5 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = TEMP18 (TYPE FIX)>
+ <ADD TEMP18 NUM10 = NUM10 (TYPE FIX)>
+ <DEAD TEMP18>
+PHRASE33
+ <RESTL NTH-REST5 1 = NTH-REST5 (TYPE LIST)>
+ <RESTL NTH-REST5 1 = NTH-REST5 (TYPE LIST)>
+ <JUMP + AGAIN11>
+ <END \1aTYPE-NTH-REST>
+" AND/OR analyzer. Called from AND-ANA and OR-ANA."
+
+#WORD *14673340170*
+ <GFCN \1aBOOL-AN ("VALUE" ANY NODE ANY ANY) NOD4 RTYP5 ORER6>
+ <TEMP L7 TEMP22 RTY10 TEMP28 FLG11 (SINF12:LIST ()) (FIRST15 'T) TEMP48:FIX TEMP53 LAST51 TY55 FNOK16 NFNOK17 PASS18 TEMP94 L-D34:LIST STR13:LIST SUNT14:LIST>
+ <INTGO>
+ <NTHUV NOD4 5 = L7 (TYPE LIST)>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RTYP5>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD TEMP22>
+ <SET RTY10 RTYP5>
+ <JUMP + PHRASE23>
+PHRASE20
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH RTYP5>
+ <PUSH 'FALSE>
+ <CALL '\1aFORM 3 = RTY10>
+PHRASE23
+ <GEN-LVAL 'PRED = TEMP22>
+ <NTHUV NOD4 2 = TEMP28>
+ <EQUAL? TEMP22 TEMP28 - TAG25>
+ <DEAD TEMP22 TEMP28>
+ <SET FLG11 'T (TYPE ATOM)>
+ <JUMP + TAG29>
+TAG25
+ <SET FLG11 %<> (TYPE FALSE)>
+TAG29
+ <GETS 'BIND = TEMP28 (TYPE LBIND)>
+ <BBIND 'TRUTH 'LIST 'FIX ()>
+ <BBIND 'UNTRUTH 'LIST 'FIX ()>
+ <BBIND 'PRED 'ANY 'FIX NOD4>
+ <EMPL? L7 - PHRASE37 (TYPE LIST)>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'FALSE>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2>
+ <JUMP + PHRASE190>
+PHRASE37
+ <SET TEMP22 L7 (TYPE LIST)>
+ <DEAD L7>
+ <SET TEMP48 0 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <LOOP>
+MAP41
+ <INTGO>
+ <EMPL? TEMP22 + MAPAP44>
+ <SET L7 TEMP22>
+ <RESTL L7 1 = TEMP53 (TYPE LIST)>
+ <EMPL? TEMP53 - TAG52 (TYPE LIST)>
+ <DEAD TEMP53>
+ <SET LAST51 'T (TYPE ATOM)>
+ <JUMP + TAG54>
+TAG52
+ <SET LAST51 %<> (TYPE FALSE)>
+TAG54
+ <VEQUAL? LAST51 0 + PHRASE57>
+ <VEQUAL? FLG11 0 - PHRASE57>
+ <NTHR 'PRED 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP53 1 %<> (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+PHRASE57
+ <FRAME '\1aANA>
+ <NTHL L7 1 = STACK (TYPE NODE)>
+ <VEQUAL? LAST51 0 + PHRASE63>
+ <SET TEMP53 RTYP5>
+ <JUMP + PHRASE65>
+PHRASE63
+ <TYPE? ORER6 <TYPE-CODE FALSE> + PHRASE64>
+ <SET TEMP53 RTY10>
+ <JUMP + PHRASE65>
+PHRASE64
+ <SET TEMP53 'ANY (TYPE ATOM)>
+PHRASE65
+ <PUSH TEMP53>
+ <DEAD TEMP53>
+ <CALL '\1aANA 2 = TY55>
+ <EQUAL? TY55 'NO-RETURN - TAG67>
+ <SET FNOK16 'T (TYPE ATOM)>
+ <JUMP + TAG69>
+TAG67
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TY55>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE FALSE> - TAG68>
+ <DEAD TEMP53>
+ <SET FNOK16 'T (TYPE ATOM)>
+ <JUMP + TAG69>
+TAG68
+ <SET FNOK16 %<> (TYPE FALSE)>
+TAG69
+ <FRAME '\1aISTYPE?>
+ <PUSH TY55>
+ <CALL '\1aISTYPE? 1 = TEMP53>
+ <VEQUAL? TEMP53 'FALSE - TAG71>
+ <DEAD TEMP53>
+ <SET NFNOK17 'T (TYPE ATOM)>
+ <JUMP + TAG73>
+TAG71
+ <SET NFNOK17 %<> (TYPE FALSE)>
+TAG73
+ <TYPE? ORER6 <TYPE-CODE FALSE> + PHRASE75>
+ <SET PASS18 NFNOK17>
+ <JUMP + PHRASE76>
+PHRASE75
+ <SET PASS18 FNOK16>
+PHRASE76
+ <TYPE? TY55 <TYPE-CODE FALSE> - PHRASE78>
+ <SET TY55 'ANY (TYPE ATOM)>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "OR/AND clause returns wrong type: ">
+ <NTHL L7 1 = STACK (TYPE NODE)>
+ <CALL '\1aCOMPILE-WARNING 2>
+PHRASE78
+ <TYPE? ORER6 <TYPE-CODE FALSE> + PHRASE83>
+ <TYPE? FNOK16 <TYPE-CODE FALSE> + PHRASE81>
+ <JUMP + PHRASE84>
+PHRASE83
+ <TYPE? NFNOK17 <TYPE-CODE FALSE> + PHRASE81>
+PHRASE84
+ <GEN-LVAL 'VERBOSE = TEMP53>
+ <TYPE? TEMP53 <TYPE-CODE FALSE> + PHRASE86>
+ <DEAD TEMP53>
+ <VEQUAL? LAST51 0 - PHRASE86>
+ <DEAD LAST51>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <EQUAL? TY55 'NO-RETURN - PHRASE92>
+ <SET TEMP53 (" it never returns ") (TYPE LIST)>
+ <JUMP + PHRASE93>
+PHRASE92
+ <CONS TY55 () = TEMP53>
+ <CONS " its type is: " TEMP53 = TEMP53>
+PHRASE93
+ <NTHL L7 1 = TEMP94 (TYPE NODE)>
+ <CONS TEMP94 TEMP53 = TEMP53>
+ <DEAD TEMP94>
+ <CONS "This object prematurely ends AND/OR: " TEMP53 = STACK>
+ <DEAD TEMP53>
+ <CALL '\1aADDVMESS 2>
+PHRASE86
+ <SET LAST51 'T (TYPE ATOM)>
+PHRASE81
+ <EQUAL? TY55 'NO-RETURN + PHRASE96>
+ <TYPE? PASS18 <TYPE-CODE FALSE> + BOOL98>
+ <DEAD PASS18>
+ <VEQUAL? LAST51 0 + PHRASE96>
+BOOL98
+ <FRAME '\1aBUILD-MODIFIED-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <NTHR 'TRUTH 2 = TEMP94 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP94 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP94>
+ <CALL '\1aBUILD-MODIFIED-TYPE-LIST 2 = TEMP94>
+ <NTHR 'TRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP53 1 TEMP94 (RECORD-TYPE LBIND)>
+ <DEAD TEMP53 TEMP94>
+ <FRAME '\1aBUILD-MODIFIED-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <NTHR 'UNTRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <CALL '\1aBUILD-MODIFIED-TYPE-LIST 2 = TEMP53>
+ <NTHR 'UNTRUTH 2 = PASS18 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR PASS18 1 TEMP53 (RECORD-TYPE LBIND)>
+ <DEAD PASS18 TEMP53>
+ <VEQUAL? FIRST15 0 + PHRASE116>
+ <DEAD FIRST15>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = L-D34>
+ <NTHR 'TRUTH 2 = PASS18 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR PASS18 1 = STR13 (RECORD-TYPE LBIND)>
+ <DEAD PASS18>
+ <NTHR 'UNTRUTH 2 = PASS18 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR PASS18 1 = SUNT14 (RECORD-TYPE LBIND)>
+ <DEAD PASS18>
+ <FRAME '\1aBUILD-MODIFIED-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <TYPE? ORER6 <TYPE-CODE FALSE> + PHRASE128>
+ <NTHR 'TRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = FIRST15 (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <JUMP + PHRASE133>
+PHRASE128
+ <NTHR 'UNTRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = FIRST15 (RECORD-TYPE LBIND)>
+PHRASE133
+ <PUSH FIRST15>
+ <DEAD FIRST15>
+ <CALL '\1aBUILD-MODIFIED-TYPE-LIST 2 = SINF12>
+ <JUMP + PHRASE150>
+PHRASE116
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <PUSH L-D34>
+ <DEAD L-D34>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = L-D34>
+ <TYPE? ORER6 <TYPE-CODE FALSE> + PHRASE141>
+ <NTHR 'UNTRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = SUNT14 (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <FRAME '\1aORUP>
+ <PUSH STR13>
+ <DEAD STR13>
+ <NTHR 'TRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <CALL '\1aORUP 2 = STR13>
+ <FRAME '\1aORUP>
+ <PUSH SINF12>
+ <DEAD SINF12>
+ <NTHR 'TRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <CALL '\1aORUP 2 = SINF12>
+ <JUMP + PHRASE150>
+PHRASE141
+ <FRAME '\1aORUP>
+ <PUSH SUNT14>
+ <DEAD SUNT14>
+ <NTHR 'UNTRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <CALL '\1aORUP 2 = SUNT14>
+ <NTHR 'TRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STR13 (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <FRAME '\1aORUP>
+ <PUSH SINF12>
+ <DEAD SINF12>
+ <NTHR 'UNTRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <CALL '\1aORUP 2 = SINF12>
+PHRASE150
+ <SET FIRST15 %<> (TYPE FALSE)>
+ <FRAME '\1aASSERT-TYPES>
+ <TYPE? ORER6 <TYPE-CODE FALSE> + PHRASE161>
+ <SET TEMP53 SUNT14>
+ <JUMP + PHRASE162>
+PHRASE161
+ <SET TEMP53 STR13>
+PHRASE162
+ <PUSH TEMP53>
+ <DEAD TEMP53>
+ <CALL '\1aASSERT-TYPES 1>
+PHRASE96
+ <NTHR 'TRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP53 1 () (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <NTHR 'UNTRUTH 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP53 1 () (RECORD-TYPE LBIND)>
+ <DEAD TEMP53>
+ <VEQUAL? FIRST15 0 - BOOL167>
+ <FRAME '\1aRESTORE-L-D-STATE>
+ <PUSH L-D34>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aRESTORE-L-D-STATE 2>
+BOOL167
+ <EQUAL? TY55 'NO-RETURN - PHRASE172>
+ <VEQUAL? LAST51 0 - PHRASE174>
+ <DEAD LAST51>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "AND/OR clause is unreachable: ">
+ <NTHL L7 1 = STACK (TYPE NODE)>
+ <DEAD L7>
+ <CALL '\1aCOMPILE-WARNING 2>
+PHRASE174
+ <SET FLG11 %<> (TYPE FALSE)>
+ <FRAME '\1aASSERT-TYPES>
+ <PUSH SINF12>
+ <DEAD SINF12>
+ <CALL '\1aASSERT-TYPES 1>
+ <PUSH 'NO-RETURN>
+ <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
+ <JUMP + MAPAP44>
+PHRASE172
+ <VEQUAL? LAST51 0 + PHRASE178>
+ <DEAD LAST51>
+ <FRAME '\1aASSERT-TYPES>
+ <PUSH SINF12>
+ <DEAD SINF12>
+ <CALL '\1aASSERT-TYPES 1>
+ <PUSH TY55>
+ <DEAD TY55>
+ <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
+ <JUMP + MAPAP44>
+PHRASE178
+ <TYPE? ORER6 <TYPE-CODE FALSE> + PHRASE181>
+ <TYPE? NFNOK17 <TYPE-CODE FALSE> - MAP42>
+ <DEAD NFNOK17>
+PHRASE181
+ <TYPE? ORER6 <TYPE-CODE FALSE> - PHRASE188>
+ <TYPE? FNOK16 <TYPE-CODE FALSE> - MAP42>
+ <SET TY55 'FALSE (TYPE ATOM)>
+PHRASE188
+ <PUSH TY55>
+ <DEAD TY55>
+ <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
+MAP42
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <JUMP + MAP41>
+MAPAP44
+ <CALL '\1aTYPE-MERGE TEMP48 = TEMP53>
+ <DEAD TEMP48>
+ <TYPE? FNOK16 <TYPE-CODE FALSE> + PHRASE190>
+ <DEAD FNOK16>
+ <TYPE? ORER6 <TYPE-CODE FALSE> + PHRASE190>
+ <DEAD ORER6>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP53>
+ <DEAD TEMP53>
+ <PUSH <NOT FALSE>>
+ <CALL '\1aTYPE-OK? 2 = TEMP53>
+PHRASE190
+ <UNBIND TEMP28>
+ <DEAD TEMP28>
+ <ADJ -27>
+ <VEQUAL? FLG11 0 + PHRASE194>
+ <DEAD FLG11>
+ <GEN-SET 'TRUTH STR13>
+ <DEAD STR13>
+ <GEN-SET 'UNTRUTH SUNT14>
+ <DEAD SUNT14>
+PHRASE194
+ <RETURN TEMP53>
+ <DEAD TEMP53>
+ <END \1aBOOL-AN>
+
+#WORD *21104311726*
+<GFCN \1aCOPY-TYPE-LIST ("VALUE" <LIST [REST <LIST ANY ANY ANY>]> LIST) L4>
+ <TEMP TEMP14 TEMP12 TEMP11:LIST LL16:LIST TEMP17 TEMP18>
+ <INTGO>
+ <SET TEMP14 () (TYPE LIST)>
+ <SET TEMP12 () (TYPE LIST)>
+ <SET TEMP11 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP6
+ <INTGO>
+ <EMPL? TEMP11 + MAPAP9>
+ <NTHL TEMP11 1 = LL16>
+ <RESTL LL16 1 = TEMP17 (TYPE LIST)>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TEMP17>
+ <CONS TEMP17 () = TEMP17>
+ <RESTL LL16 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = TEMP18>
+ <CONS TEMP18 TEMP17 = TEMP17>
+ <DEAD TEMP18>
+ <NTHL LL16 1 = TEMP18>
+ <DEAD LL16>
+ <CONS TEMP18 TEMP17 = TEMP17>
+ <DEAD TEMP18>
+ <CONS TEMP17 () = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP14 - TAG19>
+ <SET TEMP14 TEMP17 (TYPE LIST)>
+ <JUMP + TAG20>
+TAG19
+ <PUTREST TEMP12 TEMP17>
+ <DEAD TEMP12>
+TAG20
+ <SET TEMP12 TEMP17 (TYPE LIST)>
+ <DEAD TEMP17>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <JUMP + MAP6>
+MAPAP9
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aCOPY-TYPE-LIST>
+#WORD *16602640057*
+<GFCN \1aAND-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEMP7>
+ <INTGO>
+ <PUTUV NOD4 1 13 (TYPE FIX)>
+ <FRAME '\1aBOOL-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <PUSH %<>>
+ <CALL '\1aBOOL-AN 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aAND-ANA>
+<COND (<GASSIGNED? AND-ANA> <PUTPROP ,AND ANALYSIS ,AND-ANA>)>
+
+#WORD *527640063*
+<GFCN \1aOR-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEMP7>
+ <INTGO>
+ <PUTUV NOD4 1 12 (TYPE FIX)>
+ <FRAME '\1aBOOL-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <PUSH 'T>
+ <CALL '\1aBOOL-AN 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aOR-ANA>
+<COND (<GASSIGNED? OR-ANA> <PUTPROP ,OR ANALYSIS ,OR-ANA>)>
+
+" COND analyzer."
+
+#WORD *6631527021*
+<GFCN \1aCASE-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aCOND-CASE>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 'T>
+ <CALL '\1aCOND-CASE 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aCASE-ANA>
+#WORD *5221531515*
+<GFCN \1aCOND-ANA ("VALUE" ANY ANY ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aCOND-CASE>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH %<>>
+ <CALL '\1aCOND-CASE 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aCOND-ANA>
+#WORD *35353444435*
+<GFCN \1aCOND-CASE ("VALUE" ANY NODE ANY ANY) NOD4 RTYP5 CASE?6>
+ <TEMP L7 (FIRST8 'T) (LAST9 %<>) (FIRST115 'T) (DFLG17 %<>) TEMP22 TEMP25 PRED-FLG20 TINF130:LIST TINF31:LIST PRAT16 TST-TYP18 SVWHO19:LIST TEMP59:FIX BR62 EC63 TEMP68 TT10 FNOK11 NFNOK12 L-D32:LIST SUNT165:LIST STR13:LIST SUNT14:LIST L-D133:LIST>
+ <INTGO>
+ <NTHUV NOD4 5 = L7 (TYPE LIST)>
+ <GEN-LVAL 'PRED = TEMP22>
+ <NTHUV NOD4 2 = TEMP25>
+ <EQUAL? TEMP22 TEMP25 - TAG21>
+ <DEAD TEMP22 TEMP25>
+ <SET PRED-FLG20 'T (TYPE ATOM)>
+ <JUMP + TAG26>
+TAG21
+ <SET PRED-FLG20 %<> (TYPE FALSE)>
+TAG26
+ <GETS 'BIND = TEMP25 (TYPE LBIND)>
+ <BBIND 'TRUTH 'LIST 'FIX ()>
+ <BBIND 'UNTRUTH 'LIST 'FIX ()>
+ <SET TINF130 () (TYPE LIST)>
+ <SET TINF31 () (TYPE LIST)>
+ <GEN-LVAL 'PRED = TEMP22>
+ <BBIND 'PRED <OR FALSE NODE> 'FIX TEMP22>
+ <DEAD TEMP22>
+ <EMPL? L7 - PHRASE39 (TYPE LIST)>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'FALSE>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2>
+ <JUMP + MAPEX55>
+PHRASE39
+ <TYPE? CASE?6 <TYPE-CODE FALSE> + PHRASE43>
+ <NTHL L7 1 = TEMP22 (TYPE NODE)>
+ <NTHUV TEMP22 5 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = TEMP22 (TYPE NODE)>
+ <NTHUV TEMP22 4 = PRAT16>
+ <DEAD TEMP22>
+ <GETS 'BIND = TEMP22 (TYPE LBIND)>
+ <BBIND 'WHON 'NODE 'FIX NOD4>
+ <BBIND 'WHO 'LIST 'FIX ()>
+ <FRAME '\1aEANA>
+ <RESTL L7 1 = LAST9 (TYPE LIST)>
+ <NTHL LAST9 1 = STACK (TYPE NODE)>
+ <DEAD LAST9>
+ <PUSH 'ANY>
+ <PUSH 'CASE>
+ <CALL '\1aEANA 3 = TST-TYP18>
+ <NTHR 'WHO 2 = LAST9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR LAST9 1 = SVWHO19 (RECORD-TYPE LBIND)>
+ <DEAD LAST9>
+ <UNBIND TEMP22>
+ <DEAD TEMP22>
+ <ADJ -18>
+ <RESTL L7 1 = L7 (TYPE LIST)>
+ <RESTL L7 1 = L7 (TYPE LIST)>
+PHRASE43
+ <SET TEMP22 L7 (TYPE LIST)>
+ <DEAD L7>
+ <SET TEMP59 0 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <LOOP>
+MAP53
+ <INTGO>
+ <EMPL? TEMP22 + MAPAP56>
+ <SET L7 TEMP22>
+ <NTHL L7 1 = BR62 (TYPE NODE)>
+ <SET EC63 'T (TYPE ATOM)>
+ <NTHUV BR62 1 = TEMP68 (TYPE FIX)>
+ <VEQUAL? TEMP68 2 + PHRASE67 (TYPE FIX)>
+ <DEAD TEMP68>
+ <PUTUV BR62 8 %<>>
+PHRASE67
+ <NTHR 'PRED 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP68 1 BR62 (RECORD-TYPE LBIND)>
+ <DEAD TEMP68>
+ <TYPE? CASE?6 <TYPE-CODE FALSE> + PHRASE72>
+ <NTHUV BR62 1 = TEMP68 (TYPE FIX)>
+ <VEQUAL? TEMP68 2 - PHRASE72 (TYPE FIX)>
+ <DEAD TEMP68>
+ <SET DFLG17 'T (TYPE ATOM)>
+ <JUMP + MAP54>
+PHRASE72
+ <NTHUV BR62 4 = TEMP68>
+ <TYPE? TEMP68 <TYPE-CODE FALSE> - PHRASE76>
+ <DEAD TEMP68>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Empty COND clause: ">
+ <PUSH BR62>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE76
+ <NTHR 'TRUTH 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP68 1 () (RECORD-TYPE LBIND)>
+ <DEAD TEMP68>
+ <NTHR 'UNTRUTH 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP68 1 () (RECORD-TYPE LBIND)>
+ <DEAD TEMP68>
+ <RESTL L7 1 = TEMP68 (TYPE LIST)>
+ <DEAD L7>
+ <EMPL? TEMP68 - TAG82 (TYPE LIST)>
+ <DEAD TEMP68>
+ <SET LAST9 'T (TYPE ATOM)>
+ <JUMP + TAG83>
+TAG82
+ <SET LAST9 %<> (TYPE FALSE)>
+TAG83
+ <NTHUV BR62 5 = TEMP68 (TYPE LIST)>
+ <EMPL? TEMP68 + PHRASE85 (TYPE LIST)>
+ <DEAD TEMP68>
+ <SET EC63 %<> (TYPE FALSE)>
+ <SET TT10 'ANY (TYPE ATOM)>
+ <JUMP + PHRASE87>
+PHRASE85
+ <VEQUAL? LAST9 0 + PHRASE86>
+ <SET TT10 RTYP5>
+ <JUMP + PHRASE87>
+PHRASE86
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH RTYP5>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-MERGE 2 = TT10>
+PHRASE87
+ <TYPE? CASE?6 <TYPE-CODE FALSE> + PHRASE90>
+ <FRAME '\1aSPEC-ANA>
+ <NTHUV BR62 4 = TEMP68>
+ <NTHUV TEMP68 4 = STACK>
+ <DEAD TEMP68>
+ <PUSH PRAT16>
+ <PUSH TST-TYP18>
+ <PUSH TT10>
+ <DEAD TT10>
+ <PUSH DFLG17>
+ <DEAD DFLG17>
+ <PUSH BR62>
+ <PUSH SVWHO19>
+ <CALL '\1aSPEC-ANA 7 = TT10>
+ <JUMP + PHRASE92>
+PHRASE90
+ <FRAME '\1aANA>
+ <NTHUV BR62 4 = STACK (TYPE NODE)>
+ <PUSH TT10>
+ <DEAD TT10>
+ <CALL '\1aANA 2 = TT10>
+PHRASE92
+ <SET DFLG17 %<> (TYPE FALSE)>
+ <NTHR 'PRED 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP68 1 DFLG17 (RECORD-TYPE LBIND)>
+ <DEAD TEMP68>
+ <EQUAL? TT10 'NO-RETURN - TAG97>
+ <SET FNOK11 'T (TYPE ATOM)>
+ <JUMP + TAG99>
+TAG97
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TT10>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-OK? 2 = TEMP68>
+ <TYPE? TEMP68 <TYPE-CODE FALSE> - TAG98>
+ <DEAD TEMP68>
+ <SET FNOK11 'T (TYPE ATOM)>
+ <JUMP + TAG99>
+TAG98
+ <SET FNOK11 %<> (TYPE FALSE)>
+TAG99
+ <FRAME '\1aISTYPE?>
+ <PUSH TT10>
+ <CALL '\1aISTYPE? 1 = TEMP68>
+ <VEQUAL? TEMP68 'FALSE - TAG101>
+ <DEAD TEMP68>
+ <SET NFNOK12 'T (TYPE ATOM)>
+ <JUMP + TAG103>
+TAG101
+ <SET NFNOK12 %<> (TYPE FALSE)>
+TAG103
+ <GEN-LVAL 'VERBOSE = TEMP68>
+ <TYPE? TEMP68 <TYPE-CODE FALSE> + PHRASE116>
+ <DEAD TEMP68>
+ <VEQUAL? NFNOK12 0 + PHRASE109>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <NTHUV BR62 5 = TEMP68 (TYPE LIST)>
+ <EMPL? TEMP68 - PHRASE112 (TYPE LIST)>
+ <DEAD TEMP68>
+ <SET TEMP68 () (TYPE LIST)>
+ <JUMP + PHRASE113>
+PHRASE112
+ <CONS " and non-reachable code in clause." () = TEMP68>
+PHRASE113
+ <NTHUV BR62 4 = L7>
+ <CONS L7 TEMP68 = TEMP68>
+ <DEAD L7>
+ <CONS "Cond predicate always FALSE: " TEMP68 = STACK>
+ <DEAD TEMP68>
+ <CALL '\1aADDVMESS 2>
+PHRASE109
+ <VEQUAL? FNOK11 0 + PHRASE116>
+ <VEQUAL? LAST9 0 - PHRASE116>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <CONS TT10 () = TEMP68>
+ <CONS " type of value: " TEMP68 = TEMP68>
+ <NTHUV BR62 4 = L7>
+ <CONS L7 TEMP68 = TEMP68>
+ <DEAD L7>
+ <CONS "Cond ended prematurely because predicate always true: " TEMP68 = STACK>
+ <DEAD TEMP68>
+ <CALL '\1aADDVMESS 2>
+PHRASE116
+ <VEQUAL? FNOK11 0 - PHRASE120>
+ <VEQUAL? LAST9 0 - BOOL122>
+ <VEQUAL? NFNOK12 0 - PHRASE120>
+BOOL122
+ <FRAME '\1aBUILD-MODIFIED-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <NTHR 'TRUTH 2 = L7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L7 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD L7>
+ <CALL '\1aBUILD-MODIFIED-TYPE-LIST 2 = L7>
+ <NTHR 'TRUTH 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP68 1 L7 (RECORD-TYPE LBIND)>
+ <DEAD TEMP68 L7>
+ <FRAME '\1aBUILD-MODIFIED-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <NTHR 'UNTRUTH 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP68 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP68>
+ <CALL '\1aBUILD-MODIFIED-TYPE-LIST 2 = TEMP68>
+ <NTHR 'UNTRUTH 2 = L7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR L7 1 TEMP68 (RECORD-TYPE LBIND)>
+ <DEAD L7 TEMP68>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = L-D32>
+ <VEQUAL? FIRST8 0 + PHRASE143>
+ <DEAD FIRST8>
+ <NTHR 'UNTRUTH 2 = L7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L7 1 = TINF31 (RECORD-TYPE LBIND)>
+ <DEAD L7>
+ <JUMP + PHRASE146>
+PHRASE143
+ <FRAME '\1aANDUP>
+ <PUSH TINF31>
+ <DEAD TINF31>
+ <NTHR 'UNTRUTH 2 = L7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L7 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD L7>
+ <CALL '\1aANDUP 2 = TINF31>
+PHRASE146
+ <FRAME '\1aASSERT-TYPES>
+ <NTHR 'TRUTH 2 = L7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L7 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD L7>
+ <CALL '\1aASSERT-TYPES 1>
+ <SET FIRST8 %<> (TYPE FALSE)>
+PHRASE120
+ <TYPE? PRED-FLG20 <TYPE-CODE FALSE> + PHRASE154>
+ <NTHR 'UNTRUTH 2 = L7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR L7 1 = SUNT165 (RECORD-TYPE LBIND)>
+ <DEAD L7>
+ <NTHR 'UNTRUTH 2 = L7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR L7 1 () (RECORD-TYPE LBIND)>
+ <DEAD L7>
+ <NTHR 'TRUTH 2 = L7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR L7 1 () (RECORD-TYPE LBIND)>
+ <DEAD L7>
+PHRASE154
+ <VEQUAL? NFNOK12 0 - PHRASE164>
+ <VEQUAL? EC63 0 - BOOL166>
+ <FRAME '\1aSEQ-AN>
+ <NTHUV BR62 5 = STACK (TYPE LIST)>
+ <PUSH RTYP5>
+ <PUSH PRED-FLG20>
+ <CALL '\1aSEQ-AN 3 = TT10>
+ <TYPE? TT10 <TYPE-CODE FALSE> + PHRASE164>
+BOOL166
+ <EQUAL? TT10 'NO-RETURN + PHRASE169>
+ <TYPE? PRED-FLG20 <TYPE-CODE FALSE> + PHRASE196>
+ <FRAME '\1aBUILD-MODIFIED-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <NTHR 'TRUTH 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP68 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP68>
+ <CALL '\1aBUILD-MODIFIED-TYPE-LIST 2 = TEMP68>
+ <NTHR 'TRUTH 2 = NFNOK12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR NFNOK12 1 TEMP68 (RECORD-TYPE LBIND)>
+ <DEAD NFNOK12 TEMP68>
+ <FRAME '\1aBUILD-MODIFIED-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <NTHR 'UNTRUTH 2 = NFNOK12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR NFNOK12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD NFNOK12>
+ <CALL '\1aBUILD-MODIFIED-TYPE-LIST 2 = NFNOK12>
+ <NTHR 'UNTRUTH 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP68 1 NFNOK12 (RECORD-TYPE LBIND)>
+ <DEAD TEMP68 NFNOK12>
+ <VEQUAL? FIRST115 0 + PHRASE190>
+ <NTHR 'TRUTH 2 = NFNOK12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR NFNOK12 1 = STR13 (RECORD-TYPE LBIND)>
+ <DEAD NFNOK12>
+ <FRAME '\1aORUP>
+ <PUSH SUNT165>
+ <NTHR 'UNTRUTH 2 = NFNOK12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR NFNOK12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD NFNOK12>
+ <CALL '\1aORUP 2 = SUNT14>
+ <JUMP + PHRASE196>
+PHRASE190
+ <FRAME '\1aORUP>
+ <PUSH STR13>
+ <DEAD STR13>
+ <NTHR 'TRUTH 2 = NFNOK12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR NFNOK12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD NFNOK12>
+ <CALL '\1aORUP 2 = STR13>
+ <FRAME '\1aORUP>
+ <PUSH SUNT14>
+ <DEAD SUNT14>
+ <FRAME '\1aORUP>
+ <PUSH SUNT165>
+ <NTHR 'UNTRUTH 2 = NFNOK12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR NFNOK12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD NFNOK12>
+ <CALL '\1aORUP 2 = STACK>
+ <CALL '\1aORUP 2 = SUNT14>
+PHRASE196
+ <VEQUAL? FIRST115 0 + PHRASE205>
+ <DEAD FIRST115>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TINF130>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = L-D133>
+ <JUMP + PHRASE212>
+PHRASE205
+ <FRAME '\1aORUPC>
+ <GEN-LVAL 'VARTBL = STACK>
+ <PUSH TINF130>
+ <DEAD TINF130>
+ <CALL '\1aORUPC 2 = TINF130>
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <PUSH L-D133>
+ <DEAD L-D133>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = L-D133>
+PHRASE212
+ <SET FIRST115 %<> (TYPE FALSE)>
+PHRASE169
+ <VEQUAL? FIRST8 0 - BOOL221>
+ <FRAME '\1aRESTORE-L-D-STATE>
+ <PUSH L-D32>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aRESTORE-L-D-STATE 2>
+BOOL221
+ <VEQUAL? LAST9 0 + PHRASE227>
+ <VEQUAL? FNOK11 0 - PHRASE232>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TT10>
+ <DEAD TT10>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-MERGE 2 = TT10>
+ <JUMP + PHRASE232>
+PHRASE227
+ <VEQUAL? EC63 0 + PHRASE232>
+ <DEAD EC63>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TT10>
+ <DEAD TT10>
+ <PUSH <NOT FALSE>>
+ <CALL '\1aTYPE-OK? 2 = TT10>
+ <JUMP + PHRASE232>
+PHRASE164
+ <VEQUAL? NFNOK12 0 + PHRASE232>
+ <DEAD NFNOK12>
+ <SET TT10 'FALSE (TYPE ATOM)>
+PHRASE232
+ <FRAME '\1aUPDATE-SIDE-EFFECTS>
+ <PUSH BR62>
+ <DEAD BR62>
+ <PUSH NOD4>
+ <CALL '\1aUPDATE-SIDE-EFFECTS 2>
+ <VEQUAL? LAST9 0 - BOOL237>
+ <DEAD LAST9>
+ <VEQUAL? FNOK11 0 + PHRASE235>
+BOOL237
+ <TYPE? TT10 <TYPE-CODE FALSE> + PHRASE235>
+ <VEQUAL? FNOK11 0 + PHRASE239>
+ <DEAD FNOK11>
+ <FRAME '\1aASSERT-TYPES>
+ <PUSH TINF130>
+ <DEAD TINF130>
+ <CALL '\1aASSERT-TYPES 1>
+ <VEQUAL? FIRST115 0 - PHRASE255>
+ <DEAD FIRST115>
+ <FRAME '\1aRESTORE-L-D-STATE>
+ <PUSH L-D133>
+ <DEAD L-D133>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aRESTORE-L-D-STATE 2>
+ <JUMP + PHRASE255>
+PHRASE239
+ <VEQUAL? FIRST115 0 + PHRASE248>
+ <DEAD FIRST115>
+ <FRAME '\1aASSERT-TYPES>
+ <PUSH TINF31>
+ <DEAD TINF31>
+ <CALL '\1aASSERT-TYPES 1>
+ <VEQUAL? FIRST8 0 - PHRASE255>
+ <DEAD FIRST8>
+ <FRAME '\1aRESTORE-L-D-STATE>
+ <PUSH L-D32>
+ <DEAD L-D32>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aRESTORE-L-D-STATE 2>
+ <JUMP + PHRASE255>
+PHRASE248
+ <FRAME '\1aASSERT-TYPES>
+ <FRAME '\1aORUP>
+ <PUSH TINF31>
+ <DEAD TINF31>
+ <PUSH TINF130>
+ <DEAD TINF130>
+ <CALL '\1aORUP 2 = STACK>
+ <CALL '\1aASSERT-TYPES 1>
+ <FRAME '\1aMRESTORE-L-D-STATE>
+ <PUSH L-D133>
+ <DEAD L-D133>
+ <PUSH L-D32>
+ <DEAD L-D32>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMRESTORE-L-D-STATE 3>
+PHRASE255
+ <PUSH TT10>
+ <DEAD TT10>
+ <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
+ <JUMP + MAPAP56>
+PHRASE235
+ <TYPE? TT10 <TYPE-CODE FALSE> + PHRASE263>
+ <FRAME '\1aASSERT-TYPES>
+ <PUSH TINF31>
+ <CALL '\1aASSERT-TYPES 1>
+ <JUMP + PHRASE266>
+PHRASE263
+ <FRAME '\1aASSERT-TYPES>
+ <PUSH TINF31>
+ <CALL '\1aASSERT-TYPES 1>
+ <JUMP + MAP54>
+PHRASE266
+ <PUSH TT10>
+ <DEAD TT10>
+ <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
+MAP54
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <JUMP + MAP53>
+MAPAP56
+ <CALL '\1aTYPE-MERGE TEMP59 = TT10>
+ <DEAD TEMP59>
+MAPEX55
+ <UNBIND TEMP25>
+ <DEAD TEMP25>
+ <ADJ -27>
+ <TYPE? PRED-FLG20 <TYPE-CODE FALSE> + PHRASE270>
+ <DEAD PRED-FLG20>
+ <GEN-SET 'TRUTH STR13>
+ <DEAD STR13>
+ <GEN-SET 'UNTRUTH SUNT14>
+ <DEAD SUNT14>
+PHRASE270
+ <RETURN TT10>
+ <DEAD TT10>
+ <END \1aCOND-CASE>
+" PROG/REPEAT analyzer. Hacks bindings and sets up info for GO/RETURN/AGAIN
+ analyzers."
+
+#WORD *34616266606*
+<GFCN \1aPRG-REP-ANA ("VALUE" ANY NODE ANY) PPNOD4 RT5>
+ <TEMP TEMP13 TEMP3:LBIND TEMP16 OPN10 TEMP25 L-D9:LIST TEMP50 STMPS49:FIX SHTMPS53:FIX LL56:LIST TEMP65 TEMP85 TT8>
+ <INTGO>
+ <GEN-LVAL 'VARTBL = TEMP13>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <NTHUV PPNOD4 11 = TEMP16 (TYPE SYMTAB)>
+ <BBIND 'VARTBL 'SYMTAB 'FIX TEMP16>
+ <DEAD TEMP16>
+ <GEN-ASSIGNED? 'PNOD + TAG18>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + BOOL17>
+TAG18
+ <GEN-LVAL 'PNOD = TEMP16>
+BOOL17
+ <SET OPN10 TEMP16>
+ <DEAD TEMP16>
+ <BBIND 'PNOD 'NODE 'FIX>
+ <NTHUV PPNOD4 9 = TEMP16>
+ <GVAL 'BIND = TEMP25>
+ <EQUAL? TEMP16 TEMP25 + PHRASE24>
+ <DEAD TEMP16 TEMP25>
+ <NTHR 'PNOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP25 1 PPNOD4 (RECORD-TYPE LBIND)>
+ <DEAD TEMP25>
+ <JUMP + PHRASE28>
+PHRASE24
+ <TYPE? OPN10 <TYPE-CODE FALSE> + PHRASE28>
+ <NTHR 'PNOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP25 1 OPN10 (RECORD-TYPE LBIND)>
+ <DEAD TEMP25 OPN10>
+PHRASE28
+ <GETS 'BIND = TEMP25 (TYPE LBIND)>
+ <BBIND 'TMPS 'FIX 'FIX 0>
+ <BBIND 'HTMPS 'FIX 'FIX 0>
+ <FRAME '\1aACTIV?>
+ <NTHUV PPNOD4 10 = STACK (TYPE LIST)>
+ <PUSH 'T>
+ <CALL '\1aACTIV? 2 = OPN10>
+ <FRAME '\1aBIND-AN>
+ <NTHUV PPNOD4 10 = STACK (TYPE LIST)>
+ <CALL '\1aBIND-AN 1>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <NTHR 'VARTBL 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP16 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP16>
+ <CALL '\1aSAVE-L-D-STATE 1 = L-D9>
+ <FRAME '\1aRESET-VARS>
+ <NTHR 'VARTBL 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP16 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP16>
+ <PUSH TEMP13>
+ <PUSH 'T>
+ <CALL '\1aRESET-VARS 3>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RT5>
+ <NTHUV PPNOD4 17 = STACK>
+ <CALL '\1aTYPE-OK? 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE45>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Required type of PROG/REPEAT call violates its decl.">
+ <PUSH "Required type is ">
+ <PUSH RT5>
+ <DEAD RT5>
+ <PUSH " and value decl is ">
+ <NTHUV PPNOD4 17 = STACK>
+ <CALL '\1aCOMPILE-ERROR 5>
+PHRASE45
+ <PUTUV PPNOD4 3 TEMP16>
+ <NTHR 'TMPS 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP50 1 = STMPS49 (RECORD-TYPE LBIND)>
+ <DEAD TEMP50>
+ <NTHR 'HTMPS 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP50 1 = SHTMPS53 (RECORD-TYPE LBIND)>
+ <DEAD TEMP50>
+ <GEN-LVAL 'LIFE = LL56>
+ <GEN-LVAL 'VERBOSE = TEMP50>
+ <LOOP>
+AGAIN62
+ <INTGO>
+ <GEN-LVAL 'VERBOSE = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE64>
+ <DEAD TEMP65>
+ <GEN-SET 'VERBOSE TEMP50>
+ <PUTREST TEMP50 ()>
+PHRASE64
+ <FRAME '\1aMUNG-L-D-STATE>
+ <NTHR 'VARTBL 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <CALL '\1aMUNG-L-D-STATE 1>
+ <GEN-SET 'LIFE LL56>
+ <PUTUV PPNOD4 19 %<>>
+ <PUTUV PPNOD4 15 ()>
+ <PUTUV PPNOD4 16 ()>
+ <PUTUV PPNOD4 7 () (TYPE LIST)>
+ <NTHR 'TMPS 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP65 1 STMPS49 (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <NTHR 'HTMPS 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP65 1 SHTMPS53 (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHR 'VARTBL 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP65>
+ <PUTUV PPNOD4 18 TEMP65 (TYPE LIST)>
+ <DEAD TEMP65>
+ <PUTUV PPNOD4 14 'NO-RETURN>
+ <FRAME '\1aSEQ-AN>
+ <NTHUV PPNOD4 5 = STACK (TYPE LIST)>
+ <NTHUV PPNOD4 9 = TEMP65>
+ <GVAL 'REPEAT = TEMP85>
+ <EQUAL? TEMP65 TEMP85 + PHRASE84>
+ <DEAD TEMP65 TEMP85>
+ <SET TEMP85 TEMP16>
+ <JUMP + PHRASE86>
+PHRASE84
+ <SET TEMP85 'ANY (TYPE ATOM)>
+PHRASE86
+ <PUSH TEMP85>
+ <DEAD TEMP85>
+ <CALL '\1aSEQ-AN 2 = TT8>
+ <TYPE? OPN10 <TYPE-CODE FALSE> + PHRASE88>
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+PHRASE88
+ <TYPE? OPN10 <TYPE-CODE FALSE> - BOOL93>
+ <NTHUV PPNOD4 9 = TEMP85>
+ <GVAL 'REPEAT = TEMP65>
+ <EQUAL? TEMP85 TEMP65 + BOOL93>
+ <DEAD TEMP85 TEMP65>
+ <NTHUV PPNOD4 19 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE92>
+ <DEAD TEMP65>
+BOOL93
+ <FRAME '\1aASSUM-OK?>
+ <NTHUV PPNOD4 18 = STACK (TYPE LIST)>
+ <NTHUV PPNOD4 9 = TEMP65>
+ <GVAL 'REPEAT = TEMP85>
+ <EQUAL? TEMP65 TEMP85 + PHRASE98>
+ <DEAD TEMP65 TEMP85>
+ <NTHUV PPNOD4 19 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE98>
+ <DEAD TEMP85>
+ <NTHUV PPNOD4 19 = TEMP85 (TYPE LIST)>
+ <JUMP + PHRASE104>
+PHRASE98
+ <NTHUV PPNOD4 19 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE100>
+ <DEAD TEMP65>
+ <FRAME '\1aORUPC>
+ <NTHR 'VARTBL 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <NTHUV PPNOD4 19 = STACK (TYPE LIST)>
+ <CALL '\1aORUPC 2 = TEMP85>
+ <JUMP + PHRASE104>
+PHRASE100
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHR 'VARTBL 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP85>
+PHRASE104
+ <PUSH TEMP85>
+ <DEAD TEMP85>
+ <CALL '\1aASSUM-OK? 2 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> - PHRASE108>
+ <DEAD TEMP85>
+ <JUMP + AGAIN62>
+PHRASE92
+ <FRAME '\1aACTIV?>
+ <NTHUV PPNOD4 10 = STACK (TYPE LIST)>
+ <PUSH 'T>
+ <CALL '\1aACTIV? 2 = OPN10>
+ <VEQUAL? OPN10 0 + PHRASE108>
+ <FRAME '\1aASSERT-TYPES>
+ <NTHUV PPNOD4 18 = STACK (TYPE LIST)>
+ <CALL '\1aASSERT-TYPES 1>
+ <JUMP + AGAIN62>
+PHRASE108
+ <NTHUV PPNOD4 9 = TEMP85>
+ <GVAL 'REPEAT = TEMP65>
+ <EQUAL? TEMP85 TEMP65 - PHRASE119>
+ <DEAD TEMP85 TEMP65>
+ <NTHUV PPNOD4 19 = TEMP65>
+ <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE115>
+ <DEAD TEMP65>
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <NTHUV PPNOD4 7 = STACK (TYPE LIST)>
+ <NTHR 'VARTBL 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP65>
+ <PUTUV PPNOD4 7 TEMP65 (TYPE LIST)>
+ <DEAD TEMP65>
+ <JUMP + PHRASE119>
+PHRASE115
+ <FRAME '\1aSAVE-L-D-STATE>
+ <NTHR 'VARTBL 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <CALL '\1aSAVE-L-D-STATE 1 = TEMP65>
+ <PUTUV PPNOD4 7 TEMP65 (TYPE LIST)>
+ <DEAD TEMP65>
+PHRASE119
+ <FRAME '\1aSAVE-SURVIVORS>
+ <PUSH L-D9>
+ <DEAD L-D9>
+ <GEN-LVAL 'LIFE = STACK>
+ <PUSH 'T>
+ <CALL '\1aSAVE-SURVIVORS 3>
+ <FRAME '\1aSAVE-SURVIVORS>
+ <NTHUV PPNOD4 7 = STACK (TYPE LIST)>
+ <GEN-LVAL 'LIFE = STACK>
+ <CALL '\1aSAVE-SURVIVORS 2>
+ <TYPE? TT8 <TYPE-CODE FALSE> - PHRASE130>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "PROG/REPEAT returns incorrect type ">
+ <PUSH TEMP16>
+ <PUSH PPNOD4>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE130
+ <EQUAL? TT8 'NO-RETURN + PHRASE133>
+ <NTHUV PPNOD4 9 = TEMP50>
+ <GVAL 'REPEAT = TEMP65>
+ <EQUAL? TEMP50 TEMP65 + PHRASE133>
+ <DEAD TEMP50 TEMP65>
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <NTHUV PPNOD4 15 = STACK (TYPE LIST)>
+ <NTHR 'VARTBL 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP65>
+ <PUTUV PPNOD4 15 TEMP65>
+ <DEAD TEMP65>
+ <NTHUV PPNOD4 14 = TEMP65>
+ <EQUAL? TEMP65 'NO-RETURN + PHRASE146>
+ <DEAD TEMP65>
+ <FRAME '\1aASSERT-TYPES>
+ <FRAME '\1aORUPC>
+ <NTHR 'VARTBL 2 = TEMP65 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP65 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP65>
+ <NTHUV PPNOD4 16 = STACK (TYPE LIST)>
+ <CALL '\1aORUPC 2 = STACK>
+ <CALL '\1aASSERT-TYPES 1>
+ <JUMP + PHRASE146>
+PHRASE133
+ <NTHUV PPNOD4 14 = TEMP65>
+ <EQUAL? TEMP65 'NO-RETURN + PHRASE146>
+ <DEAD TEMP65>
+ <FRAME '\1aASSERT-TYPES>
+ <NTHUV PPNOD4 16 = STACK (TYPE LIST)>
+ <CALL '\1aASSERT-TYPES 1>
+PHRASE146
+ <FRAME '\1aFREST-L-D-STATE>
+ <NTHUV PPNOD4 15 = STACK (TYPE LIST)>
+ <CALL '\1aFREST-L-D-STATE 1>
+ <FRAME '\1aKILL-REM>
+ <GEN-LVAL 'LIFE = STACK>
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <CALL '\1aKILL-REM 2 = TEMP50>
+ <GEN-SET 'LIFE TEMP50>
+ <DEAD TEMP50>
+ <TYPE? OPN10 <TYPE-CODE FALSE> + PHRASE155>
+ <DEAD OPN10>
+ <CONS 'ALL () = TEMP50>
+ <PUTUV PPNOD4 8 TEMP50>
+ <DEAD TEMP50>
+ <SET TEMP50 TEMP16>
+ <DEAD TEMP16>
+ <JUMP + PHRASE159>
+PHRASE155
+ <NTHUV PPNOD4 9 = TEMP13>
+ <GVAL 'REPEAT = TEMP16>
+ <EQUAL? TEMP13 TEMP16 - PHRASE156>
+ <DEAD TEMP13 TEMP16>
+ <NTHUV PPNOD4 14 = TEMP50>
+ <JUMP + PHRASE159>
+PHRASE156
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TT8>
+ <DEAD TT8>
+ <NTHUV PPNOD4 14 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TEMP50>
+PHRASE159
+ <PUTUV PPNOD4 14 TEMP50>
+ <DEAD TEMP50>
+ <UNBIND TEMP25>
+ <DEAD TEMP25>
+ <ADJ -18>
+ <NTHUV PPNOD4 14 = TEMP25>
+ <DEAD PPNOD4>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+ <END \1aPRG-REP-ANA>
+" Determine if assumptions made for this loop are still valid."
+
+#WORD *25666762676*
+<GFCN \1aASSUM-OK? ("VALUE" <OR ATOM FALSE> <LIST [REST <LIST SYMTAB ANY>]> <LIST [REST <LIST SYMTAB ANY>]>) AS4 TY5>
+ <TEMP (OK?6 'T) TEMP9 L22:LIST SYM23 TT24 TEMP27 LL38:LIST TEMP43>
+ <INTGO>
+ <GEN-LVAL 'ANALY-OK = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE91>
+ <DEAD TEMP9>
+ <SET TEMP9 AS4 (TYPE LIST)>
+ <LOOP>
+MAP13
+ <INTGO>
+ <EMPL? TEMP9 + MAPAP16>
+ <NTHL TEMP9 1 = L22>
+ <NTHL L22 1 = SYM23 (TYPE SYMTAB)>
+ <RESTL L22 1 = TEMP27 (TYPE LIST)>
+ <NTHL TEMP27 1 = TEMP27>
+ <VEQUAL? TEMP27 'ANY + MAPAP32>
+ <DEAD TEMP27>
+ <SET TEMP27 TY5 (TYPE LIST)>
+ <LOOP>
+MAP29
+ <INTGO>
+ <EMPL? TEMP27 + MAPAP32>
+ <NTHL TEMP27 1 = LL38>
+ <SET TT24 'T (TYPE ATOM)>
+ <NTHL LL38 1 = TEMP43 (TYPE SYMTAB)>
+ <VEQUAL? TEMP43 SYM23 + TAG42>
+ <DEAD TEMP43>
+ <SET TT24 %<> (TYPE FALSE)>
+ <JUMP + BOOL61>
+TAG42
+ <FRAME '\1aN=?>
+ <RESTL L22 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = STACK>
+ <DEAD TEMP43>
+ <RESTL LL38 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = STACK>
+ <DEAD TEMP43>
+ <CALL '\1aN=? 2 = TEMP43>
+ <VEQUAL? TEMP43 0 + BOOL61>
+ <DEAD TEMP43>
+ <RESTL L22 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = TEMP43>
+ <VEQUAL? TEMP43 'NO-RETURN + BOOL45>
+ <DEAD TEMP43>
+ <FRAME '\1aTYPE-OK?>
+ <RESTL LL38 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = STACK>
+ <DEAD TEMP43>
+ <FRAME '\1aNOTIFY>
+ <RESTL L22 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = STACK>
+ <DEAD TEMP43>
+ <CALL '\1aNOTIFY 1 = STACK>
+ <CALL '\1aTYPE-OK? 2 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL61>
+ <DEAD TEMP43>
+BOOL45
+ <VEQUAL? OK?6 0 + PHRASE57>
+ <DEAD OK?6>
+ <FRAME '\1a+>
+ <GEN-LVAL 'BACKTRACK = STACK>
+ <PUSH 1>
+ <CALL '\1a+ 2 = OK?6>
+ <GEN-SET 'BACKTRACK OK?6>
+ <DEAD OK?6>
+ <GVAL 'STATUS-LINE = OK?6>
+ <TYPE? OK?6 <TYPE-CODE FALSE> + PHRASE57>
+ <DEAD OK?6>
+ <FRAME '\1aUPDATE-STATUS>
+ <PUSH "Comp">
+ <PUSH %<>>
+ <PUSH "ANA">
+ <GEN-LVAL 'BACKTRACK = STACK>
+ <CALL '\1aUPDATE-STATUS 4>
+PHRASE57
+ <SET OK?6 %<> (TYPE FALSE)>
+ <NTHR 'DEBUGSW 1 = TEMP43 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL61)>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL61>
+ <NTHR TEMP43 1 = TEMP43 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP43 <TYPE-CODE UNBOUND> + BOOL61>
+ <DEAD TEMP43>
+ <GVAL 'DEBUGSW = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL61>
+ <DEAD TEMP43>
+ <FRAME '\1aPRIN1>
+ <NTHUV SYM23 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " NOT OK current type: ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <RESTL LL38 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = STACK>
+ <DEAD TEMP43>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP43>
+ <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL61>
+ <DEAD TEMP43>
+ <FRAME '\1aPRINC>
+ <PUSH " assumed type: ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <RESTL L22 1 = TEMP43 (TYPE LIST)>
+ <NTHL TEMP43 1 = STACK>
+ <DEAD TEMP43>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aCRLF>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aCRLF 1>
+BOOL61
+ <VEQUAL? TT24 0 + BOOL86>
+ <DEAD TT24>
+ <FRAME '\1aTYPE-MERGE>
+ <RESTL LL38 1 = SYM23 (TYPE LIST)>
+ <DEAD LL38>
+ <NTHL SYM23 1 = STACK>
+ <DEAD SYM23>
+ <RESTL L22 1 = SYM23 (TYPE LIST)>
+ <NTHL SYM23 1 = STACK>
+ <DEAD SYM23>
+ <CALL '\1aTYPE-MERGE 2 = SYM23>
+ <RESTL L22 1 = L22 (TYPE LIST)>
+ <PUTL L22 1 SYM23>
+ <DEAD L22 SYM23>
+ <JUMP + MAPAP32>
+BOOL86
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <JUMP + MAP29>
+MAPAP32
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <JUMP + MAP13>
+MAPAP16
+ <VEQUAL? OK?6 0 - PHRASE91>
+ <FRAME '\1aASSERT-TYPES>
+ <PUSH AS4>
+ <DEAD AS4>
+ <CALL '\1aASSERT-TYPES 1>
+PHRASE91
+ <RETURN OK?6>
+ <DEAD OK?6>
+ <END \1aASSUM-OK?>\r\r
+#WORD *2510174746*
+<GFCN \1aNOTIFY ("VALUE" ANY ANY) D4>
+ <TEMP TEMP8>
+ <INTGO>
+ <TYPE? D4 <TYPE-CODE FORM> - PHRASE6>
+ <EMPL? D4 + PHRASE6>
+ <RESTL D4 1 = TEMP8 (TYPE LIST)>
+ <EMPL? TEMP8 + PHRASE6>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <EMPL? TEMP8 - PHRASE6>
+ <DEAD TEMP8>
+ <NTHL D4 1 = TEMP8>
+ <EQUAL? TEMP8 'NOT - PHRASE6>
+ <DEAD TEMP8>
+ <RESTL D4 1 = TEMP8 (TYPE LIST)>
+ <DEAD D4>
+ <NTHL TEMP8 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE6
+ <FRAME '\1aFORM>
+ <PUSH 'NOT>
+ <PUSH D4>
+ <DEAD D4>
+ <CALL '\1aFORM 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aNOTIFY>
+" Analyze RETURN from a PROG/REPEAT. Check with PROGs final type."
+
+#WORD *14173266614*
+<GFCN \1aRETURN-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TT6 LN8:FIX TEMP15 N7>
+ <INTGO>
+ <NTHUV NOD4 5 = TT6 (TYPE LIST)>
+ <LENL TT6 = LN8 (TYPE FIX)>
+ <GEN-SET 'RET-OR-AGAIN 'T>
+ <GRTR? LN8 2 - PHRASE13 (TYPE FIX)>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many args to RETURN.">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE13
+ <VEQUAL? LN8 2 - BOOL18 (TYPE FIX)>
+ <FRAME '\1aACT-CHECK>
+ <RESTL TT6 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = STACK (TYPE NODE)>
+ <DEAD TEMP15>
+ <CALL '\1aACT-CHECK 1 = N7>
+ <TYPE? N7 <TYPE-CODE FALSE> - BOOL17>
+BOOL18
+ <GRTR? LN8 1 + PHRASE16 (TYPE FIX)>
+ <FRAME '\1aPROGCHK>
+ <PUSH 'RETURN>
+ <PUSH NOD4>
+ <CALL '\1aPROGCHK 2 = N7>
+ <TYPE? N7 <TYPE-CODE FALSE> + PHRASE16>
+BOOL17
+ <VEQUAL? LN8 0 - BOOL25 (TYPE FIX)>
+ <DEAD LN8>
+ <FRAME '\1aNODE1>
+ <PUSH 2>
+ <PUSH NOD4>
+ <PUSH 'ATOM>
+ <PUSH 'T>
+ <PUSH ()>
+ <CALL '\1aNODE1 5 = TEMP15>
+ <CONS TEMP15 () = TT6>
+ <DEAD TEMP15>
+ <PUTUV NOD4 5 TT6 (TYPE LIST)>
+BOOL25
+ <FRAME '\1aEANA>
+ <NTHL TT6 1 = STACK (TYPE NODE)>
+ <DEAD TT6>
+ <NTHUV N7 17 = STACK>
+ <PUSH 'RETURN>
+ <CALL '\1aEANA 3 = TT6>
+ <NTHUV N7 14 = TEMP15>
+ <EQUAL? TEMP15 'NO-RETURN - PHRASE31>
+ <DEAD TEMP15>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHUV N7 11 = STACK (TYPE SYMTAB)>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP15>
+ <PUTUV N7 16 TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = TEMP15>
+ <PUTUV N7 15 TEMP15>
+ <DEAD TEMP15>
+ <JUMP + PHRASE37>
+PHRASE31
+ <FRAME '\1aORUPC>
+ <NTHUV N7 11 = STACK (TYPE SYMTAB)>
+ <NTHUV N7 16 = STACK (TYPE LIST)>
+ <CALL '\1aORUPC 2 = TEMP15>
+ <PUTUV N7 16 TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <NTHUV N7 15 = STACK (TYPE LIST)>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP15>
+ <PUTUV N7 15 TEMP15>
+ <DEAD TEMP15>
+PHRASE37
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TT6>
+ <DEAD TT6>
+ <NTHUV N7 14 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TEMP15>
+ <PUTUV N7 14 TEMP15>
+ <DEAD N7 TEMP15>
+ <PUTUV NOD4 1 14 (TYPE FIX)>
+ <DEAD NOD4>
+ <RETURN 'NO-RETURN>
+PHRASE16
+ <FRAME '\1aSUBR-C-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH 'ANY>
+ <CALL '\1aSUBR-C-AN 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aRETURN-ANA>
+<COND (<GASSIGNED? RETURN-ANA> <PUTPROP ,RETURN ANALYSIS ,RETURN-ANA>)>
+
+#WORD *32110752416*
+<GFCN \1aMULTI-RETURN-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TT6:LIST LN8 (SEG10 %<>) TYPS11:FORM TP12:LIST TEMP24 NN41 TEMP45>
+ <INTGO>
+ <NTHUV NOD4 5 = TT6 (TYPE LIST)>
+ <LENL TT6 = LN8 (TYPE FIX)>
+ <FRAME '\1aFORM>
+ <PUSH 'MULTI>
+ <CALL '\1aFORM 1 = TYPS11>
+ <CHTYPE TYPS11 <TYPE-CODE LIST> = TP12>
+ <LESS? LN8 1 - PHRASE15 (TYPE FIX)>
+ <DEAD LN8>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too few args to MULTI-RETURN.">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2 = SEG10>
+ <RETURN SEG10>
+ <DEAD SEG10>
+PHRASE15
+ <NTHL TT6 1 = LN8 (TYPE NODE)>
+ <NTHUV LN8 1 = TEMP24 (TYPE FIX)>
+ <VEQUAL? TEMP24 2 - PHRASE22 (TYPE FIX)>
+ <DEAD TEMP24>
+ <NTHUV LN8 4 = TEMP24>
+ <EQUAL? TEMP24 %<> - PHRASE22>
+ <DEAD TEMP24>
+ <FRAME '\1aPROGCHK>
+ <PUSH 'MULTI-RETURN>
+ <PUSH LN8>
+ <DEAD LN8>
+ <CALL '\1aPROGCHK 2 = LN8>
+ <JUMP + PHRASE27>
+PHRASE22
+ <FRAME '\1aACT-CHECK>
+ <PUSH LN8>
+ <DEAD LN8>
+ <CALL '\1aACT-CHECK 1 = LN8>
+ <TYPE? LN8 <TYPE-CODE FALSE> - PHRASE27>
+ <FRAME '\1aEANA>
+ <NTHL TT6 1 = STACK (TYPE NODE)>
+ <PUSH <OR FRAME FRAME>>
+ <PUSH 'MULTI-RETURN>
+ <CALL '\1aEANA 3>
+PHRASE27
+ <RESTL TT6 1 = TEMP24 (TYPE LIST)>
+ <DEAD TT6>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPL? TEMP24 + MAPAP33>
+ <SET TT6 TEMP24>
+ <NTHL TT6 1 = NN41 (TYPE NODE)>
+ <NTHUV NN41 1 = TEMP45 (TYPE FIX)>
+ <VEQUAL? TEMP45 3 - PHRASE44 (TYPE FIX)>
+ <DEAD TEMP45>
+ <FRAME '\1aEANA>
+ <NTHUV NN41 5 = TEMP45 (TYPE LIST)>
+ <DEAD NN41>
+ <NTHL TEMP45 1 = STACK (TYPE NODE)>
+ <DEAD TEMP45>
+ <PUSH <OR MULTI STRUCTURED>>
+ <PUSH 'MULTI-RETURN>
+ <CALL '\1aEANA 3 = NN41>
+ <EQUAL? NN41 'ANY + PHRASE48>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH NN41>
+ <DEAD NN41>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = NN41>
+ <EQUAL? NN41 'ANY + PHRASE48>
+ <TYPE? SEG10 <TYPE-CODE FALSE> - PHRASE52>
+ <RESTL TT6 1 = TEMP45 (TYPE LIST)>
+ <EMPL? TEMP45 - PHRASE52 (TYPE LIST)>
+ <DEAD TEMP45>
+ <PUSH 'REST>
+ <PUSH NN41>
+ <DEAD NN41>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP45>
+ <CONS TEMP45 () = TEMP45>
+ <PUTREST TP12 TEMP45>
+ <DEAD TEMP45>
+ <JUMP + PHRASE65>
+PHRASE52
+ <RESTL TT6 1 = TEMP45 (TYPE LIST)>
+ <DEAD TT6>
+ <EMPL? TEMP45 - PHRASE55 (TYPE LIST)>
+ <DEAD TEMP45>
+ <EQUAL? SEG10 'ANY + PHRASE55>
+ <PUSH 'REST>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH SEG10>
+ <PUSH NN41>
+ <DEAD NN41>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP45>
+ <CONS TEMP45 () = TEMP45>
+ <PUTREST TP12 TEMP45>
+ <DEAD TEMP45>
+ <JUMP + PHRASE65>
+PHRASE55
+ <EQUAL? SEG10 'ANY + PHRASE65>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH SEG10>
+ <DEAD SEG10>
+ <PUSH NN41>
+ <DEAD NN41>
+ <CALL '\1aTYPE-MERGE 2 = SEG10>
+ <JUMP + PHRASE65>
+PHRASE48
+ <SET SEG10 'ANY (TYPE ATOM)>
+ <JUMP + PHRASE65>
+PHRASE44
+ <FRAME '\1aEANA>
+ <PUSH NN41>
+ <DEAD NN41>
+ <PUSH 'ANY>
+ <PUSH 'MULTI-RETURN>
+ <CALL '\1aEANA 3 = NN41>
+ <TYPE? SEG10 <TYPE-CODE FALSE> - PHRASE65>
+ <SET TEMP45 TP12>
+ <DEAD TP12>
+ <CONS NN41 () = TP12>
+ <DEAD NN41>
+ <PUTREST TEMP45 TP12>
+ <DEAD TEMP45>
+PHRASE65
+ <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
+ <JUMP + MAP30>
+MAPAP33
+ <TYPE? LN8 <TYPE-CODE FALSE> + PHRASE67>
+ <NTHUV LN8 14 = TEMP24>
+ <EQUAL? TEMP24 'NO-RETURN - PHRASE67>
+ <DEAD TEMP24>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHUV LN8 11 = STACK (TYPE SYMTAB)>
+ <CALL '\1aBUILD-TYPE-LIST 1 = SEG10>
+ <PUTUV LN8 16 SEG10>
+ <DEAD SEG10>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = SEG10>
+ <PUTUV LN8 15 SEG10>
+ <DEAD SEG10>
+ <JUMP + PHRASE73>
+PHRASE67
+ <TYPE? LN8 <TYPE-CODE FALSE> + PHRASE73>
+ <FRAME '\1aORUPC>
+ <NTHUV LN8 11 = STACK (TYPE SYMTAB)>
+ <NTHUV LN8 16 = STACK (TYPE LIST)>
+ <CALL '\1aORUPC 2 = SEG10>
+ <PUTUV LN8 16 SEG10>
+ <DEAD SEG10>
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <NTHUV LN8 15 = STACK (TYPE LIST)>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP24>
+ <PUTUV LN8 15 TEMP24>
+ <DEAD TEMP24>
+PHRASE73
+ <TYPE? LN8 <TYPE-CODE FALSE> + PHRASE79>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH TYPS11>
+ <DEAD TYPS11>
+ <NTHUV LN8 14 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TEMP24>
+ <PUTUV LN8 14 TEMP24>
+ <DEAD LN8 TEMP24>
+PHRASE79
+ <PUTUV NOD4 1 94 (TYPE FIX)>
+ <DEAD NOD4>
+ <RETURN 'NO-RETURN>
+ <END \1aMULTI-RETURN-ANA>
+<COND (<AND <GASSIGNED? MULTI-RETURN> <GASSIGNED? MULTI-RETURN-ANA>> <PUTPROP ,MULTI-RETURN ANALYSIS ,MULTI-RETURN-ANA>)>
+
+#WORD *4461653747*
+<GFCN \1aACT-CHECK ("VALUE" <OR FALSE NODE> NODE "OPTIONAL" ANY) N6 RETMNG7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH 'T>
+OPT5
+ <TEMP NT11 TEMP17 SYM8>
+ <INTGO>
+ <NTHUV N6 1 = NT11 (TYPE FIX)>
+ <VEQUAL? NT11 10 - BOOL16 (TYPE FIX)>
+ <NTHUV N6 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE SYMTAB> - BOOL16>
+ <DEAD TEMP17>
+ <NTHUV N6 4 = SYM8 (TYPE SYMTAB)>
+ <NTHUV SYM8 6 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL16>
+ <DEAD TEMP17>
+ <NTHUV SYM8 4 = TEMP17 (TYPE FIX)>
+ <VEQUAL? TEMP17 1 + TAG31 (TYPE FIX)>
+ <DEAD TEMP17>
+BOOL16
+ <VEQUAL? NT11 9 + TAG22 (TYPE FIX)>
+ <VEQUAL? NT11 6 + TAG22 (TYPE FIX)>
+ <DEAD NT11>
+ <RETURN %<>>
+TAG22
+ <NTHUV N6 9 = TEMP17>
+ <GVAL 'LVAL = NT11>
+ <EQUAL? TEMP17 NT11 + TAG23>
+ <DEAD TEMP17 NT11>
+ <RETURN %<>>
+TAG23
+ <NTHUV N6 5 = NT11 (TYPE LIST)>
+ <EMPL? NT11 + TAG26>
+ <RESTL NT11 1 = NT11 (TYPE LIST)>
+ <EMPL? NT11 + TAG25>
+ <DEAD NT11>
+TAG26
+ <RETURN %<>>
+TAG25
+ <NTHUV N6 5 = NT11 (TYPE LIST)>
+ <NTHL NT11 1 = TEMP17 (TYPE NODE)>
+ <DEAD NT11>
+ <NTHUV TEMP17 1 = NT11 (TYPE FIX)>
+ <VEQUAL? NT11 2 + TAG27 (TYPE FIX)>
+ <DEAD NT11>
+ <RETURN %<>>
+TAG27
+ <NTHUV TEMP17 4 = NT11>
+ <TYPE? NT11 <TYPE-CODE ATOM> + TAG28>
+ <DEAD NT11>
+ <RETURN %<>>
+TAG28
+ <FRAME '\1aSRCH-SYM>
+ <NTHUV TEMP17 4 = STACK (TYPE ATOM)>
+ <DEAD TEMP17>
+ <CALL '\1aSRCH-SYM 1 = SYM8>
+ <SET TEMP17 SYM8>
+ <VEQUAL? TEMP17 0 + PHRASE36>
+ <NTHUV SYM8 6 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE36>
+ <NTHUV SYM8 4 = NT11 (TYPE FIX)>
+ <VEQUAL? NT11 1 + TAG31 (TYPE FIX)>
+ <DEAD NT11>
+ <RETURN %<>>
+TAG31
+ <NTHUV SYM8 11 = TEMP17>
+ <FRAME '\1aEANA>
+ <PUSH N6>
+ <DEAD N6>
+ <PUSH 'FRAME>
+ <PUSH 'AGAIN-RETURN>
+ <CALL '\1aEANA 3>
+ <TYPE? RETMNG7 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD RETMNG7>
+ <PUTUV SYM8 11 TEMP17>
+ <DEAD SYM8>
+PHRASE36
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aACT-CHECK>
+" AGAIN analyzer."
+
+#WORD *3524502256*
+<GFCN \1aAGAIN-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEM6:LIST N7 TEMP16>
+ <INTGO>
+ <NTHUV NOD4 5 = TEM6 (TYPE LIST)>
+ <GEN-SET 'RET-OR-AGAIN 'T>
+ <EMPL? TEM6 - BOOL13 (TYPE LIST)>
+ <FRAME '\1aPROGCHK>
+ <PUSH 'AGAIN>
+ <PUSH NOD4>
+ <CALL '\1aPROGCHK 2 = N7>
+ <TYPE? N7 <TYPE-CODE FALSE> - BOOL12>
+BOOL13
+ <RESTL TEM6 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 - PHRASE11 (TYPE LIST)>
+ <DEAD TEMP16>
+ <FRAME '\1aACT-CHECK>
+ <NTHL TEM6 1 = STACK (TYPE NODE)>
+ <CALL '\1aACT-CHECK 1 = N7>
+ <TYPE? N7 <TYPE-CODE FALSE> + PHRASE11>
+BOOL12
+ <PUTUV NOD4 1 17 (TYPE FIX)>
+ <DEAD NOD4>
+ <NTHUV N7 19 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE19>
+ <DEAD TEMP16>
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <NTHUV N7 7 = STACK (TYPE LIST)>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP16>
+ <PUTUV N7 7 TEMP16 (TYPE LIST)>
+ <DEAD TEMP16>
+ <JUMP + PHRASE24>
+PHRASE19
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = TEMP16>
+ <PUTUV N7 7 TEMP16 (TYPE LIST)>
+ <DEAD TEMP16>
+PHRASE24
+ <NTHUV N7 19 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE30>
+ <DEAD TEMP16>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHUV N7 11 = STACK (TYPE SYMTAB)>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP16>
+ <JUMP + PHRASE32>
+PHRASE30
+ <FRAME '\1aORUPC>
+ <NTHUV N7 11 = STACK (TYPE SYMTAB)>
+ <NTHUV N7 19 = STACK (TYPE LIST)>
+ <CALL '\1aORUPC 2 = TEMP16>
+PHRASE32
+ <PUTUV N7 19 TEMP16>
+ <DEAD N7 TEMP16>
+ <RETURN 'NO-RETURN>
+PHRASE11
+ <RESTL TEM6 1 = N7 (TYPE LIST)>
+ <EMPL? N7 - PHRASE34 (TYPE LIST)>
+ <DEAD N7>
+ <FRAME '\1aANA>
+ <NTHL TEM6 1 = STACK (TYPE NODE)>
+ <DEAD TEM6>
+ <PUSH 'FRAME>
+ <CALL '\1aANA 2 = N7>
+ <TYPE? N7 <TYPE-CODE FALSE> - PHRASE37>
+ <DEAD N7>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Again not passed an activation">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE37
+ <RETURN 'ANY>
+PHRASE34
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many arguments to AGAIN">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aAGAIN-ANA>
+<COND (<GASSIGNED? AGAIN-ANA> <PUTPROP ,AGAIN ANALYSIS ,AGAIN-ANA>)>
+
+" If not in PROG/REPEAT complain about NAME."
+
+#WORD *11273451037*
+<GFCN \1aPROGCHK ("VALUE" ANY ANY NODE) NAME4 NOD5>
+ <TEMP TEMP8>
+ <INTGO>
+ <GEN-ASSIGNED? 'PNOD + PHRASE7>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Not in PROG/REPEAT ">
+ <PUSH NAME4>
+ <DEAD NAME4>
+ <PUSH NOD5>
+ <DEAD NOD5>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE7
+ <GEN-LVAL 'PNOD = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aPROGCHK>
+" Dispatch to special handlers for SUBRs. Or use standard."
+
+#WORD *13465544662*
+<GFCN \1aSUBR-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEMP8 TEMP9>
+ <INTGO>
+ <FRAME>
+ <FRAME '\1aGETPROP>
+ <NTHUV NOD4 9 = STACK>
+ <PUSH 'ANALYSIS>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEMP8>
+ <CFRAME = TEMP9 (TYPE FRAME)>
+ <EQUAL? TEMP9 TEMP8 - TAG10>
+ <DEAD TEMP9>
+ <GVAL 'SUBR-C-AN = TEMP8>
+TAG10
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <ACALL TEMP8 2 = TEMP9>
+ <DEAD TEMP8>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aSUBR-ANA>
+" Hairy SUBR call analyzer. Also looks for internal calls."
+
+#WORD *21003011643*
+<GFCN \1aANONFSUBR-C-AN1 ("VALUE" <OR ATOM FIX> "TUPLE" TUPLE)>
+ <MAKTUP T4:TUPLE NARGS17 N8 TPL9 RGS10:FIX = T4>
+ <INTGO>
+ <GEN-LVAL 'NRGS1 = NARGS17>
+ <GEN-LVAL 'NOD = N8>
+ <GEN-LVAL 'TMPL = TPL9>
+ <GEN-LVAL 'ARGS = RGS10>
+ <RESTL TPL9 1 = TPL9 (TYPE LIST)>
+ <NTHL TPL9 1 = TPL9>
+ <GEN-SET 'TYP TPL9>
+ <DEAD TPL9>
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+ <NTHUV N8 6 = TPL9>
+ <TYPE? TPL9 <TYPE-CODE FALSE> + PHRASE28>
+ <DEAD TPL9>
+ <GEN-LVAL 'TYP = NARGS17>
+ <TYPE? NARGS17 <TYPE-CODE ATOM> - TAG34>
+ <RETURN 'ATOM>
+TAG34
+ <TYPE? NARGS17 <TYPE-CODE FORM> - TAG35>
+ <DEAD NARGS17>
+ <RETURN 'FORM>
+TAG35
+ <SET TPL9 'ANY (TYPE ATOM)>
+ <GEN-SET 'TYP TPL9>
+ <RETURN TPL9>
+ <DEAD TPL9>
+PHRASE28
+ <TYPE? NARGS17 <TYPE-CODE FIX> - PHRASE41>
+ <FRAME '\1aARGCHK>
+ <PUSH RGS10>
+ <PUSH NARGS17>
+ <DEAD NARGS17>
+ <NTHUV N8 4 = STACK>
+ <DEAD N8>
+ <GEN-LVAL 'NOD = STACK>
+ <CALL '\1aARGCHK 4>
+ <JUMP + PHRASE51>
+PHRASE41
+ <TYPE? NARGS17 <TYPE-CODE LIST> - PHRASE51>
+ <RESTL NARGS17 1 = TPL9 (TYPE LIST)>
+ <NTHL TPL9 1 = TPL9 (TYPE FIX)>
+ <GRTR? RGS10 TPL9 - PHRASE47 (TYPE FIX)>
+ <DEAD TPL9>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many arguments to ">
+ <NTHUV N8 4 = STACK>
+ <PUSH N8>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE47
+ <NTHL NARGS17 1 = TPL9 (TYPE FIX)>
+ <DEAD NARGS17>
+ <LESS? RGS10 TPL9 - PHRASE51 (TYPE FIX)>
+ <DEAD TPL9>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too few arguments to ">
+ <NTHUV N8 4 = STACK>
+ <PUSH N8>
+ <DEAD N8>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE51
+ <GEN-LVAL 'TYP = TPL9>
+ <TYPE? TPL9 <TYPE-CODE ATOM> + PHRASE56>
+ <TYPE? TPL9 <TYPE-CODE FORM> + PHRASE56>
+ <DEAD TPL9>
+ <FRAME>
+ <GEN-LVAL 'TYP = NARGS17>
+ <SET TPL9 0 (TYPE FIX)>
+ <SET N8 T4>
+ <DEAD T4>
+ <LOOP (N8 VALUE LENGTH) (TPL9 VALUE)>
+TAG63
+ <INTGO>
+ <EMPUV? N8 + TAG57>
+ <NTHUV N8 1 = STACK>
+ <RESTUV N8 1 = N8 (TYPE VECTOR)>
+ <ADD TPL9 1 = TPL9 (TYPE FIX)>
+ <JUMP + TAG63>
+TAG57
+ <ACALL NARGS17 TPL9 = N8>
+ <DEAD NARGS17 TPL9>
+ <GEN-SET 'TYP N8>
+ <DEAD N8>
+PHRASE56
+ <SET TPL9 RGS10>
+ <DEAD RGS10>
+ <GEN-SET 'ARGS TPL9>
+ <RETURN TPL9>
+ <DEAD TPL9>
+ <END \1aANONFSUBR-C-AN1>
+ <GFCN \1aSUBR-C-AN ("VALUE" ANY NODE ANY) NOD5 RTYP6>
+ <TEMP TEMP4:LBIND TEMP12 TEMP28 TEMP25 N31:NODE TEMP39:FIX>
+ <INTGO>
+ <GETS 'BIND = TEMP4 (TYPE LBIND)>
+ <BBIND 'NOD 'NODE %<> NOD5>
+ <DEAD NOD5>
+ <FIXBIND>
+ <BBIND 'ARGS 'FIX 'FIX 0>
+ <BBIND 'TYP 'ANY 'FIX 'ANY>
+ <FRAME '\1aGET-TMP>
+ <NTHR 'NOD 2 = TEMP12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE LBIND)>
+ <NTHUV TEMP12 9 = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aGET-TMP 1 = TEMP12>
+ <BBIND 'TMPL 'LIST 'FIX TEMP12>
+ <DEAD TEMP12>
+ <NTHR 'TMPL 2 = TEMP12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP12 1 = TEMP12 (RECORD-TYPE LBIND)>
+ <NTHL TEMP12 1 = TEMP12>
+ <BBIND 'NRGS1 'ANY 'FIX TEMP12>
+ <DEAD TEMP12>
+ <NTHR 'NOD 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP12 (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <NTHUV TEMP12 5 = TEMP12 (TYPE LIST)>
+ <SET TEMP25 0 (TYPE FIX)>
+ <FRAME '\1aANONFSUBR-C-AN1>
+ <LOOP>
+MAP19
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP22>
+ <NTHL TEMP12 1 = N31>
+ <NTHUV N31 1 = TEMP28 (TYPE FIX)>
+ <VEQUAL? TEMP28 3 - PHRASE34 (TYPE FIX)>
+ <DEAD TEMP28>
+ <FRAME '\1aEANA>
+ <NTHUV N31 5 = TEMP28 (TYPE LIST)>
+ <DEAD N31>
+ <NTHL TEMP28 1 = STACK (TYPE NODE)>
+ <DEAD TEMP28>
+ <PUSH <OR MULTI STRUCTURED>>
+ <PUSH 'SEGMENT>
+ <CALL '\1aEANA 3>
+ <NTHR 'NOD 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP28 6 'T>
+ <DEAD TEMP28>
+ <SET TEMP28 'ANY (TYPE ATOM)>
+ <JUMP + PHRASE38>
+PHRASE34
+ <NTHR 'ARGS 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = TEMP39 (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
+ <NTHR 'ARGS 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP28 1 TEMP39 (RECORD-TYPE LBIND)>
+ <DEAD TEMP28 TEMP39>
+ <FRAME '\1aANA>
+ <PUSH N31>
+ <DEAD N31>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TEMP28>
+PHRASE38
+ <PUSH TEMP28>
+ <DEAD TEMP28>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP19>
+MAPAP22
+ <CALL '\1aANONFSUBR-C-AN1 TEMP25>
+ <DEAD TEMP25>
+ <CONS 'ALL () = TEMP12>
+ <NTHR 'NOD 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE LBIND)>
+ <PUTUV TEMP25 8 TEMP12>
+ <DEAD TEMP25 TEMP12>
+ <FRAME '\1aTYPE-OK?>
+ <NTHR 'TYP 2 = TEMP25 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP25 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP25>
+ <PUSH RTYP6>
+ <DEAD RTYP6>
+ <CALL '\1aTYPE-OK? 2 = TEMP25>
+ <UNBIND TEMP4>
+ <DEAD TEMP4>
+ <ADJ -45>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+ <END \1aSUBR-C-AN>\r\r
+#WORD *21745671243*
+<GFCN \1aSEGMENT-ANA ("VALUE" ANY ANY ANY) NOD4 RTYP5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Illegal segment (not in form or structure)">
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSEGMENT-ANA>
+" Analyze VECTOR, UVECTOR and LIST builders."
+
+#WORD *16715071477*
+<GFCN \1aCOPY-AN ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP (ARGS6:FIX 0) RT7 K8:LIST LWIN10 SG25 FRM26:FORM FRME28:LIST GOTDC29 TEMP37 DC20 STY21 PTY22 N9 TEM23 TEMP60>
+ <INTGO>
+ <FRAME '\1aISTYPE?>
+ <NTHUV NOD4 3 = STACK>
+ <CALL '\1aISTYPE? 1 = RT7>
+ <NTHUV NOD4 5 = K8 (TYPE LIST)>
+ <VEQUAL? RT7 'LIST - TAG14>
+ <SET LWIN10 'T (TYPE ATOM)>
+ <JUMP + TAG15>
+TAG14
+ <SET LWIN10 %<> (TYPE FALSE)>
+TAG15
+ <EMPL? K8 + EXIT18 (TYPE LIST)>
+ <SET SG25 %<> (TYPE FALSE)>
+ <FRAME '\1aFORM>
+ <PUSH RT7>
+ <CALL '\1aFORM 1 = FRM26>
+ <CHTYPE FRM26 <TYPE-CODE LIST> = FRME28>
+ <SET GOTDC29 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN30
+ <INTGO>
+ <EMPL? K8 - PHRASE32 (TYPE LIST)>
+ <VEQUAL? RT7 'LIST - PHRASE34>
+ <DEAD RT7>
+ <RESTL FRM26 1 = TEMP37 (TYPE LIST)>
+ <CHTYPE TEMP37 <TYPE-CODE LIST> = TEMP37>
+ <EMPL? TEMP37 - PHRASE36 (TYPE LIST)>
+ <DEAD TEMP37>
+ <NTHL FRM26 1 = RT7>
+ <DEAD FRM26>
+ <JUMP + EXIT18>
+PHRASE36
+ <SET RT7 FRM26>
+ <DEAD FRM26>
+ <JUMP + EXIT18>
+PHRASE34
+ <TYPE? DC20 <TYPE-CODE FALSE> + PHRASE40>
+ <PUSH 'REST>
+ <PUSH DC20>
+ <DEAD DC20>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP37>
+ <CONS TEMP37 () = TEMP37>
+ <PUTREST FRME28 TEMP37>
+ <DEAD FRME28 TEMP37>
+ <JUMP + PHRASE44>
+PHRASE40
+ <TYPE? STY21 <TYPE-CODE FALSE> + PHRASE42>
+ <PUSH 'REST>
+ <PUSH STY21>
+ <DEAD STY21>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP37>
+ <CONS TEMP37 () = TEMP37>
+ <PUTREST FRME28 TEMP37>
+ <DEAD FRME28 TEMP37>
+ <JUMP + PHRASE44>
+PHRASE42
+ <TYPE? PTY22 <TYPE-CODE FALSE> + PHRASE44>
+ <PUSH 'REST>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH PTY22>
+ <DEAD PTY22>
+ <CALL '\1aFORM 2 = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP37>
+ <CONS TEMP37 () = TEMP37>
+ <PUTREST FRME28 TEMP37>
+ <DEAD FRME28 TEMP37>
+PHRASE44
+ <SET RT7 FRM26>
+ <DEAD FRM26>
+ <JUMP + EXIT18>
+PHRASE32
+ <NTHL K8 1 = N9 (TYPE NODE)>
+ <NTHUV N9 1 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 3 + BOOL48 (TYPE FIX)>
+ <VEQUAL? TEMP37 68 - PHRASE47 (TYPE FIX)>
+ <DEAD TEMP37>
+BOOL48
+ <FRAME '\1aGET-ELE-TYPE>
+ <FRAME '\1aEANA>
+ <NTHUV N9 5 = TEMP37 (TYPE LIST)>
+ <NTHL TEMP37 1 = STACK (TYPE NODE)>
+ <DEAD TEMP37>
+ <PUSH <OR MULTI STRUCTURED>>
+ <PUSH 'SEGMENT>
+ <CALL '\1aEANA 3 = STACK>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = TEM23>
+ <PUTUV NOD4 6 'T>
+ <VEQUAL? SG25 0 - PHRASE52>
+ <DEAD SG25>
+ <SET GOTDC29 %<> (TYPE FALSE)>
+PHRASE52
+ <SET SG25 'T (TYPE ATOM)>
+ <VEQUAL? LWIN10 0 + TAG55>
+ <FRAME '\1aSTRUCTYP>
+ <NTHUV N9 5 = TEMP37 (TYPE LIST)>
+ <DEAD N9>
+ <NTHL TEMP37 1 = TEMP37 (TYPE NODE)>
+ <NTHUV TEMP37 3 = STACK>
+ <DEAD TEMP37>
+ <CALL '\1aSTRUCTYP 1 = TEMP37>
+ <SET N9 [LIST VECTOR UVECTOR TUPLE] (TYPE VECTOR)>
+ <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG55>
+ <LOOP (TEMP37 VALUE) (N9 LENGTH VALUE)>
+TAG56
+ <NTHUV N9 1 = TEMP60>
+ <VEQUAL? TEMP60 TEMP37 + PHRASE62>
+ <DEAD TEMP60>
+ <RESTUV N9 1 = N9 (TYPE VECTOR)>
+ <EMPUV? N9 - TAG56>
+TAG55
+ <SET LWIN10 %<> (TYPE FALSE)>
+ <JUMP + PHRASE62>
+PHRASE47
+ <ADD ARGS6 2 = ARGS6 (TYPE FIX)>
+ <FRAME '\1aANA>
+ <PUSH N9>
+ <DEAD N9>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TEM23>
+PHRASE62
+ <VEQUAL? GOTDC29 0 - PHRASE65>
+ <SET GOTDC29 'T (TYPE ATOM)>
+ <FRAME '\1aISTYPE?>
+ <SET DC20 TEM23>
+ <PUSH DC20>
+ <CALL '\1aISTYPE? 1 = STY21>
+ <SET PTY22 STY21>
+ <TYPE? PTY22 <TYPE-CODE FALSE> + PHRASE80>
+ <FRAME '\1aMTYPR>
+ <PUSH STY21>
+ <CALL '\1aMTYPR 1 = PTY22>
+ <JUMP + PHRASE80>
+PHRASE65
+ <TYPE? DC20 <TYPE-CODE FALSE> + BOOL71>
+ <EQUAL? DC20 TEM23 + PHRASE80>
+BOOL71
+ <SET DC20 %<> (TYPE FALSE)>
+ <FRAME '\1aISTYPE?>
+ <PUSH TEM23>
+ <CALL '\1aISTYPE? 1 = TEMP37>
+ <VEQUAL? TEMP37 STY21 - BOOL74>
+ <TYPE? STY21 <TYPE-CODE FALSE> - PHRASE80>
+BOOL74
+ <SET STY21 %<> (TYPE FALSE)>
+ <TYPE? PTY22 <TYPE-CODE FALSE> + BOOL77>
+ <SET N9 TEMP37>
+ <TYPE? N9 <TYPE-CODE FALSE> + BOOL78>
+ <FRAME '\1aMTYPR>
+ <PUSH TEMP37>
+ <DEAD TEMP37>
+ <CALL '\1aMTYPR 1 = N9>
+BOOL78
+ <EQUAL? PTY22 N9 + PHRASE80>
+ <DEAD N9>
+BOOL77
+ <SET PTY22 %<> (TYPE FALSE)>
+PHRASE80
+ <VEQUAL? SG25 0 - PHRASE82>
+ <CONS TEM23 () = N9>
+ <DEAD TEM23>
+ <PUTREST FRME28 N9>
+ <DEAD FRME28>
+ <SET FRME28 N9>
+ <DEAD N9>
+PHRASE82
+ <RESTL K8 1 = K8 (TYPE LIST)>
+ <JUMP + AGAIN30>
+EXIT18
+ <PUTUV NOD4 3 RT7>
+ <NTHR 'COPY-LIST-CODE 1 = N9 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE84)>
+ <TYPE? N9 <TYPE-CODE FALSE> + PHRASE84>
+ <NTHR N9 1 = N9 (RECORD-TYPE GBIND)>
+ <TYPE? N9 <TYPE-CODE UNBOUND> + PHRASE84>
+ <DEAD N9>
+ <VEQUAL? LWIN10 0 + PHRASE84>
+ <DEAD LWIN10>
+ <NTHUV NOD4 5 = LWIN10 (TYPE LIST)>
+ <LOOP>
+MAP87
+ <INTGO>
+ <EMPL? LWIN10 + MAPAP90>
+ <NTHL LWIN10 1 = N9>
+ <NTHUV N9 1 = ARGS6 (TYPE FIX)>
+ <VEQUAL? ARGS6 3 - PHRASE97 (TYPE FIX)>
+ <DEAD ARGS6>
+ <PUTUV N9 1 68 (TYPE FIX)>
+ <DEAD N9>
+PHRASE97
+ <RESTL LWIN10 1 = LWIN10 (TYPE LIST)>
+ <JUMP + MAP87>
+MAPAP90
+ <NTHUV NOD4 5 = K8 (TYPE LIST)>
+ <EMPL? K8 + PHRASE100>
+ <RESTL K8 1 = LWIN10 (TYPE LIST)>
+ <EMPL? LWIN10 - PHRASE100>
+ <DEAD LWIN10>
+ <NTHL K8 1 = N9 (TYPE NODE)>
+ <NTHUV N9 1 = ARGS6 (TYPE FIX)>
+ <DEAD N9>
+ <VEQUAL? ARGS6 68 - PHRASE100 (TYPE FIX)>
+ <DEAD ARGS6>
+ <FRAME '\1aSTRUCTYP>
+ <NTHL K8 1 = N9 (TYPE NODE)>
+ <DEAD K8>
+ <NTHUV N9 5 = LWIN10 (TYPE LIST)>
+ <DEAD N9>
+ <NTHL LWIN10 1 = N9 (TYPE NODE)>
+ <DEAD LWIN10>
+ <NTHUV N9 3 = STACK>
+ <CALL '\1aSTRUCTYP 1 = LWIN10>
+ <EQUAL? LWIN10 'LIST - PHRASE100>
+ <DEAD LWIN10>
+ <NTHUV NOD4 2 = LWIN10>
+ <EMPTY? LWIN10 + MAPAP109>
+ <DEAD LWIN10>
+ <NTHUV NOD4 2 = RT7>
+ <NTHUV RT7 5 = RT7 (TYPE LIST)>
+ <LOOP>
+MAP106
+ <INTGO>
+ <EMPL? RT7 + MAPAP109>
+ <SET K8 RT7>
+ <NTHL K8 1 = LWIN10 (TYPE NODE)>
+ <VEQUAL? NOD4 LWIN10 - PHRASE116>
+ <DEAD LWIN10>
+ <PUTL K8 1 N9>
+ <DEAD K8>
+ <JUMP + MAPAP109>
+PHRASE116
+ <RESTL RT7 1 = RT7 (TYPE LIST)>
+ <JUMP + MAP106>
+MAPAP109
+ <NTHUV NOD4 2 = RT7>
+ <DEAD NOD4>
+ <CHTYPE RT7 <TYPE-CODE NODE> = RT7>
+ <PUTUV N9 2 RT7>
+ <DEAD RT7>
+ <NTHUV N9 3 = RT7>
+ <DEAD N9>
+ <JUMP + PHRASE119>
+PHRASE100
+ <PUTUV NOD4 1 84 (TYPE FIX)>
+ <DEAD NOD4>
+ <JUMP + PHRASE119>
+PHRASE84
+ <NTHUV NOD4 5 = LWIN10 (TYPE LIST)>
+ <LOOP>
+MAP121
+ <INTGO>
+ <EMPL? LWIN10 + MAPAP124>
+ <NTHL LWIN10 1 = N9>
+ <NTHUV N9 1 = ARGS6 (TYPE FIX)>
+ <VEQUAL? ARGS6 68 - PHRASE130 (TYPE FIX)>
+ <DEAD ARGS6>
+ <PUTUV N9 1 3 (TYPE FIX)>
+ <DEAD N9>
+PHRASE130
+ <RESTL LWIN10 1 = LWIN10 (TYPE LIST)>
+ <JUMP + MAP121>
+MAPAP124
+ <PUTUV NOD4 1 15 (TYPE FIX)>
+ <DEAD NOD4>
+PHRASE119
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RT7>
+ <DEAD RT7>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = LWIN10>
+ <RETURN LWIN10>
+ <DEAD LWIN10>
+ <END \1aCOPY-AN>
+" Analyze quoted objects, for structures hack type specs."
+
+#WORD *10315726445*
+<GFCN \1aQUOTE-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGEN-DECL>
+ <NTHUV NOD4 4 = STACK>
+ <DEAD NOD4>
+ <CALL '\1aGEN-DECL 1 = STACK>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aQUOTE-ANA>
+#WORD *14076646770*
+<GFCN \1aQUOTE-ANA2 ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP TEMP8>
+ <INTGO>
+ <NTHUV NOD4 5 = TEMP8 (TYPE LIST)>
+ <EMPL? TEMP8 + PHRASE7>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <EMPL? TEMP8 - PHRASE7>
+ <DEAD TEMP8>
+ <PUTUV NOD4 1 2 (TYPE FIX)>
+ <NTHUV NOD4 5 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = TEMP8 (TYPE NODE)>
+ <PUTUV NOD4 4 TEMP8>
+ <DEAD TEMP8>
+ <PUTUV NOD4 5 () (TYPE LIST)>
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+PHRASE7
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Empty QUOTE?">
+ <CALL '\1aCOMPILE-ERROR 1 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aQUOTE-ANA2>
+<COND (<GASSIGNED? QUOTE-ANA2> <PUTPROP ,QUOTE ANALYSIS ,QUOTE-ANA2>)>
+
+" Analyze a call to an RSUBR."
+
+#WORD *14315332146*
+<GFCN \1aRSUBR-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP (ARGS6:FIX 0) DCL7:LIST (SEGF8 %<>) (MUST-EMPTY9 'T) (TUPF11 %<>) (OPTF12 %<>) K13:LIST NM14:ATOM (RT15 %<>) TEMP22 ARG27:NODE TY28>
+ <INTGO>
+ <NTHUV NOD4 7 = DCL7 (TYPE LIST)>
+ <NTHUV NOD4 5 = K13 (TYPE LIST)>
+ <NTHUV NOD4 4 = NM14 (TYPE ATOM)>
+ <SET TEMP22 K13 (TYPE LIST)>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPL? TEMP22 + MAPAP20>
+ <NTHL TEMP22 1 = ARG27>
+ <EMPL? DCL7 + PHRASE31 (TYPE LIST)>
+ <NTHL DCL7 1 = RT15 (TYPE LIST)>
+ <NTHL RT15 1 = MUST-EMPTY9 (TYPE ATOM)>
+ <VEQUAL? MUST-EMPTY9 'OPTIONAL - PHRASE33>
+ <SET OPTF12 'T (TYPE ATOM)>
+ <JUMP + PHRASE34>
+PHRASE33
+ <VEQUAL? MUST-EMPTY9 'TUPLE - PHRASE34>
+ <DEAD MUST-EMPTY9>
+ <SET TUPF11 'T (TYPE ATOM)>
+PHRASE34
+ <RESTL RT15 1 = MUST-EMPTY9 (TYPE LIST)>
+ <DEAD RT15>
+ <NTHL MUST-EMPTY9 1 = RT15>
+ <DEAD MUST-EMPTY9>
+ <RESTL DCL7 1 = DCL7 (TYPE LIST)>
+ <JUMP + PHRASE36>
+PHRASE31
+ <VEQUAL? TUPF11 0 - PHRASE36>
+ <SET RT15 %<> (TYPE FALSE)>
+ <SET OPTF12 RT15>
+PHRASE36
+ <NTHUV ARG27 1 = MUST-EMPTY9 (TYPE FIX)>
+ <VEQUAL? MUST-EMPTY9 3 - PHRASE38 (TYPE FIX)>
+ <DEAD MUST-EMPTY9>
+ <SET SEGF8 'T (TYPE ATOM)>
+ <FRAME '\1aGET-ELE-TYPE>
+ <FRAME '\1aANA>
+ <NTHUV ARG27 5 = MUST-EMPTY9 (TYPE LIST)>
+ <NTHL MUST-EMPTY9 1 = STACK (TYPE NODE)>
+ <DEAD MUST-EMPTY9>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TY28>
+ <PUSH TY28>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = MUST-EMPTY9>
+ <VEQUAL? TUPF11 0 + PHRASE43>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH RT15>
+ <PUSH 'ALL>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <PUSH MUST-EMPTY9>
+ <DEAD MUST-EMPTY9>
+ <CALL '\1aTYPE-OK? 2 = MUST-EMPTY9>
+ <TYPE? MUST-EMPTY9 <TYPE-CODE FALSE> - PHRASE57>
+ <DEAD MUST-EMPTY9>
+ <JUMP + PHRASE46>
+PHRASE43
+ <TYPE? RT15 <TYPE-CODE FALSE> + PHRASE46>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RT15>
+ <PUSH MUST-EMPTY9>
+ <DEAD MUST-EMPTY9>
+ <CALL '\1aTYPE-OK? 2 = MUST-EMPTY9>
+ <TYPE? MUST-EMPTY9 <TYPE-CODE FALSE> - PHRASE57>
+ <DEAD MUST-EMPTY9>
+PHRASE46
+ <TYPE? RT15 <TYPE-CODE FALSE> + BOOL50>
+ <VEQUAL? OPTF12 0 + PHRASE48>
+BOOL50
+ <FRAME '\1aMINL>
+ <PUSH TY28>
+ <DEAD TY28>
+ <CALL '\1aMINL 1 = MUST-EMPTY9>
+ <GRTR? MUST-EMPTY9 0 + PHRASE48 (TYPE FIX)>
+ <DEAD MUST-EMPTY9>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "Segment must be empty: ">
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-WARNING 2>
+ <JUMP + PHRASE57>
+PHRASE48
+ <TYPE? RT15 <TYPE-CODE FALSE> - PHRASE55>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Too many arguments to: ">
+ <PUSH NM14>
+ <PUSH ARG27>
+ <DEAD ARG27>
+ <CALL '\1aCOMPILE-ERROR 3>
+ <JUMP + PHRASE57>
+PHRASE55
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Argument wrong type to: ">
+ <PUSH NM14>
+ <PUSH ARG27>
+ <DEAD ARG27>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE57
+ <PUTUV NOD4 6 'T>
+ <JUMP + PHRASE59>
+PHRASE38
+ <ADD ARGS6 1 = ARGS6 (TYPE FIX)>
+ <FRAME '\1aEANA>
+ <PUSH ARG27>
+ <DEAD ARG27>
+ <VEQUAL? TUPF11 0 + PHRASE62>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH RT15>
+ <VEQUAL? SEGF8 0 + PHRASE65>
+ <SET MUST-EMPTY9 'ALL (TYPE ATOM)>
+ <JUMP + PHRASE66>
+PHRASE65
+ <SET MUST-EMPTY9 ARGS6>
+PHRASE66
+ <PUSH MUST-EMPTY9>
+ <DEAD MUST-EMPTY9>
+ <CALL '\1aGET-ELE-TYPE 2 = MUST-EMPTY9>
+ <JUMP + PHRASE67>
+PHRASE62
+ <SET MUST-EMPTY9 RT15>
+PHRASE67
+ <PUSH MUST-EMPTY9>
+ <DEAD MUST-EMPTY9>
+ <PUSH NM14>
+ <CALL '\1aEANA 3>
+PHRASE59
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <JUMP + MAP17>
+MAPAP20
+ <VEQUAL? NM14 'PRINC + BOOL70>
+ <VEQUAL? NM14 'PRINT + BOOL70>
+ <VEQUAL? NM14 'PRIN1 - PHRASE69>
+ <DEAD NM14>
+BOOL70
+ <FRAME '\1aTYPE-AND>
+ <NTHUV NOD4 3 = STACK>
+ <NTHL K13 1 = SEGF8 (TYPE NODE)>
+ <DEAD K13>
+ <NTHUV SEGF8 3 = STACK>
+ <DEAD SEGF8>
+ <CALL '\1aTYPE-AND 2 = SEGF8>
+ <PUTUV NOD4 3 SEGF8>
+ <DEAD SEGF8>
+PHRASE69
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+ <CONS 'ALL () = TEMP22>
+ <PUTUV NOD4 8 TEMP22>
+ <DEAD TEMP22>
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP22>
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+ <END \1aRSUBR-ANA>
+" Analyze CHTYPE, in some cases do it at compile time."
+
+#WORD *25654605354*
+<GFCN \1aCHTYPE-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6 TEMP16 OBN9 NTN7 TEMP46:FIX TEMP52>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE72>
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 2>
+ <PUSH 'CHTYPE>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aANA>
+ <NTHL K6 1 = OBN9 (TYPE NODE)>
+ <PUSH OBN9>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2 = TEMP16>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <NTHL K6 1 = NTN7 (TYPE NODE)>
+ <DEAD K6>
+ <PUSH NTN7>
+ <PUSH 'ATOM>
+ <PUSH 'CHTYPE>
+ <CALL '\1aEANA 3>
+ <NTHUV NTN7 1 = K6 (TYPE FIX)>
+ <VEQUAL? K6 2 - PHRASE24 (TYPE FIX)>
+ <DEAD K6>
+ <FRAME '\1aISTYPE?>
+ <NTHUV NTN7 4 = NTN7 (TYPE ATOM)>
+ <PUSH NTN7>
+ <CALL '\1aISTYPE? 1 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> - PHRASE26>
+ <DEAD K6>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Second arg to CHTYPE not a type ">
+ <PUSH NTN7>
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 3>
+PHRASE26
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP16>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <FRAME '\1aMTYPR>
+ <PUSH NTN7>
+ <CALL '\1aMTYPR 1 = STACK>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aTYPE-OK? 2 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> - PHRASE30>
+ <DEAD K6>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Primtypes differ in CHTYPE">
+ <PUSH TEMP16>
+ <PUSH NTN7>
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 4>
+PHRASE30
+ <NTHUV OBN9 1 = K6 (TYPE FIX)>
+ <VEQUAL? K6 2 - PHRASE36 (TYPE FIX)>
+ <DEAD K6>
+ <PUTUV NOD4 1 2 (TYPE FIX)>
+ <PUTUV NOD4 5 () (TYPE LIST)>
+ <FRAME '\1aCHTYPE>
+ <NTHUV OBN9 4 = STACK>
+ <DEAD OBN9>
+ <PUSH NTN7>
+ <CALL '\1aCHTYPE 2 = K6>
+ <PUTUV NOD4 4 K6>
+ <DEAD K6>
+ <JUMP + PHRASE59>
+PHRASE36
+ <FRAME '\1aTYPESAME>
+ <PUSH TEMP16>
+ <PUSH NTN7>
+ <CALL '\1aTYPESAME 2 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> + PHRASE38>
+ <DEAD K6>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "Redundant CHTYPE">
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-WARNING 2>
+ <PUTUV NOD4 1 42 (TYPE FIX)>
+ <JUMP + PHRASE59>
+PHRASE38
+ <FRAME '\1aGET-DECL>
+ <PUSH NTN7>
+ <CALL '\1aGET-DECL 1 = OBN9>
+ <TYPE? OBN9 <TYPE-CODE FALSE> + PHRASE41>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <FRAME '\1aTYPEPRIM>
+ <PUSH NTN7>
+ <CALL '\1aTYPEPRIM 1 = STACK>
+ <CALL '\1aFORM 2 = STACK>
+ <SET TEMP46 1 (TYPE FIX)>
+ <REST1 OBN9 = K6>
+ <TYPE K6 = TEMP52>
+ <AND TEMP52 7 = TEMP52>
+ <VEQUAL? TEMP52 1 + TAG48>
+ <DEAD TEMP52>
+ <LOOP (K6 TYPE VALUE LENGTH) (TEMP46 VALUE)>
+TAG54
+ <INTGO>
+ <EMPTY? K6 + TAG53>
+ <NTH1 K6 = STACK>
+ <REST1 K6 = K6>
+ <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
+ <JUMP + TAG54>
+TAG53
+ <LIST TEMP46 = K6 (TYPE LIST)>
+ <DEAD TEMP46>
+ <JUMP + TAG50>
+TAG48
+ <LOOP>
+TAG51
+ <VEQUAL? TEMP46 0 + TAG50>
+ <POP = TEMP52>
+ <CONS TEMP52 K6 = K6 (TYPE LIST)>
+ <DEAD TEMP52>
+ <SUB TEMP46 1 = TEMP46 (TYPE FIX)>
+ <JUMP + TAG51>
+TAG50
+ <CHTYPE K6 <TYPE OBN9> = OBN9>
+ <DEAD K6>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <PUSH OBN9>
+ <DEAD OBN9>
+ <CALL '\1aTYPE-OK? 2 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> - PHRASE56>
+ <DEAD K6>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "DECL violation in CHTYPE ">
+ <PUSH NOD4>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE56
+ <PUTUV NOD4 1 37 (TYPE FIX)>
+ <JUMP + PHRASE59>
+PHRASE41
+ <PUTUV NOD4 1 37 (TYPE FIX)>
+PHRASE59
+ <PUTUV NOD4 3 NTN7>
+ <DEAD NOD4>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH NTN7>
+ <DEAD NTN7>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE24
+ <NTHUV NTN7 1 = K6 (TYPE FIX)>
+ <VEQUAL? K6 9 - PHRASE61 (TYPE FIX)>
+ <DEAD K6>
+ <NTHUV NTN7 4 = K6>
+ <EQUAL? K6 'TYPE - PHRASE61>
+ <DEAD K6>
+ <FRAME '\1aPRIMITIVE-TYPE>
+ <PUSH TEMP16>
+ <CALL '\1aPRIMITIVE-TYPE 1 = OBN9>
+ <TYPE? OBN9 <TYPE-CODE FALSE> + PHRASE64>
+ <FRAME '\1aPRIMITIVE-TYPE>
+ <NTHUV NTN7 5 = K6 (TYPE LIST)>
+ <DEAD NTN7>
+ <NTHL K6 1 = K6 (TYPE NODE)>
+ <NTHUV K6 3 = TEMP52>
+ <DEAD K6>
+ <PUSH TEMP52>
+ <CALL '\1aPRIMITIVE-TYPE 1 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> + PHRASE64>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH OBN9>
+ <DEAD OBN9>
+ <PUSH K6>
+ <DEAD K6>
+ <CALL '\1aTYPE-OK? 2 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> - PHRASE64>
+ <DEAD K6>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Primtypes differ in CHTYPE">
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <PUSH TEMP52>
+ <DEAD TEMP52>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CALL '\1aCOMPILE-ERROR 4 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE64
+ <PUTUV NOD4 1 37 (TYPE FIX)>
+ <PUTUV NOD4 3 TEMP52>
+ <DEAD NOD4>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP52>
+ <DEAD TEMP52>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE61
+ <GEN-LVAL 'VERBOSE = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> + PHRASE74>
+ <DEAD K6>
+ <FRAME '\1aADDVMESS>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <CONS "Can't open compile CHTYPE." () = STACK>
+ <CALL '\1aADDVMESS 2>
+PHRASE74
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'ANY>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP16>
+PHRASE72
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aCHTYPE-ANA>
+<COND (<GASSIGNED? CHTYPE-ANA> <PUTPROP ,CHTYPE ANALYSIS ,CHTYPE-ANA>)>
+
+" Analyze use of ASCII sometimes do at compile time."
+
+#WORD *7466121470*
+<GFCN \1aASCII-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6 TEMP11 TEMP18>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH NOD4>
+ <PUSH RTYP5>
+ <CALL '\1aSEGFLUSH 2 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE13>
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 1>
+ <PUSH 'ASCII>
+ <PUSH NOD4>
+ <CALL '\1aARGCHK 4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = K6 (TYPE NODE)>
+ <PUSH K6>
+ <PUSH <OR FIX CHARACTER>>
+ <PUSH 'ASCII>
+ <CALL '\1aEANA 3 = TEMP11>
+ <NTHUV K6 1 = TEMP18 (TYPE FIX)>
+ <VEQUAL? TEMP18 2 - PHRASE17 (TYPE FIX)>
+ <DEAD TEMP18>
+ <PUTUV NOD4 1 2 (TYPE FIX)>
+ <FRAME '\1aASCII>
+ <NTHUV K6 4 = STACK>
+ <DEAD K6>
+ <CALL '\1aASCII 1 = TEMP11>
+ <PUTUV NOD4 4 TEMP11>
+ <FRAME '\1aTYPE>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <CALL '\1aTYPE 1 = TEMP18>
+ <PUTUV NOD4 3 TEMP18>
+ <DEAD TEMP18>
+ <PUTUV NOD4 5 () (TYPE LIST)>
+ <JUMP + PHRASE24>
+PHRASE17
+ <FRAME '\1aISTYPE?>
+ <PUSH TEMP11>
+ <CALL '\1aISTYPE? 1 = TEMP18>
+ <VEQUAL? TEMP18 'FIX - PHRASE21>
+ <DEAD TEMP18>
+ <PUTUV NOD4 1 37 (TYPE FIX)>
+ <PUTUV NOD4 3 'CHARACTER>
+ <JUMP + PHRASE24>
+PHRASE21
+ <EQUAL? TEMP11 'CHARACTER - PHRASE23>
+ <DEAD TEMP11>
+ <PUTUV NOD4 1 37 (TYPE FIX)>
+ <PUTUV NOD4 3 'FIX>
+ <JUMP + PHRASE24>
+PHRASE23
+ <PUTUV NOD4 3 <OR FIX CHARACTER>>
+PHRASE24
+ <FRAME '\1aTYPE-OK?>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TEMP11>
+PHRASE13
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aASCII-ANA>
+<COND (<GASSIGNED? ASCII-ANA> <PUTPROP ,ASCII ANALYSIS ,ASCII-ANA>)>
+
+#WORD *2705660233*
+<GFCN \1aUNWIND-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
+ <TEMP K6 ITYP7>
+ <INTGO>
+ <NTHUV NOD4 5 = K6 (TYPE LIST)>
+ <DEAD NOD4>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'ANY>
+ <PUSH 'UNWIND>
+ <CALL '\1aEANA 3 = ITYP7>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <DEAD K6>
+ <PUSH 'ANY>
+ <PUSH 'UNWIND>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aPUTPROP>
+ <GEN-LVAL 'FCN = STACK>
+ <PUSH 'UNWIND>
+ <PUSH 'T>
+ <CALL '\1aPUTPROP 3>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH ITYP7>
+ <DEAD ITYP7>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTYPE-OK? 2 = ITYP7>
+ <RETURN ITYP7>
+ <DEAD ITYP7>
+ <END \1aUNWIND-ANA>
+" Analyze READ type SUBRS in two cases (print uncertain usage message maybe?)"
+
+#WORD *22762417176*
+<GFCN \1aREAD-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP TEMP17 NN18:NODE TEMP22>
+ <INTGO>
+ <NTHUV N4 5 = TEMP17 (TYPE LIST)>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP17 + MAPAP10>
+ <NTHL TEMP17 1 = NN18>
+ <NTHUV NN18 1 = TEMP22 (TYPE FIX)>
+ <VEQUAL? TEMP22 55 - PHRASE21 (TYPE FIX)>
+ <DEAD TEMP22>
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+ <FRAME '\1aEANAQ>
+ <NTHUV NN18 5 = TEMP22 (TYPE LIST)>
+ <DEAD NN18>
+ <NTHL TEMP22 1 = STACK (TYPE NODE)>
+ <DEAD TEMP22>
+ <PUSH 'ANY>
+ <NTHUV N4 4 = STACK>
+ <PUSH N4>
+ <CALL '\1aEANAQ 4 = TEMP22>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <PUSH <OR FORM LIST VECTOR UVECTOR>>
+ <CALL '\1aTYPE-OK? 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP22>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "Uncertain use of ">
+ <NTHUV N4 4 = STACK>
+ <PUSH N4>
+ <CALL '\1aCOMPILE-WARNING 3>
+ <JUMP + PHRASE31>
+PHRASE27
+ <PUTUV N4 1 54 (TYPE FIX)>
+ <JUMP + PHRASE31>
+PHRASE21
+ <FRAME '\1aEANA>
+ <PUSH NN18>
+ <DEAD NN18>
+ <PUSH 'ANY>
+ <NTHUV N4 4 = STACK>
+ <CALL '\1aEANA 3>
+PHRASE31
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'ANY>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aREAD-ANA>
+#WORD *36340531603*
+<GFCN \1aREAD2-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP TEMP17 NN18:NODE TEMP21>
+ <INTGO>
+ <NTHUV N4 5 = TEMP17 (TYPE LIST)>
+ <LOOP>
+MAP7
+ <INTGO>
+ <EMPL? TEMP17 + MAPAP10>
+ <NTHL TEMP17 1 = NN18>
+ <NTHUV NN18 1 = TEMP21 (TYPE FIX)>
+ <VEQUAL? TEMP21 55 - PHRASE20 (TYPE FIX)>
+ <DEAD TEMP21>
+ <FRAME '\1aEANAQ>
+ <NTHUV NN18 5 = TEMP21 (TYPE LIST)>
+ <DEAD NN18>
+ <NTHL TEMP21 1 = STACK (TYPE NODE)>
+ <DEAD TEMP21>
+ <PUSH 'ANY>
+ <NTHUV N4 4 = STACK>
+ <PUSH N4>
+ <CALL '\1aEANAQ 4>
+ <JUMP + PHRASE23>
+PHRASE20
+ <FRAME '\1aEANA>
+ <PUSH NN18>
+ <DEAD NN18>
+ <PUSH 'ANY>
+ <NTHUV N4 4 = STACK>
+ <CALL '\1aEANA 3>
+PHRASE23
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <JUMP + MAP7>
+MAPAP10
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'ANY>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aREAD2-ANA>
+#WORD *5445443556*
+<GFCN \1aGET-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K7:LIST NAM8 TEMP11>
+ <INTGO>
+ <NTHUV N4 5 = K7 (TYPE LIST)>
+ <NTHUV N4 4 = NAM8>
+ <FRAME '\1aEANA>
+ <NTHL K7 1 = STACK (TYPE NODE)>
+ <PUSH 'ANY>
+ <PUSH NAM8>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aEANA>
+ <RESTL K7 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = STACK (TYPE NODE)>
+ <DEAD TEMP11>
+ <PUSH 'ANY>
+ <PUSH NAM8>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aEANAQ>
+ <RESTL K7 1 = TEMP11 (TYPE LIST)>
+ <DEAD K7>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = STACK (TYPE NODE)>
+ <DEAD TEMP11>
+ <PUSH 'ANY>
+ <PUSH NAM8>
+ <PUSH N4>
+ <CALL '\1aEANAQ 4 = TEMP11>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <PUSH <OR LIST VECTOR UVECTOR FORM>>
+ <CALL '\1aTYPE-OK? 2 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP11>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "Uncertain use of ">
+ <PUSH NAM8>
+ <DEAD NAM8>
+ <PUSH N4>
+ <DEAD N4>
+ <CALL '\1aCOMPILE-WARNING 3>
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+ <JUMP + PHRASE19>
+PHRASE14
+ <PUTUV N4 1 57 (TYPE FIX)>
+ <DEAD N4>
+PHRASE19
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'ANY>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aGET-ANA>
+#WORD *33162071775*
+<GFCN \1aGET2-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6:LIST NAM7 LN8:FIX TEMP11>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <NTHUV N4 4 = NAM7>
+ <LENL K6 = LN8 (TYPE FIX)>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'ANY>
+ <PUSH NAM7>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = STACK (TYPE NODE)>
+ <DEAD TEMP11>
+ <PUSH 'ANY>
+ <PUSH NAM7>
+ <CALL '\1aEANA 3>
+ <VEQUAL? LN8 3 - PHRASE13 (TYPE FIX)>
+ <DEAD LN8>
+ <FRAME '\1aEANAQ>
+ <RESTL K6 1 = TEMP11 (TYPE LIST)>
+ <DEAD K6>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = STACK (TYPE NODE)>
+ <DEAD TEMP11>
+ <PUSH 'ANY>
+ <PUSH NAM7>
+ <DEAD NAM7>
+ <PUSH N4>
+ <DEAD N4>
+ <CALL '\1aEANAQ 4>
+PHRASE13
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'ANY>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aGET2-ANA>
+#WORD *25266214530*
+<GFCN \1aEANAQ ("VALUE" ANY NODE ANY ANY ANY) N4 R5 NAM6 INOD7>
+ <TEMP SPCD8>
+ <INTGO>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aBUILD-TYPE-LIST 1 = SPCD8>
+ <FRAME '\1aEANA>
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH NAM6>
+ <DEAD NAM6>
+ <CALL '\1aEANA 3 = R5>
+ <FRAME '\1aASSERT-TYPES>
+ <FRAME '\1aORUPC>
+ <GEN-LVAL 'VARTBL = STACK>
+ <PUSH SPCD8>
+ <DEAD SPCD8>
+ <CALL '\1aORUPC 2 = STACK>
+ <CALL '\1aASSERT-TYPES 1>
+ <RETURN R5>
+ <DEAD R5>
+ <END \1aEANAQ>
+#WORD *25643431274*
+<GFCN \1aACTIV? ("VALUE" <OR ATOM !<FALSE>> <LIST [REST SYMTAB]> ANY) BST4 NOACT5>
+ <TEMP TEMP6>
+ <INTGO>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? BST4 - BOOL10 (TYPE LIST)>
+ <RETURN %<>>
+BOOL10
+ <NTHL BST4 1 = TEMP6 (TYPE SYMTAB)>
+ <NTHUV TEMP6 4 = TEMP6 (TYPE FIX)>
+ <VEQUAL? TEMP6 1 - BOOL11 (TYPE FIX)>
+ <DEAD TEMP6>
+ <TYPE? NOACT5 <TYPE-CODE FALSE> + BOOL15>
+ <NTHL BST4 1 = TEMP6 (TYPE SYMTAB)>
+ <NTHUV TEMP6 11 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + BOOL15>
+ <DEAD TEMP6>
+ <NTHL BST4 1 = TEMP6 (TYPE SYMTAB)>
+ <NTHUV TEMP6 3 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> + BOOL11>
+ <DEAD TEMP6>
+BOOL15
+ <RETURN 'T>
+BOOL11
+ <RESTL BST4 1 = BST4 (TYPE LIST)>
+ <JUMP + AGAIN9>
+ <END \1aACTIV?>
+#WORD *30364401743*
+<GFCN \1aSAME-DECL? ("VALUE" <OR ATOM !<FALSE>> ANY ANY) D14 D25>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1a=?>
+ <PUSH D14>
+ <PUSH D25>
+ <CALL '\1a=? 2 = TEMP7>
+ <VEQUAL? TEMP7 0 - TAG10>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH D25>
+ <DEAD D25>
+ <FRAME '\1aNOTIFY>
+ <PUSH D14>
+ <DEAD D14>
+ <CALL '\1aNOTIFY 1 = STACK>
+ <CALL '\1aTYPE-OK? 2 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> - TAG9>
+ <DEAD TEMP7>
+ <RETURN 'T>
+TAG9
+ <SET TEMP7 %<> (TYPE FALSE)>
+TAG10
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSAME-DECL?>
+#WORD *17556712564*
+<GFCN \1aSPECIALIZE ("VALUE" ANY ANY) OBJ4>
+ <TEMP OB8 T15:FIX TEMP15 SYM7>
+ <INTGO>
+ <TYPE? OBJ4 <TYPE-CODE FORM> + TAG12>
+ <TYPE? OBJ4 <TYPE-CODE SEGMENT> - PHRASE19>
+TAG12
+ <CHTYPE OBJ4 <TYPE-CODE FORM> = OB8>
+ <LENL OB8 = T15 (TYPE FIX)>
+ <VEQUAL? T15 2 - BOOL14 (TYPE FIX)>
+ <NTHL OB8 1 = TEMP15>
+ <EQUAL? TEMP15 'LVAL - BOOL14>
+ <DEAD TEMP15>
+ <RESTL OB8 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = SYM7>
+ <DEAD TEMP15>
+ <TYPE? SYM7 <TYPE-CODE ATOM> + BOOL13>
+BOOL14
+ <VEQUAL? T15 3 - PHRASE19 (TYPE FIX)>
+ <DEAD T15>
+ <NTHL OB8 1 = TEMP15>
+ <EQUAL? TEMP15 'SET - PHRASE19>
+ <DEAD TEMP15>
+ <RESTL OB8 1 = TEMP15 (TYPE LIST)>
+ <DEAD OB8>
+ <NTHL TEMP15 1 = SYM7>
+ <DEAD TEMP15>
+ <TYPE? SYM7 <TYPE-CODE ATOM> - PHRASE19>
+BOOL13
+ <FRAME '\1aSRCH-SYM>
+ <PUSH SYM7>
+ <CALL '\1aSRCH-SYM 1 = OB8>
+ <VEQUAL? OB8 0 + PHRASE19>
+ <NTHUV OB8 3 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE19>
+ <DEAD TEMP15>
+ <FRAME '\1aCOMPILE-NOTE>
+ <PUSH "Redeclared special ">
+ <PUSH SYM7>
+ <DEAD SYM7>
+ <CALL '\1aCOMPILE-NOTE 2>
+ <PUTUV OB8 3 'T>
+ <DEAD OB8>
+PHRASE19
+ <FRAME '\1aPRIMTYPE>
+ <PUSH OBJ4>
+ <CALL '\1aPRIMTYPE 1 = SYM7>
+ <SET TEMP15 [FORM LIST UVECTOR VECTOR] (TYPE VECTOR)>
+ <LOOP (SYM7 VALUE) (TEMP15 LENGTH VALUE)>
+TAG25
+ <NTHUV TEMP15 1 = OB8>
+ <VEQUAL? OB8 SYM7 + TAG24>
+ <DEAD OB8>
+ <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
+ <EMPUV? TEMP15 - TAG25>
+ <RETURN %<>>
+TAG24
+ <SET OB8 %<> (TYPE FALSE)>
+ <SET SYM7 OBJ4>
+ <DEAD OBJ4>
+ <LOOP>
+MAP31
+ <INTGO>
+ <EMPTY? SYM7 + MAP30>
+ <FRAME '\1aSPECIALIZE>
+ <NTH1 SYM7 = STACK>
+ <CALL '\1aSPECIALIZE 1 = OB8>
+ <REST1 SYM7 = SYM7>
+ <JUMP + MAP31>
+MAP30
+ <RETURN OB8>
+ <DEAD OB8>
+ <END \1aSPECIALIZE>
+#WORD *36653106775*
+<GFCN \1aADECL-ANA ("VALUE" ANY ANY ANY) NOD4 RTYP5>
+ <TEMP RT6 TEMP9 TY8>
+ <INTGO>
+ <NTHUV NOD4 4 = RT6>
+ <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE NODE)>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH RT6>
+ <PUSH RTYP5>
+ <CALL '\1aTYPE-OK? 2 = TY8>
+ <TYPE? TY8 <TYPE-CODE FALSE> - PHRASE11>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "ADECL asserts incompatible type.">
+ <PUSH "Required type is ">
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <PUSH " ADECL type is ">
+ <PUSH RT6>
+ <CALL '\1aCOMPILE-ERROR 5>
+ <JUMP + PHRASE14>
+PHRASE11
+ <FRAME '\1aANA>
+ <PUSH TEMP9>
+ <PUSH TY8>
+ <CALL '\1aANA 2 = RT6>
+ <TYPE? RT6 <TYPE-CODE FALSE> - PHRASE14>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "ADECL asserts incompatible type.">
+ <PUSH "Result type is ">
+ <NTHUV TEMP9 3 = STACK>
+ <DEAD TEMP9>
+ <PUSH " ADECL type is ">
+ <PUSH TY8>
+ <DEAD TY8>
+ <CALL '\1aCOMPILE-ERROR 5>
+PHRASE14
+ <PUTUV NOD4 3 RT6>
+ <DEAD NOD4>
+ <RETURN RT6>
+ <DEAD RT6>
+ <END \1aADECL-ANA>
+#WORD *3156255365*
+<GFCN \1aCALL-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6:LIST TEMP13 INS7 TYP8 TEMP19:FIX TEMP25>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <EMPL? K6 - PHRASE11 (TYPE LIST)>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "CALL has no instruction supplied">
+ <PUSH N4>
+ <DEAD N4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE11
+ <NTHL K6 1 = INS7 (TYPE NODE)>
+ <NTHUV INS7 1 = TEMP13 (TYPE FIX)>
+ <VEQUAL? TEMP13 2 - PHRASE14 (TYPE FIX)>
+ <DEAD TEMP13>
+ <NTHUV INS7 4 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE14>
+ <DEAD TEMP13>
+ <FRAME '\1aLEGAL-MIM-INS>
+ <PUSH INS7>
+ <CALL '\1aLEGAL-MIM-INS 1 = TYP8>
+ <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE14>
+ <PUSH N4>
+ <SET TEMP19 1 (TYPE FIX)>
+ <NTHUV N4 8 = TEMP13>
+ <TYPE TEMP13 = TEMP25>
+ <AND TEMP25 7 = TEMP25>
+ <VEQUAL? TEMP25 1 + TAG21>
+ <DEAD TEMP25>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP19 VALUE)>
+TAG27
+ <INTGO>
+ <EMPTY? TEMP13 + TAG26>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
+ <JUMP + TAG27>
+TAG26
+ <LIST TEMP19 = TEMP13 (TYPE LIST)>
+ <DEAD TEMP19>
+ <JUMP + TAG23>
+TAG21
+ <LOOP>
+TAG24
+ <VEQUAL? TEMP19 0 + TAG23>
+ <POP = TEMP25>
+ <CONS TEMP25 TEMP13 = TEMP13 (TYPE LIST)>
+ <DEAD TEMP25>
+ <SUB TEMP19 1 = TEMP19 (TYPE FIX)>
+ <JUMP + TAG24>
+TAG23
+ <PUTUV N4 8 TEMP13>
+ <DEAD N4 TEMP13>
+ <NTHUV INS7 4 = TEMP13>
+ <DEAD INS7>
+ <EQUAL? TEMP13 '`RTUPLE - PHRASE29>
+ <DEAD TEMP13>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE NODE)>
+ <DEAD TEMP13>
+ <PUSH 'FIX>
+ <PUSH 'RTUPLE>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aACT-CHECK>
+ <RESTL K6 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE NODE)>
+ <DEAD TEMP13>
+ <PUSH %<>>
+ <CALL '\1aACT-CHECK 2 = INS7>
+ <TYPE? INS7 <TYPE-CODE FALSE> + PHRASE32>
+ <NTHUV INS7 14 = TEMP13>
+ <EQUAL? TEMP13 'NO-RETURN - PHRASE35>
+ <DEAD TEMP13>
+ <FRAME '\1aBUILD-TYPE-LIST>
+ <NTHUV INS7 11 = STACK (TYPE SYMTAB)>
+ <CALL '\1aBUILD-TYPE-LIST 1 = TEMP13>
+ <PUTUV INS7 16 TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aSAVE-L-D-STATE>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aSAVE-L-D-STATE 1 = TEMP25>
+ <PUTUV INS7 15 TEMP25>
+ <DEAD TEMP25>
+ <JUMP + PHRASE40>
+PHRASE35
+ <FRAME '\1aORUPC>
+ <NTHUV INS7 11 = STACK (TYPE SYMTAB)>
+ <NTHUV INS7 16 = STACK (TYPE LIST)>
+ <CALL '\1aORUPC 2 = TEMP25>
+ <PUTUV INS7 16 TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aMSAVE-L-D-STATE>
+ <NTHUV INS7 15 = STACK (TYPE LIST)>
+ <GEN-LVAL 'VARTBL = STACK>
+ <CALL '\1aMSAVE-L-D-STATE 2 = TEMP13>
+ <PUTUV INS7 15 TEMP13>
+ <DEAD TEMP13>
+PHRASE40
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH 'TUPLE>
+ <NTHUV INS7 14 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = TEMP13>
+ <PUTUV INS7 14 TEMP13>
+ <DEAD INS7 TEMP13>
+ <JUMP + MAPAP54>
+PHRASE32
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP13 (TYPE LIST)>
+ <DEAD K6>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE NODE)>
+ <DEAD TEMP13>
+ <PUSH 'FRAME>
+ <PUSH 'RTUPLE>
+ <CALL '\1aEANA 3>
+ <JUMP + MAPAP54>
+PHRASE29
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <LOOP>
+MAP51
+ <INTGO>
+ <EMPL? K6 + MAPAP54>
+ <NTHL K6 1 = INS7>
+ <NTHUV INS7 1 = TEMP13 (TYPE FIX)>
+ <VEQUAL? TEMP13 3 - PHRASE63 (TYPE FIX)>
+ <DEAD TEMP13>
+ <FRAME '\1aEANA>
+ <NTHUV INS7 5 = TEMP13 (TYPE LIST)>
+ <DEAD INS7>
+ <NTHL TEMP13 1 = STACK (TYPE NODE)>
+ <DEAD TEMP13>
+ <PUSH <OR MULTI STRUCTURED>>
+ <PUSH 'CALL>
+ <CALL '\1aEANA 3>
+ <JUMP + PHRASE66>
+PHRASE63
+ <FRAME '\1aEANA>
+ <PUSH INS7>
+ <DEAD INS7>
+ <PUSH 'ANY>
+ <PUSH 'CALL>
+ <CALL '\1aEANA 3>
+PHRASE66
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <JUMP + MAP51>
+MAPAP54
+ <FRAME '\1aTYPE-OK?>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH TYP8>
+ <DEAD TYP8>
+ <CALL '\1aTYPE-OK? 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE14
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "CALL with a non-instruction: ">
+ <PUSH N4>
+ <DEAD N4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aCALL-ANA>\r\r
+#WORD *31357744777*
+<GFCN \1aLEGAL-MIM-INS ("VALUE" ANY NODE) N4>
+ <TEMP ATM5 TEMP9 TEMP13:STRING TEMP15 TEMP16 TEMP17>
+ <INTGO>
+ <NTHUV N4 4 = ATM5 (TYPE ATOM)>
+ <FRAME '\1aLOOKUP>
+ <NTHR ATM5 3 = STACK (RECORD-TYPE ATOM)>
+ <DEAD ATM5>
+ <GVAL 'MIM-OBL = STACK>
+ <CALL '\1aLOOKUP 2 = ATM5>
+ <SET TEMP9 ATM5>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE23>
+ <PUTUV N4 4 ATM5>
+ <DEAD N4>
+ <NTHR ATM5 3 = TEMP13 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP13 "ACTIVATION" - PHRASE12>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP9 "ACTIVATION" (TYPE STRING)>
+ <LENUS TEMP13 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 10 - PHRASE12>
+ <LOOP (TEMP13 VALUE LENGTH) (TEMP9 VALUE LENGTH) (TEMP15 VALUE)>
+TAG18
+ <NTHUS TEMP13 1 = TEMP16>
+ <NTHUS TEMP9 1 = TEMP17>
+ <VEQUAL? TEMP16 TEMP17 - PHRASE12>
+ <DEAD TEMP16 TEMP17>
+ <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
+ <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
+ <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <GEN-LVAL 'FCN = TEMP9>
+ <PUTUV TEMP9 12 'T>
+ <DEAD TEMP9>
+PHRASE12
+ <FRAME '\1aGETPROP>
+ <PUSH ATM5>
+ <DEAD ATM5>
+ <PUSH 'TYPE>
+ <CALL '\1aGETPROP 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE23>
+ <SET TEMP9 'ANY (TYPE ATOM)>
+PHRASE23
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aLEGAL-MIM-INS>
+#WORD *37004373376*
+<GFCN \1aAPPLY-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6 TEMP10 TEMP14:FIX TEMP20>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <EMPL? K6 - PHRASE8 (TYPE LIST)>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "APPLY has nothing to apply">
+ <PUSH N4>
+ <DEAD N4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE8
+ <PUSH N4>
+ <SET TEMP14 1 (TYPE FIX)>
+ <NTHUV N4 8 = TEMP10>
+ <TYPE TEMP10 = TEMP20>
+ <AND TEMP20 7 = TEMP20>
+ <VEQUAL? TEMP20 1 + TAG16>
+ <DEAD TEMP20>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG22
+ <INTGO>
+ <EMPTY? TEMP10 + TAG21>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG21
+ <LIST TEMP14 = TEMP10 (TYPE LIST)>
+ <DEAD TEMP14>
+ <JUMP + TAG18>
+TAG16
+ <LOOP>
+TAG19
+ <VEQUAL? TEMP14 0 + TAG18>
+ <POP = TEMP20>
+ <CONS TEMP20 TEMP10 = TEMP10 (TYPE LIST)>
+ <DEAD TEMP20>
+ <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG19>
+TAG18
+ <PUTUV N4 8 TEMP10>
+ <DEAD TEMP10>
+ <SET TEMP10 K6 (TYPE LIST)>
+ <DEAD K6>
+ <LOOP>
+MAP24
+ <INTGO>
+ <EMPL? TEMP10 + MAPAP27>
+ <NTHL TEMP10 1 = K6>
+ <NTHUV K6 1 = TEMP20 (TYPE FIX)>
+ <VEQUAL? TEMP20 3 - PHRASE34 (TYPE FIX)>
+ <DEAD TEMP20>
+ <FRAME '\1aEANA>
+ <NTHUV K6 5 = TEMP20 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL TEMP20 1 = STACK (TYPE NODE)>
+ <DEAD TEMP20>
+ <PUSH <OR MULTI STRUCTURED>>
+ <PUSH 'CALL>
+ <CALL '\1aEANA 3>
+ <JUMP + PHRASE37>
+PHRASE34
+ <FRAME '\1aEANA>
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH 'ANY>
+ <PUSH 'CALL>
+ <CALL '\1aEANA 3>
+PHRASE37
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <JUMP + MAP24>
+MAPAP27
+ <PUTUV N4 1 93 (TYPE FIX)>
+ <DEAD N4>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 'ANY>
+ <CALL '\1aTYPE-OK? 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aAPPLY-ANA>
+<COND (<GASSIGNED? APPLY-ANA> <PUTPROP ,APPLY ANALYSIS ,APPLY-ANA>)>
+
+#WORD *15356675245*
+<GFCN \1aANALYSIS-DISPATCHER ("VALUE" ANY ANY ANY) NOD4 RTYP5>
+ <TEMP TEMP62>
+ <INTGO>
+ <NTHUV NOD4 1 = TEMP62 (TYPE FIX)>
+ <DISPATCH TEMP62 1 CASE9 CASE8 CASE10 CASE11 CASE12 CASE13 CASE14 CASEDF6 CASE16 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASE15 CASEDF6 CASEDF6 CASE25 CASE27 CASEDF6 CASE28 CASE26 CASEDF6 CASEDF6 CASE34 CASE35 CASE36 CASE37 CASE38 CASE39 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASE29 CASEDF6 CASEDF6 CASE30 CASE31 CASE32 CASE33 CASEDF6 CASEDF6 CASE17 CASE18 CASEDF6 CASEDF6 CASE51 CASE52 CASE23 CASEDF6 CASEDF6 CASE19 CASE20 CASEDF6 CASE21 CASE22 CASEDF6 CASEDF6 CASE42 CASE24 CASEDF6 CASEDF6 CASEDF6 CASE40 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASE41 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASE46 CASE60 CASE54 CASE55 CASE47 CASEDF6 CASE43 CASE44 CASE45 CASE48 CASE49 CASEDF6 CASEDF6 CASE50 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASE53 CASE56 CASE57 CASE58 CASE59 CASE61>
+ <DEAD TEMP62>
+CASEDF6
+ <FRAME '\1aSUBR-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aSUBR-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE8
+ <FRAME '\1aQUOTE-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aQUOTE-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE9
+ <FRAME '\1aFUNC-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aFUNC-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE10
+ <FRAME '\1aSEGMENT-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aSEGMENT-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE11
+ <FRAME '\1aFORM-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aFORM-AN 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE12
+ <FRAME '\1aPRG-REP-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aPRG-REP-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE13
+ <FRAME '\1aSUBR-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aSUBR-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE14
+ <FRAME '\1aCOND-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aCOND-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE15
+ <FRAME '\1aCOPY-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aCOPY-AN 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE16
+ <FRAME '\1aRSUBR-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aRSUBR-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE17
+ <FRAME '\1aISTRUC-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aISTRUC-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE18
+ <FRAME '\1aISTRUC2-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aISTRUC2-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE19
+ <FRAME '\1aREAD-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aREAD-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE20
+ <FRAME '\1aREAD2-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aREAD2-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE21
+ <FRAME '\1aGET-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aGET-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE22
+ <FRAME '\1aGET2-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aGET2-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE23
+ <FRAME '\1aMAPPER-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aMAPPER-AN 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE24
+ <FRAME '\1aMARGS-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aMARGS-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE25
+ <FRAME '\1aARITH-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aARITH-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE26
+ <FRAME '\1aARITHP-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aARITHP-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE27
+ <FRAME '\1aARITHP-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aARITHP-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE28
+ <FRAME '\1aARITHP-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aARITHP-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE29
+ <FRAME '\1aARITH-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aARITH-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE30
+ <FRAME '\1aABS-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aABS-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE31
+ <FRAME '\1aFIX-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aFIX-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE32
+ <FRAME '\1aFLOAT-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aFLOAT-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE33
+ <FRAME '\1aMOD-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aMOD-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE34
+ <FRAME '\1aLENGTH-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aLENGTH-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE35
+ <FRAME '\1aEMPTY?-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aEMPTY?-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE36
+ <FRAME '\1aNTH-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aNTH-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE37
+ <FRAME '\1aREST-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aREST-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE38
+ <FRAME '\1aPUT-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aPUT-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE39
+ <FRAME '\1aPUTREST-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aPUTREST-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE40
+ <FRAME '\1aUNWIND-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aUNWIND-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE41
+ <FRAME '\1aFORM-F-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aFORM-F-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE42
+ <FRAME '\1aIRSUBR-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aIRSUBR-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE43
+ <FRAME '\1aROT-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aROT-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE44
+ <FRAME '\1aLSH-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aLSH-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE45
+ <FRAME '\1aBIT-TEST-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aBIT-TEST-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE46
+ <FRAME '\1aCASE-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aCASE-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE47
+ <FRAME '\1aCOPY-AN>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aCOPY-AN 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE48
+ <FRAME '\1aADECL-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aADECL-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE49
+ <FRAME '\1aCALL-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aCALL-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE50
+ <FRAME '\1aAPPLY-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aAPPLY-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE51
+ <FRAME '\1aFGETBITS-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aFGETBITS-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE52
+ <FRAME '\1aFPUTBITS-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aFPUTBITS-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE53
+ <FRAME '\1aSTACK-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aSTACK-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE54
+ <FRAME '\1aBACK-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aBACK-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE55
+ <FRAME '\1aTOP-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aTOP-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE56
+ <FRAME '\1aCHANNEL-OP-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aCHANNEL-OP-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE57
+ <FRAME '\1aATOM-PART-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aATOM-PART-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE58
+ <FRAME '\1aOFFSET-PART-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aOFFSET-PART-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE59
+ <FRAME '\1aPUT-GET-DECL-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aPUT-GET-DECL-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE60
+ <FRAME '\1aSUBSTRUC-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aSUBSTRUC-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+CASE61
+ <FRAME '\1aMULTI-SET-ANA>
+ <PUSH NOD4>
+ <DEAD NOD4>
+ <PUSH RTYP5>
+ <DEAD RTYP5>
+ <CALL '\1aMULTI-SET-ANA 2 = TEMP62>
+ <RETURN TEMP62>
+ <DEAD TEMP62>
+ <END \1aANALYSIS-DISPATCHER>
+#WORD *17716534644*
+<GFCN \1aSPEC-ANA ("VALUE" ANY ANY ANY ANY ANY ANY NODE ANY) CONST4 PRED-NAME5 OTYPE6 RTYP7 DFLG8 NOD9 WHO10>
+ <TEMP PAT12 TEMP20 X34 L64:LIST FLG65 TEMP67 TEMP71>
+ <INTGO>
+ <TYPE? CONST4 <TYPE-CODE LIST> - PHRASE14>
+ <EQUAL? PRED-NAME5 '==? - PHRASE16>
+ <FRAME '\1aGEN-DECL>
+ <NTHL CONST4 1 = STACK>
+ <DEAD CONST4>
+ <CALL '\1aGEN-DECL 1 = PAT12>
+ <JUMP + PHRASE42>
+PHRASE16
+ <EQUAL? PRED-NAME5 'TYPE? - PHRASE18>
+ <FRAME '\1aTYPE-MERGE>
+ <SET PAT12 0 (TYPE FIX)>
+ <SET TEMP20 CONST4>
+ <DEAD CONST4>
+ <LOOP (TEMP20 VALUE) (PAT12 VALUE)>
+TAG22
+ <INTGO>
+ <EMPL? TEMP20 + TAG19>
+ <NTHL TEMP20 1 = STACK>
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <ADD PAT12 1 = PAT12 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG19
+ <CALL '\1aTYPE-MERGE PAT12 = PAT12>
+ <JUMP + PHRASE42>
+PHRASE18
+ <SET PAT12 CONST4 (TYPE LIST)>
+ <DEAD CONST4>
+ <SET TEMP20 0 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <LOOP>
+MAP26
+ <INTGO>
+ <EMPL? PAT12 + MAPAP29>
+ <NTHL PAT12 1 = X34>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH X34>
+ <DEAD X34>
+ <CALL '\1aFORM 2 = X34>
+ <PUSH X34>
+ <DEAD X34>
+ <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
+ <RESTL PAT12 1 = PAT12 (TYPE LIST)>
+ <JUMP + MAP26>
+MAPAP29
+ <CALL '\1aTYPE-MERGE TEMP20 = PAT12>
+ <DEAD TEMP20>
+ <JUMP + PHRASE42>
+PHRASE14
+ <EQUAL? PRED-NAME5 '==? - PHRASE39>
+ <FRAME '\1aGEN-DECL>
+ <PUSH CONST4>
+ <DEAD CONST4>
+ <CALL '\1aGEN-DECL 1 = PAT12>
+ <JUMP + PHRASE42>
+PHRASE39
+ <EQUAL? PRED-NAME5 'TYPE? - PHRASE41>
+ <SET PAT12 CONST4>
+ <DEAD CONST4>
+ <JUMP + PHRASE42>
+PHRASE41
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH CONST4>
+ <DEAD CONST4>
+ <CALL '\1aFORM 2 = PAT12>
+PHRASE42
+ <TYPE? DFLG8 <TYPE-CODE FALSE> + PHRASE45>
+ <DEAD DFLG8>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH 'ATOM>
+ <PUSH RTYP7>
+ <DEAD RTYP7>
+ <CALL '\1aTYPE-OK? 2 = X34>
+ <PUTUV NOD9 3 X34>
+ <DEAD NOD9>
+ <RETURN X34>
+ <DEAD X34>
+PHRASE45
+ <EQUAL? PRED-NAME5 '==? + PHRASE49>
+ <DEAD PRED-NAME5>
+ <EQUAL? OTYPE6 'ANY + PHRASE49>
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aFORM>
+ <PUSH 'NOT>
+ <PUSH PAT12>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH OTYPE6>
+ <CALL '\1aTYPE-OK? 2 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE49>
+ <DEAD TEMP20>
+ <SET X34 'ATOM (TYPE ATOM)>
+ <JUMP + PHRASE55>
+PHRASE49
+ <FRAME '\1aTYPE-OK?>
+ <PUSH OTYPE6>
+ <DEAD OTYPE6>
+ <PUSH PAT12>
+ <CALL '\1aTYPE-OK? 2 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE53>
+ <DEAD TEMP20>
+ <SET X34 <OR FALSE ATOM> (TYPE FORM)>
+ <JUMP + PHRASE55>
+PHRASE53
+ <SET X34 'FALSE (TYPE ATOM)>
+PHRASE55
+ <SET TEMP20 WHO10>
+ <DEAD WHO10>
+ <LOOP>
+MAP57
+ <INTGO>
+ <EMPTY? TEMP20 + MAPAP60>
+ <NTH1 TEMP20 = L64>
+ <NTHL L64 1 = FLG65>
+ <RESTL L64 1 = TEMP67 (TYPE LIST)>
+ <NTHL TEMP67 1 = TEMP67 (TYPE SYMTAB)>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP67>
+ <PUSH PAT12>
+ <GEN-LVAL 'TRUTH = STACK>
+ <PUSH FLG65>
+ <RESTL L64 1 = TEMP71 (TYPE LIST)>
+ <RESTL TEMP71 1 = STACK (TYPE LIST)>
+ <DEAD TEMP71>
+ <CALL '\1aADD-TYPE-LIST 5 = TEMP71>
+ <GEN-SET 'TRUTH TEMP71>
+ <DEAD TEMP71>
+ <VEQUAL? X34 'ATOM + BOOL74>
+ <FRAME '\1aADD-TYPE-LIST>
+ <PUSH TEMP67>
+ <DEAD TEMP67>
+ <FRAME '\1aFORM>
+ <PUSH 'NOT>
+ <PUSH PAT12>
+ <CALL '\1aFORM 2 = STACK>
+ <GEN-LVAL 'UNTRUTH = STACK>
+ <PUSH FLG65>
+ <DEAD FLG65>
+ <RESTL L64 1 = L64 (TYPE LIST)>
+ <RESTL L64 1 = STACK (TYPE LIST)>
+ <DEAD L64>
+ <CALL '\1aADD-TYPE-LIST 5 = L64>
+ <GEN-SET 'UNTRUTH L64>
+ <DEAD L64>
+BOOL74
+ <REST1 TEMP20 = TEMP20>
+ <JUMP + MAP57>
+MAPAP60
+ <FRAME '\1aTYPE-OK?>
+ <PUSH X34>
+ <DEAD X34>
+ <PUSH RTYP7>
+ <DEAD RTYP7>
+ <CALL '\1aTYPE-OK? 2 = X34>
+ <PUTUV NOD9 3 X34>
+ <DEAD NOD9>
+ <RETURN X34>
+ <DEAD X34>
+ <END \1aSPEC-ANA>
+#WORD *35525370426*
+<GFCN \1aISTRUC-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6 (NEL10 'REST) NUM8:NODE FM7 TEMP18>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = NUM8 (TYPE NODE)>
+ <PUSH NUM8>
+ <PUSH 'FIX>
+ <NTHUV N4 4 = STACK>
+ <CALL '\1aEANA 3>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <NTHL K6 1 = FM7 (TYPE NODE)>
+ <DEAD K6>
+ <PUSH FM7>
+ <NTHUV FM7 4 = K6>
+ <EQUAL? K6 'ISTRING - PHRASE16>
+ <DEAD K6>
+ <SET K6 'CHARACTER (TYPE ATOM)>
+ <JUMP + PHRASE20>
+PHRASE16
+ <NTHUV FM7 4 = TEMP18>
+ <EQUAL? TEMP18 'IBYTES - PHRASE17>
+ <DEAD TEMP18>
+ <SET K6 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE20>
+PHRASE17
+ <NTHUV FM7 4 = TEMP18>
+ <DEAD FM7>
+ <EQUAL? TEMP18 'UVECTOR - PHRASE19>
+ <DEAD TEMP18>
+ <SET K6 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE20>
+PHRASE19
+ <SET K6 'ANY (TYPE ATOM)>
+PHRASE20
+ <PUSH K6>
+ <DEAD K6>
+ <NTHUV N4 4 = STACK>
+ <CALL '\1aEANA 3 = FM7>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH FM7>
+ <PUSH <OR FORM LIST VECTOR UVECTOR LVAL GVAL>>
+ <CALL '\1aTYPE-OK? 2 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD K6>
+ <FRAME '\1aCOMPILE-WARNING>
+ <PUSH "Explicit EVAL required: ">
+ <NTHUV N4 4 = STACK>
+ <PUSH N4>
+ <CALL '\1aCOMPILE-WARNING 3>
+ <FRAME '\1aSPEC-FLUSH>
+ <CALL '\1aSPEC-FLUSH 0>
+ <FRAME '\1aPUT-FLUSH>
+ <PUSH 'ALL>
+ <CALL '\1aPUT-FLUSH 1>
+PHRASE22
+ <NTHUV NUM8 1 = K6 (TYPE FIX)>
+ <VEQUAL? K6 2 - PHRASE28 (TYPE FIX)>
+ <DEAD K6>
+ <NTHUV NUM8 4 = NEL10>
+ <DEAD NUM8>
+PHRASE28
+ <FRAME '\1aTYPE-OK?>
+ <PUSH FM7>
+ <PUSH 'FORM>
+ <CALL '\1aTYPE-OK? 2 = K6>
+ <TYPE? K6 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD K6>
+ <SET FM7 'ANY (TYPE ATOM)>
+PHRASE30
+ <FRAME '\1aTYPE-OK?>
+ <FRAME '\1aFORM>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <SET TEMP18 1 (TYPE FIX)>
+ <TYPE? NEL10 <TYPE-CODE FIX> - PHRASE36>
+ <PUSH NEL10>
+ <DEAD NEL10>
+ <PUSH FM7>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = K6>
+ <CONS K6 () = K6>
+ <JUMP + PHRASE39>
+PHRASE36
+ <SET K6 () (TYPE LIST)>
+PHRASE39
+ <LOOP (K6 VALUE) (TEMP18 VALUE)>
+TAG40
+ <INTGO>
+ <EMPL? K6 + TAG33>
+ <NTHL K6 1 = STACK>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
+ <JUMP + TAG40>
+TAG33
+ <EQUAL? FM7 'ANY - PHRASE43>
+ <SET K6 () (TYPE LIST)>
+ <JUMP + PHRASE44>
+PHRASE43
+ <PUSH 'REST>
+ <PUSH FM7>
+ <DEAD FM7>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = K6>
+ <CONS K6 () = K6>
+PHRASE44
+ <LOOP (K6 VALUE) (TEMP18 VALUE)>
+TAG46
+ <INTGO>
+ <EMPL? K6 + TAG41>
+ <NTHL K6 1 = STACK>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
+ <JUMP + TAG46>
+TAG41
+ <CALL '\1aFORM TEMP18 = STACK>
+ <DEAD TEMP18>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aISTRUC-ANA>
+#WORD *551734666*
+<GFCN \1aISTRUC2-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6 (NEL10 'REST) NUM8 TEMP15 TY9>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = NUM8 (TYPE NODE)>
+ <PUSH NUM8>
+ <PUSH 'FIX>
+ <NTHUV N4 4 = STACK>
+ <CALL '\1aEANA 3>
+ <NTHUV N4 4 = TEMP15>
+ <EQUAL? TEMP15 'ISTRING - PHRASE14>
+ <DEAD TEMP15>
+ <SET TY9 'CHARACTER (TYPE ATOM)>
+ <JUMP + PHRASE18>
+PHRASE14
+ <NTHUV N4 4 = TEMP15>
+ <EQUAL? TEMP15 'IBYTES + BOOL17>
+ <DEAD TEMP15>
+ <NTHUV N4 4 = TEMP15>
+ <EQUAL? TEMP15 'IUVECTOR - PHRASE16>
+ <DEAD TEMP15>
+BOOL17
+ <SET TY9 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE18>
+PHRASE16
+ <SET TY9 'ANY (TYPE ATOM)>
+PHRASE18
+ <EMPL? K6 + PHRASE20>
+ <RESTL K6 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 + PHRASE20>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 - PHRASE20>
+ <DEAD TEMP15>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP15 (TYPE LIST)>
+ <DEAD K6>
+ <NTHL TEMP15 1 = K6 (TYPE NODE)>
+ <DEAD TEMP15>
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH TY9>
+ <DEAD TY9>
+ <NTHUV N4 4 = STACK>
+ <CALL '\1aEANA 3 = TY9>
+PHRASE20
+ <NTHUV NUM8 1 = TEMP15 (TYPE FIX)>
+ <VEQUAL? TEMP15 2 - PHRASE23 (TYPE FIX)>
+ <DEAD TEMP15>
+ <NTHUV NUM8 4 = NEL10>
+ <DEAD NUM8>
+PHRASE23
+ <FRAME '\1aTYPE-OK?>
+ <EQUAL? NEL10 'REST - PHRASE26>
+ <EQUAL? TY9 'ANY - PHRASE26>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <CALL '\1aISTYPE? 1 = TEMP15>
+ <JUMP + PHRASE29>
+PHRASE26
+ <FRAME '\1aFORM>
+ <FRAME '\1aISTYPE?>
+ <NTHUV N4 3 = STACK>
+ <DEAD N4>
+ <CALL '\1aISTYPE? 1 = STACK>
+ <SET NUM8 1 (TYPE FIX)>
+ <EQUAL? NEL10 'REST + PHRASE35>
+ <PUSH NEL10>
+ <DEAD NEL10>
+ <PUSH TY9>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = K6>
+ <CONS K6 () = K6>
+ <JUMP + PHRASE38>
+PHRASE35
+ <SET K6 () (TYPE LIST)>
+PHRASE38
+ <LOOP (K6 VALUE) (NUM8 VALUE)>
+TAG39
+ <INTGO>
+ <EMPL? K6 + TAG30>
+ <NTHL K6 1 = STACK>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <ADD NUM8 1 = NUM8 (TYPE FIX)>
+ <JUMP + TAG39>
+TAG30
+ <EQUAL? TY9 'ANY - PHRASE42>
+ <SET K6 () (TYPE LIST)>
+ <JUMP + PHRASE43>
+PHRASE42
+ <PUSH 'REST>
+ <PUSH TY9>
+ <DEAD TY9>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = K6>
+ <CONS K6 () = K6>
+PHRASE43
+ <LOOP (K6 VALUE) (NUM8 VALUE)>
+TAG45
+ <INTGO>
+ <EMPL? K6 + TAG40>
+ <NTHL K6 1 = STACK>
+ <RESTL K6 1 = K6 (TYPE LIST)>
+ <ADD NUM8 1 = NUM8 (TYPE FIX)>
+ <JUMP + TAG45>
+TAG40
+ <CALL '\1aFORM NUM8 = TEMP15>
+ <DEAD NUM8>
+PHRASE29
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH R5>
+ <DEAD R5>
+ <CALL '\1aTYPE-OK? 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aISTRUC2-ANA>
+#WORD *204506400*
+<GFCN \1aSTACK-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aEANA>
+ <NTHUV N4 5 = TEMP7 (TYPE LIST)>
+ <DEAD N4>
+ <NTHL TEMP7 1 = STACK (TYPE NODE)>
+ <DEAD TEMP7>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 'STACK>
+ <CALL '\1aEANA 3 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSTACK-ANA>
+#WORD *22352712603*
+<GFCN \1aCHANNEL-OP-ANA ("VALUE" ANY NODE ANY) N4 R5>
+ <TEMP K6 TEMP9 TEMP14:FIX TEMP20>
+ <INTGO>
+ <NTHUV N4 5 = K6 (TYPE LIST)>
+ <FRAME '\1aSEGFLUSH>
+ <PUSH N4>
+ <PUSH R5>
+ <CALL '\1aSEGFLUSH 2 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE11>
+ <PUSH N4>
+ <SET TEMP14 1 (TYPE FIX)>
+ <NTHUV N4 8 = TEMP9>
+ <TYPE TEMP9 = TEMP20>
+ <AND TEMP20 7 = TEMP20>
+ <VEQUAL? TEMP20 1 + TAG16>
+ <DEAD TEMP20>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG22
+ <INTGO>
+ <EMPTY? TEMP9 + TAG21>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG21
+ <LIST TEMP14 = TEMP9 (TYPE LIST)>
+ <DEAD TEMP14>
+ <JUMP + TAG18>
+TAG16
+ <LOOP>
+TAG19
+ <VEQUAL? TEMP14 0 + TAG18>
+ <POP = TEMP20>
+ <CONS TEMP20 TEMP9 = TEMP9 (TYPE LIST)>
+ <DEAD TEMP20>
+ <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG19>
+TAG18
+ <PUTUV N4 8 TEMP9>
+ <DEAD TEMP9>
+ <EMPL? K6 + TAG25>
+ <RESTL K6 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 - PHRASE24>
+ <DEAD TEMP9>
+TAG25
+ <FRAME '\1aARGCHK>
+ <LENL K6 = STACK (TYPE FIX)>
+ <PUSH 2>
+ <PUSH 'CHANNEL-OP>
+ <PUSH N4>
+ <CALL '\1aARGCHK 4>
+PHRASE24
+ <FRAME '\1aEANA>
+ <NTHL K6 1 = STACK (TYPE NODE)>
+ <PUSH 'CHANNEL>
+ <PUSH 'CHANNEL-OP>
+ <CALL '\1aEANA 3 = TEMP20>
+ <FRAME '\1aEANA>
+ <RESTL K6 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK (TYPE NODE)>
+ <DEAD TEMP9>
+ <PUSH 'ATOM>
+ <PUSH 'CHANNEL-OP>
+ <CALL '\1aEANA 3>
+ <RESTL K6 1 = TEMP9 (TYPE LIST)>
+ <DEAD K6>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPL? TEMP9 + MAPAP33>
+ <NTHL TEMP9 1 = K6>
+ <FRAME '\1aANA>
+ <PUSH K6>
+ <DEAD K6>
+ <PUSH 'ANY>
+ <CALL '\1aANA 2>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <JUMP + MAP30>
+MAPAP33
+ <TYPE? TEMP20 <TYPE-CODE FORM> + TAG45>
+ <TYPE? TEMP20 <TYPE-CODE SEGMENT> - PHRASE43>
+TAG45
+ <EMPL? TEMP20 + PHRASE43>
+ <RESTL TEMP20 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + PHRASE43>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 - PHRASE43>
+ <DEAD TEMP9>
+ <RESTL TEMP20 1 = TEMP9 (TYPE LIST)>
+ <DEAD TEMP20>
+ <NTHL TEMP9 1 = TEMP20>
+ <DEAD TEMP9>
+ <TYPE? TEMP20 <TYPE-CODE FORM> - PHRASE43>
+ <EMPL? TEMP20 + PHRASE43>
+ <RESTL TEMP20 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + PHRASE43>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 - PHRASE43>
+ <DEAD TEMP9>
+ <NTHL TEMP20 1 = TEMP9>
+ <EQUAL? TEMP9 'QUOTE - PHRASE43>
+ <DEAD TEMP9>
+ <RESTL TEMP20 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE ATOM> - PHRASE43>
+ <DEAD TEMP9>
+ <PUTUV N4 1 99 (TYPE FIX)>
+ <RESTL TEMP20 1 = TEMP9 (TYPE LIST)>
+ <DEAD TEMP20>
+ <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <PUTUV N4 9 TEMP9>
+ <DEAD N4 TEMP9>
+PHRASE43
+ <FRAME '\1aTYPE-OK?>
+ <PUSH R5>
+ <DEAD R5>
+ <PUSH 'ANY>
+ <CALL '\1aTYPE-OK? 2 = TEMP9>
+PHRASE11
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCHANNEL-OP-ANA>
+<COND (<AND <GASSIGNED? CHANNEL-OP> <GASSIGNED? CHANNEL-OP-ANA>> <PUTPROP ,CHANNEL-OP ANALYSIS ,CHANNEL-OP-ANA>)>
+
+#WORD *36756005520*
+<GFCN \1aP-SYMTAB ("VALUE" ANY SYMTAB) SY4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH "#SY ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <NTHUV SY4 2 = STACK (TYPE ATOM)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " Decl: ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV SY4 7 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " CType: ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <FRAME '\1aGET-CURRENT-TYPE>
+ <PUSH SY4>
+ <DEAD SY4>
+ <CALL '\1aGET-CURRENT-TYPE 1 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aP-SYMTAB>
+<COND (<GASSIGNED? P-SYMTAB> <PRINTTYPE SYMTAB ,P-SYMTAB>)>
+
+#WORD *10374523157*
+<GFCN \1aP-NODE ("VALUE" ANY NODE) NOD4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH "#NODE ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <FRAME '\1aNTH>
+ <GVAL 'CODVEC = STACK>
+ <NTHUV NOD4 1 = STACK (TYPE FIX)>
+ <CALL '\1aNTH 2 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " Name: ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV NOD4 4 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH " Type: ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <NTHUV NOD4 3 = STACK>
+ <DEAD NOD4>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRIN1 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aP-NODE>
+<COND (<GASSIGNED? P-NODE> <PRINTTYPE NODE ,P-NODE>)>
+
+<ENDPACKA
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff