--- /dev/null
+
+<PACKAGE "CHKDCL">
+
+<ENTRY MTYPR TYPE-AND TYPE-OK? TASTEFUL-DECL GET-ELE-TYPE STRUCTYP STRUCTYP-SEG TYPE-ATOM-OK? ISTYPE-GOOD? TYPE-MERGE DEFERN TOP-TYPE ISTYPE? TYPESAME ANY-PAT STRUC GETBSYZ GEN-DECL REST-DECL MINL GET-RANGE PRIMITIVE-TYPE INTERPRETER-IMPLEMENTOR? DECL-GET BOOLEAN BOOL-TRUE BOOL-FALSE MAXL>
+
+<PUT-DECL BOOLEAN '<OR ATOM !<FALSE>>>
+
+<PUT-DECL BOOL-TRUE ATOM>
+
+<PUT-DECL BOOL-FALSE '!<FALSE>>
+
+<USE "COMPDEC" "ADVMESS">
+
+<SETG INTERPRETER-IMPLEMENTOR? T>
+
+<SETG DECL-RESTED 1>
+
+<SETG DECL-ELEMENT 2>
+
+<SETG DECL-ITEM-COUNT 3>
+
+<SETG DECL-IN-REST 4>
+
+<SETG DECL-IN-COUNT-VEC 5>
+
+<SETG DECL-REST-VEC 6>
+
+<MANIFEST DECL-RESTED DECL-ELEMENT DECL-ITEM-COUNT DECL-IN-REST DECL-IN-COUNT-VEC DECL-REST-VEC>
+
+<SETG HIGHBOUND 2>
+
+<SETG LOWBOUND 1>
+
+<MANIFEST HIGHBOUND LOWBOUND>
+
+<SETG ALLWORDS '<PRIMTYPE WORD>>
+
+#WORD *14505653666*
+<GFCN \1aTASTEFUL-DECL ("VALUE" ANY ANY) D4>
+ <TEMP TEMP10 TT6 TEMP40 TEMP43 TEMP66:VECTOR>
+ <INTGO>
+ <TYPE? D4 <TYPE-CODE FALSE> + BOOL9>
+ <EQUAL? D4 'NO-RETURN - PHRASE8>
+BOOL9
+ <RETURN 'ANY>
+PHRASE8
+ <TYPE? D4 <TYPE-CODE ATOM> - PHRASE11>
+ <NTHR D4 5 = TEMP10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE11)>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD TEMP10>
+ <RETURN D4>
+ <DEAD D4>
+PHRASE11
+ <SET TEMP10 D4>
+ <TYPE? TEMP10 <TYPE-CODE ATOM> + BOOL16>
+ <FRAME '\1aISTYPE?>
+ <PUSH D4>
+ <CALL '\1aISTYPE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE14>
+BOOL16
+ <FRAME '\1aDECL-GET>
+ <PUSH TEMP10>
+ <CALL '\1aDECL-GET 1 = TT6>
+ <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE14>
+ <VEQUAL? TEMP10 'BOOLEAN + BOOL21>
+ <VEQUAL? TEMP10 'BOOL-FALSE + BOOL21>
+ <VEQUAL? TEMP10 'BOOL-TRUE - PHRASE20>
+BOOL21
+ <RETURN TT6>
+ <DEAD TT6>
+PHRASE20
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE14
+ <TYPE? D4 <TYPE-CODE FORM> + TAG24>
+ <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE23>
+TAG24
+ <SET TEMP10 D4>
+ <SET TT6 1 (TYPE FIX)>
+ <LOOP (TEMP10 VALUE) (TT6 VALUE)>
+TAG29
+ <EMPL? TEMP10 + TAG27>
+ <SUB TT6 1 = TT6 (TYPE FIX)>
+ <LESS? TT6 0 + PHRASE26>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <JUMP + TAG29>
+TAG27
+ <EMPL? D4 - BOOL32>
+ <RETURN 'ANY>
+BOOL32
+ <FRAME '\1aTASTEFUL-DECL>
+ <NTHL D4 1 = STACK>
+ <DEAD D4>
+ <CALL '\1aTASTEFUL-DECL 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE26
+ <NTHL D4 1 = TT6>
+ <EQUAL? TT6 'FIX - PHRASE34>
+ <DEAD TT6>
+ <RETURN 'FIX>
+PHRASE34
+ <EMPL? D4 + PHRASE35>
+ <RESTL D4 1 = TT6 (TYPE LIST)>
+ <EMPL? TT6 + PHRASE35>
+ <RESTL TT6 1 = TT6 (TYPE LIST)>
+ <EMPL? TT6 - PHRASE35>
+ <DEAD TT6>
+ <NTHL D4 1 = TT6>
+ <EQUAL? TT6 'NOT - PHRASE35>
+ <DEAD TT6>
+ <RETURN 'ANY>
+PHRASE35
+ <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE37>
+ <SET TEMP10 () (TYPE LIST)>
+ <SET TEMP40 () (TYPE LIST)>
+ <CHTYPE D4 <TYPE-CODE LIST> = TT6>
+ <DEAD D4>
+ <LOOP>
+MAP39
+ <INTGO>
+ <EMPL? TT6 + MAP38>
+ <FRAME '\1aTASTEFUL-DECL>
+ <NTHL TT6 1 = STACK>
+ <CALL '\1aTASTEFUL-DECL 1 = TEMP43>
+ <CONS TEMP43 () = TEMP43 (TYPE LIST)>
+ <EMPL? TEMP10 - TAG44>
+ <SET TEMP10 TEMP43 (TYPE LIST)>
+ <JUMP + TAG45>
+TAG44
+ <PUTREST TEMP40 TEMP43>
+ <DEAD TEMP40>
+TAG45
+ <SET TEMP40 TEMP43 (TYPE LIST)>
+ <DEAD TEMP43>
+ <RESTL TT6 1 = TT6 (TYPE LIST)>
+ <JUMP + MAP39>
+MAP38
+ <CHTYPE TEMP10 <TYPE-CODE SEGMENT> = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE37
+ <SET TEMP43 () (TYPE LIST)>
+ <SET TEMP10 () (TYPE LIST)>
+ <CHTYPE D4 <TYPE-CODE LIST> = TT6>
+ <DEAD D4>
+ <LOOP>
+MAP48
+ <INTGO>
+ <EMPL? TT6 + MAP47>
+ <FRAME '\1aTASTEFUL-DECL>
+ <NTHL TT6 1 = STACK>
+ <CALL '\1aTASTEFUL-DECL 1 = TEMP40>
+ <CONS TEMP40 () = TEMP40 (TYPE LIST)>
+ <EMPL? TEMP43 - TAG53>
+ <SET TEMP43 TEMP40 (TYPE LIST)>
+ <JUMP + TAG54>
+TAG53
+ <PUTREST TEMP10 TEMP40>
+ <DEAD TEMP10>
+TAG54
+ <SET TEMP10 TEMP40 (TYPE LIST)>
+ <DEAD TEMP40>
+ <RESTL TT6 1 = TT6 (TYPE LIST)>
+ <JUMP + MAP48>
+MAP47
+ <CHTYPE TEMP43 <TYPE-CODE FORM> = TEMP10>
+ <DEAD TEMP43>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE23
+ <TYPE? D4 <TYPE-CODE VECTOR> - PHRASE55>
+ <NTHUV D4 1 = TT6>
+ <EQUAL? TT6 'OPT - PHRASE58>
+ <DEAD TT6>
+ <SET TT6 'OPTIONAL (TYPE ATOM)>
+ <JUMP + PHRASE59>
+PHRASE58
+ <NTHUV D4 1 = TT6>
+PHRASE59
+ <PUSH TT6>
+ <DEAD TT6>
+ <SET TEMP40 1 (TYPE FIX)>
+ <SET TT6 () (TYPE LIST)>
+ <SET TEMP10 () (TYPE LIST)>
+ <RESTUV D4 1 = TEMP66 (TYPE VECTOR)>
+ <DEAD D4>
+ <LOOP>
+MAP61
+ <INTGO>
+ <EMPUV? TEMP66 + MAP60>
+ <FRAME '\1aTASTEFUL-DECL>
+ <NTHUV TEMP66 1 = STACK>
+ <CALL '\1aTASTEFUL-DECL 1 = TEMP43>
+ <CONS TEMP43 () = TEMP43 (TYPE LIST)>
+ <EMPL? TT6 - TAG69>
+ <SET TT6 TEMP43 (TYPE LIST)>
+ <JUMP + TAG70>
+TAG69
+ <PUTREST TEMP10 TEMP43>
+ <DEAD TEMP10>
+TAG70
+ <SET TEMP10 TEMP43 (TYPE LIST)>
+ <DEAD TEMP43>
+ <RESTUV TEMP66 1 = TEMP66 (TYPE VECTOR)>
+ <JUMP + MAP61>
+MAP60
+ <LOOP (TT6 VALUE) (TEMP40 VALUE)>
+TAG71
+ <INTGO>
+ <EMPL? TT6 + TAG56>
+ <NTHL TT6 1 = STACK>
+ <RESTL TT6 1 = TT6 (TYPE LIST)>
+ <ADD TEMP40 1 = TEMP40 (TYPE FIX)>
+ <JUMP + TAG71>
+TAG56
+ <UBLOCK <TYPE-CODE VECTOR> TEMP40 = TEMP10>
+ <DEAD TEMP40>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE55
+ <RETURN D4>
+ <DEAD D4>
+ <END \1aTASTEFUL-DECL>\r\r
+#WORD *10237073025*
+<GFCN \1aTMERGE ("VALUE" ANY ANY ANY) P14 P25>
+ <TEMP TEMP10>
+ <INTGO>
+ <EQUAL? P14 'ANY + BOOL9>
+ <EQUAL? P25 'ANY - PHRASE8>
+BOOL9
+ <RETURN 'ANY>
+PHRASE8
+ <EQUAL? P14 P25 - PHRASE11>
+ <RETURN P14>
+ <DEAD P14>
+PHRASE11
+ <TYPE? P14 <TYPE-CODE FORM> - BOOL12>
+ <EMPL? P14 + BOOL12>
+ <RESTL P14 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 + BOOL12>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 - BOOL12>
+ <DEAD TEMP10>
+ <NTHL P14 1 = TEMP10>
+ <EQUAL? TEMP10 'NOT - BOOL12>
+ <DEAD TEMP10>
+ <RESTL P14 1 = TEMP10 (TYPE LIST)>
+ <DEAD P14>
+ <NTHL TEMP10 1 = TEMP10>
+ <EQUAL? TEMP10 'ANY - BOOL15>
+ <DEAD TEMP10>
+ <SET TEMP10 P25>
+ <DEAD P25>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE31>
+BOOL15
+ <RETURN 'ANY>
+BOOL12
+ <TYPE? P25 <TYPE-CODE FORM> - BOOL16>
+ <EMPL? P25 + BOOL16>
+ <RESTL P25 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 + BOOL16>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 - BOOL16>
+ <DEAD TEMP10>
+ <NTHL P25 1 = TEMP10>
+ <EQUAL? TEMP10 'NOT - BOOL16>
+ <DEAD TEMP10>
+ <RESTL P25 1 = TEMP10 (TYPE LIST)>
+ <DEAD P25>
+ <NTHL TEMP10 1 = TEMP10>
+ <EQUAL? TEMP10 'ANY - BOOL18>
+ <DEAD TEMP10>
+ <SET TEMP10 P14>
+ <DEAD P14>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE31>
+BOOL18
+ <RETURN 'ANY>
+BOOL16
+ <TYPE? P14 <TYPE-CODE ATOM> - PHRASE19>
+ <TYPE? P25 <TYPE-CODE ATOM> - PHRASE19>
+ <VEQUAL? P14 'BOOL-TRUE + BOOL21>
+ <VEQUAL? P14 'BOOL-FALSE + BOOL21>
+ <VEQUAL? P14 'BOOLEAN - PHRASE19>
+BOOL21
+ <VEQUAL? P25 'BOOL-TRUE + BOOL22>
+ <VEQUAL? P25 'BOOL-FALSE + BOOL22>
+ <VEQUAL? P25 'BOOLEAN - PHRASE19>
+BOOL22
+ <RETURN 'BOOLEAN>
+PHRASE19
+ <TYPE? P14 <TYPE-CODE FORM> + TAG26>
+ <TYPE? P14 <TYPE-CODE SEGMENT> - BOOL25>
+TAG26
+ <EMPL? P14 + BOOL25>
+ <RESTL P14 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 + BOOL25>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 - BOOL25>
+ <DEAD TEMP10>
+ <RESTL P14 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE LIST> + BOOL24>
+ <DEAD TEMP10>
+BOOL25
+ <TYPE? P25 <TYPE-CODE FORM> + TAG28>
+ <TYPE? P25 <TYPE-CODE SEGMENT> - BOOL27>
+TAG28
+ <EMPL? P25 + BOOL27>
+ <RESTL P25 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 + BOOL27>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <EMPL? TEMP10 - BOOL27>
+ <DEAD TEMP10>
+ <RESTL P25 1 = TEMP10 (TYPE LIST)>
+ <NTHL TEMP10 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE LIST> + BOOL24>
+ <DEAD TEMP10>
+BOOL27
+ <FRAME '\1aCTMATCH>
+ <PUSH P14>
+ <PUSH P25>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aCTMATCH 5 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
+ <DEAD TEMP10>
+BOOL24
+ <FRAME '\1aCTMATCH>
+ <PUSH P14>
+ <DEAD P14>
+ <PUSH P25>
+ <DEAD P25>
+ <PUSH 'T>
+ <PUSH 'T>
+ <PUSH %<>>
+ <CALL '\1aCTMATCH 5 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE23
+ <FRAME '\1aPUT-IN>
+ <FRAME '\1aPUT-IN>
+ <PUSH ()>
+ <PUSH P14>
+ <DEAD P14>
+ <CALL '\1aPUT-IN 2 = STACK>
+ <PUSH P25>
+ <DEAD P25>
+ <CALL '\1aPUT-IN 2 = TEMP10>
+ <CONS 'OR TEMP10 = TEMP10>
+ <CHTYPE TEMP10 <TYPE-CODE FORM> = TEMP10>
+PHRASE31
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aTMERGE>
+#WORD *30534464622*
+<GFCN \1aTYPE-AND ("VALUE" ANY ANY ANY) P14 P25>
+ <TEMP TEMP12>
+ <INTGO>
+ <TYPE? P14 <TYPE-CODE FALSE> - PHRASE7>
+ <SET P14 'ANY (TYPE ATOM)>
+PHRASE7
+ <TYPE? P25 <TYPE-CODE FALSE> - PHRASE9>
+ <SET P25 'ANY (TYPE ATOM)>
+PHRASE9
+ <EQUAL? P14 'ANY - PHRASE11>
+ <RETURN P25>
+ <DEAD P25>
+PHRASE11
+ <EQUAL? P25 'ANY - PHRASE13>
+ <RETURN P14>
+ <DEAD P14>
+PHRASE13
+ <EQUAL? P14 P25 - PHRASE14>
+ <RETURN P14>
+ <DEAD P14>
+PHRASE14
+ <FRAME '\1aCTMATCH>
+ <PUSH P14>
+ <DEAD P14>
+ <PUSH P25>
+ <DEAD P25>
+ <PUSH 'T>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCTMATCH 5 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aTYPE-AND>
+#WORD *31240662624*
+<GFCN \1aTMATCH ("VALUE" ANY ANY ANY) P14 P25>
+ <TEMP TEMP8>
+ <INTGO>
+ <EQUAL? P14 'ANY - PHRASE7>
+ <RETURN P25>
+ <DEAD P25>
+PHRASE7
+ <EQUAL? P25 'ANY - PHRASE9>
+ <RETURN P14>
+ <DEAD P14>
+PHRASE9
+ <EQUAL? P14 P25 - PHRASE10>
+ <RETURN P14>
+ <DEAD P14>
+PHRASE10
+ <FRAME '\1aCTMATCH>
+ <PUSH P14>
+ <DEAD P14>
+ <PUSH P25>
+ <DEAD P25>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCTMATCH 5 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aTMATCH>
+#WORD *17523375662*
+<GFCN \1aCTMATCH ("VALUE" ANY ANY ANY <OR FALSE ATOM> <OR FALSE ATOM> <OR FALSE ATOM>) P14 P25 ANDF6 ORF7 MAYBEF8>
+ <TEMP TEMP3:LBIND TEMP11>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'ANDF <OR FALSE ATOM> %<> ANDF6>
+ <DEAD ANDF6>
+ <BBIND 'ORF <OR FALSE ATOM> %<> ORF7>
+ <DEAD ORF7>
+ <BBIND 'MAYBEF <OR FALSE ATOM> %<> MAYBEF8>
+ <DEAD MAYBEF8>
+ <FIXBIND>
+ <FRAME '\1aDTMATCH>
+ <PUSH P14>
+ <DEAD P14>
+ <PUSH P25>
+ <DEAD P25>
+ <CALL '\1aDTMATCH 2 = TEMP11>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -27>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aCTMATCH>
+#WORD *37535633362*
+<GFCN \1aDTMATCH ("VALUE" ANY ANY ANY) PAT14 PAT25>
+ <TEMP ORF6 TEMP24 TEMP25 FP17 FP28>
+ <INTGO>
+ <GEN-LVAL 'ORF = ORF6>
+ <TYPE? PAT14 <TYPE-CODE FALSE> - BOOL11>
+ <SET PAT14 'ANY (TYPE ATOM)>
+BOOL11
+ <TYPE? PAT25 <TYPE-CODE FALSE> - BOOL12>
+ <SET PAT25 'ANY (TYPE ATOM)>
+BOOL12
+ <EQUAL? PAT25 'BOOLEAN - PHRASE14>
+ <SET PAT25 PAT14>
+ <DEAD PAT14>
+ <SET PAT14 'BOOLEAN (TYPE ATOM)>
+ <JUMP + PHRASE16>
+PHRASE14
+ <EQUAL? PAT25 'BOOL-TRUE - PHRASE15>
+ <SET PAT25 PAT14>
+ <DEAD PAT14>
+ <SET PAT14 'BOOL-TRUE (TYPE ATOM)>
+ <JUMP + PHRASE16>
+PHRASE15
+ <EQUAL? PAT25 'BOOL-FALSE - PHRASE16>
+ <SET PAT25 PAT14>
+ <DEAD PAT14>
+ <SET PAT14 'BOOL-FALSE (TYPE ATOM)>
+PHRASE16
+ <EQUAL? PAT14 PAT25 + BOOL19>
+ <TYPE? PAT14 <TYPE-CODE FORM> - BOOL22>
+ <TYPE? PAT25 <TYPE-CODE FORM> + BOOL21>
+BOOL22
+ <TYPE? PAT14 <TYPE-CODE SEGMENT> - PHRASE18>
+ <TYPE? PAT25 <TYPE-CODE SEGMENT> - PHRASE18>
+BOOL21
+ <LENL PAT14 = TEMP24 (TYPE FIX)>
+ <LENL PAT25 = TEMP25 (TYPE FIX)>
+ <VEQUAL? TEMP24 TEMP25 - PHRASE18 (TYPE FIX)>
+ <DEAD TEMP24 TEMP25>
+ <NTHL PAT14 1 = FP17>
+ <TYPE FP17 = TEMP24>
+ <NTHL PAT25 1 = FP28>
+ <TYPE FP28 = TEMP25>
+ <VEQUAL? TEMP24 TEMP25 - PHRASE18 (TYPE FIX)>
+ <DEAD TEMP24 TEMP25>
+ <TYPE? FP17 <TYPE-CODE ATOM> - PHRASE27>
+ <EQUAL? FP17 FP28 - PHRASE18>
+ <DEAD FP17 FP28>
+PHRASE27
+ <FRAME '\1a=?>
+ <PUSH PAT14>
+ <PUSH PAT25>
+ <CALL '\1a=? 2 = TEMP24>
+ <VEQUAL? TEMP24 0 + PHRASE18>
+ <DEAD TEMP24>
+BOOL19
+ <RETURN PAT14>
+ <DEAD PAT14>
+PHRASE18
+ <EQUAL? PAT14 'BOOLEAN - BOOL37>
+ <TYPE? ORF6 <TYPE-CODE FALSE> + BOOL32>
+ <EQUAL? PAT25 'BOOL-TRUE + BOOL33>
+ <EQUAL? PAT25 'BOOL-FALSE - BOOL32>
+BOOL33
+ <RETURN 'BOOLEAN>
+BOOL32
+ <TYPE? ORF6 <TYPE-CODE FALSE> - BOOL37>
+ <EQUAL? PAT14 'BOOL-TRUE - BOOL36>
+ <RETURN 'BOOL-TRUE>
+BOOL36
+ <EQUAL? PAT25 'BOOL-FALSE - BOOL37>
+ <RETURN 'BOOL-FALSE>
+BOOL37
+ <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE38>
+ <EQUAL? PAT14 'BOOL-FALSE - PHRASE38>
+ <FRAME '\1aTEXP1>
+ <PUSH !<FALSE>>
+ <PUSH PAT25>
+ <DEAD PAT25>
+ <CALL '\1aTEXP1 2 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
+ <RETURN 'BOOL-FALSE>
+PHRASE38
+ <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE43>
+ <EQUAL? PAT14 'BOOL-TRUE - PHRASE43>
+ <FRAME '\1aTYPMAT>
+ <PUSH 'ATOM>
+ <PUSH PAT25>
+ <DEAD PAT25>
+ <CALL '\1aTYPMAT 2 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
+ <RETURN 'BOOL-TRUE>
+PHRASE43
+ <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE48>
+ <DEAD ORF6>
+ <EQUAL? PAT14 'BOOLEAN - PHRASE48>
+ <FRAME '\1aTYPMAT>
+ <PUSH 'ATOM>
+ <PUSH PAT25>
+ <CALL '\1aTYPMAT 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE51>
+ <DEAD TEMP25>
+ <FRAME '\1aTEXP1>
+ <PUSH !<FALSE>>
+ <PUSH PAT25>
+ <DEAD PAT25>
+ <CALL '\1aTEXP1 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE54>
+ <DEAD TEMP25>
+ <RETURN 'BOOLEAN>
+PHRASE54
+ <RETURN 'BOOL-TRUE>
+PHRASE51
+ <FRAME '\1aTEXP1>
+ <PUSH !<FALSE>>
+ <PUSH PAT25>
+ <DEAD PAT25>
+ <CALL '\1aTEXP1 2 = TEMP24>
+ <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
+ <RETURN 'BOOL-FALSE>
+PHRASE48
+ <FRAME '\1aVTS>
+ <PUSH PAT14>
+ <DEAD PAT14>
+ <CALL '\1aVTS 1 = PAT14>
+ <TYPE? PAT14 <TYPE-CODE ATOM> - PHRASE59>
+ <FRAME '\1aTYPMAT>
+ <PUSH PAT14>
+ <DEAD PAT14>
+ <FRAME '\1aVTS>
+ <PUSH PAT25>
+ <DEAD PAT25>
+ <CALL '\1aVTS 1 = STACK>
+ <CALL '\1aTYPMAT 2 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE59
+ <FRAME '\1aVTS>
+ <PUSH PAT25>
+ <DEAD PAT25>
+ <CALL '\1aVTS 1 = PAT25>
+ <TYPE? PAT25 <TYPE-CODE ATOM> - PHRASE63>
+ <FRAME '\1aTYPMAT>
+ <PUSH PAT25>
+ <DEAD PAT25>
+ <PUSH PAT14>
+ <DEAD PAT14>
+ <CALL '\1aTYPMAT 2 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE63
+ <TYPE? PAT14 <TYPE-CODE FORM> + TAG68>
+ <TYPE? PAT14 <TYPE-CODE SEGMENT> - PHRASE66>
+TAG68
+ <TYPE? PAT25 <TYPE-CODE FORM> + TAG69>
+ <TYPE? PAT25 <TYPE-CODE SEGMENT> - PHRASE66>
+TAG69
+ <FRAME '\1aTEXP1>
+ <PUSH PAT14>
+ <DEAD PAT14>
+ <PUSH PAT25>
+ <DEAD PAT25>
+ <CALL '\1aTEXP1 2 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE66
+ <SET TEMP24 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
+PHRASE71
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+ <END \1aDTMATCH>
+#WORD *10527553701*
+<GFCN \1aVTS ("VALUE" ANY ANY) X4>
+ <TEMP TEMP9>
+ <INTGO>
+ <TYPE? X4 <TYPE-CODE ATOM> - BOOL7>
+ <NTHR X4 5 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE - BOOL8)>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL8>
+ <DEAD TEMP9>
+ <VEQUAL? X4 'ANY + BOOL8>
+ <VEQUAL? X4 'STRUCTURED + BOOL8>
+ <VEQUAL? X4 'MULTI + BOOL8>
+ <VEQUAL? X4 'APPLICABLE - BOOL7>
+BOOL8
+ <RETURN X4>
+ <DEAD X4>
+BOOL7
+ <TYPE? X4 <TYPE-CODE ATOM> - BOOL10>
+ <FRAME '\1aDECL-GET>
+ <PUSH X4>
+ <CALL '\1aDECL-GET 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL5>
+BOOL10
+ <SET TEMP9 X4>
+ <DEAD X4>
+BOOL5
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aVTS>
+#WORD *1604514727*
+<GFCN
\1a2-ELEM ("VALUE" <OR ATOM FALSE> <PRIMTYPE LIST>) OBJ4>
+ <TEMP TEMP6>
+ <INTGO>
+ <EMPL? OBJ4 - TAG7>
+ <RETURN %<>>
+TAG7
+ <RESTL OBJ4 1 = TEMP6 (TYPE LIST)>
+ <DEAD OBJ4>
+ <CHTYPE TEMP6 <TYPE-CODE LIST> = TEMP6>
+ <EMPL? TEMP6 - TAG8 (TYPE LIST)>
+ <DEAD TEMP6>
+ <RETURN %<>>
+TAG8
+ <RETURN 'T>
+ <END \1a2-ELEM>
+#WORD *5765452656*
+<GFCN \1aTYPMAT ("VALUE" ANY ATOM ANY) TYP4 PAT5>
+ <TEMP ORF8 TEM6 TEMP27 TEMP28:FRAME>
+ <INTGO>
+ <GEN-LVAL 'ORF = ORF8>
+ <TYPE? PAT5 <TYPE-CODE ATOM> - PHRASE14>
+ <VEQUAL? PAT5 'ANY - BOOL16>
+ <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE18>
+ <DEAD ORF8>
+ <SET TEM6 'ANY (TYPE ATOM)>
+ <JUMP + PHRASE43>
+PHRASE18
+ <SET TEM6 TYP4>
+ <JUMP + PHRASE43>
+BOOL16
+ <VEQUAL? TYP4 'ANY - BOOL20>
+ <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD ORF8>
+ <SET TEM6 'ANY (TYPE ATOM)>
+ <JUMP + PHRASE43>
+PHRASE22
+ <SET TEM6 PAT5>
+ <JUMP + PHRASE43>
+BOOL20
+ <VEQUAL? PAT5 TYP4 - BOOL24>
+ <SET TEM6 TYP4>
+ <JUMP + PHRASE43>
+BOOL24
+ <FRAME '\1aGETPROP>
+ <PUSH PAT5>
+ <PUSH 'ALT-DECL>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEMP27>
+ <CFRAME = TEMP28 (TYPE FRAME)>
+ <EQUAL? TEMP28 TEMP27 - TAG29>
+ <DEAD TEMP28>
+ <SET TEMP27 PAT5>
+TAG29
+ <FRAME '\1aGETPROP>
+ <PUSH TYP4>
+ <PUSH 'ALT-DECL>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEM6>
+ <CFRAME = TEMP28 (TYPE FRAME)>
+ <EQUAL? TEMP28 TEM6 - TAG31>
+ <DEAD TEMP28>
+ <SET TEM6 TYP4>
+TAG31
+ <EQUAL? TEMP27 TEM6 - PHRASE37>
+ <DEAD TEMP27>
+ <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE33>
+ <DEAD ORF8>
+ <EQUAL? TEM6 TYP4 - PHRASE35>
+ <DEAD TEM6>
+ <SET TEM6 PAT5>
+ <JUMP + PHRASE43>
+PHRASE35
+ <SET TEM6 TYP4>
+ <JUMP + PHRASE43>
+PHRASE33
+ <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE43>
+PHRASE37
+ <FRAME '\1aSTRUC>
+ <PUSH TYP4>
+ <PUSH PAT5>
+ <PUSH 'T>
+ <CALL '\1aSTRUC 3 = TEM6>
+ <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE43>
+ <FRAME '\1aSTRUC>
+ <PUSH PAT5>
+ <PUSH TYP4>
+ <PUSH %<>>
+ <CALL '\1aSTRUC 3 = TEM6>
+ <JUMP + PHRASE43>
+PHRASE14
+ <TYPE? PAT5 <TYPE-CODE FORM> + TAG41>
+ <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE40>
+TAG41
+ <FRAME '\1aTEXP1>
+ <PUSH PAT5>
+ <PUSH TYP4>
+ <CALL '\1aTEXP1 2 = TEM6>
+ <JUMP + PHRASE43>
+PHRASE40
+ <SET TEM6 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
+PHRASE43
+ <SET ORF8 TEM6>
+ <TYPE? ORF8 <TYPE-CODE FALSE> - BOOL50>
+ <EMPL? TEM6 + TAG45 (TYPE FALSE)>
+ <DEAD TEM6>
+ <RETURN %<>>
+TAG45
+ <FRAME '\1aVTS>
+ <PUSH TYP4>
+ <CALL '\1aVTS 1 = TEM6>
+ <EQUAL? TEM6 TYP4 + BOOL47>
+ <FRAME '\1aDTMATCH>
+ <PUSH TEM6>
+ <DEAD TEM6>
+ <PUSH PAT5>
+ <CALL '\1aDTMATCH 2 = ORF8>
+ <TYPE? ORF8 <TYPE-CODE FALSE> - BOOL50>
+BOOL47
+ <FRAME '\1aVTS>
+ <PUSH PAT5>
+ <CALL '\1aVTS 1 = TEM6>
+ <EQUAL? TEM6 PAT5 - TAG51>
+ <DEAD PAT5>
+ <RETURN %<>>
+TAG51
+ <FRAME '\1aTYPMAT>
+ <PUSH TYP4>
+ <DEAD TYP4>
+ <PUSH TEM6>
+ <DEAD TEM6>
+ <CALL '\1aTYPMAT 2 = ORF8>
+BOOL50
+ <RETURN ORF8>
+ <DEAD ORF8>
+ <END \1aTYPMAT>
+"\f"
+
+#WORD *27624336163*
+<GFCN \1aTEXP1 ("VALUE" ANY <OR FORM SEGMENT> ANY) FORT4 PAT5>
+ <TEMP TEMP9>
+ <INTGO>
+ <EMPL? FORT4 - PHRASE8>
+ <RETURN #FALSE (EMPTY-TYPE-FORM!-ERRORS)>
+PHRASE8
+ <NTHL FORT4 1 = TEMP9>
+ <EQUAL? TEMP9 'OR + BOOL11>
+ <EQUAL? TEMP9 'AND + BOOL11>
+ <EQUAL? TEMP9 'NOT + BOOL11>
+ <EQUAL? TEMP9 'PRIMTYPE - PHRASE10>
+BOOL11
+ <FRAME '\1aACTORT>
+ <PUSH FORT4>
+ <DEAD FORT4>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aACTORT 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE10
+ <EQUAL? TEMP9 'QUOTE - PHRASE13>
+ <DEAD TEMP9>
+ <EMPL? FORT4 + PHRASE13>
+ <RESTL FORT4 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + PHRASE13>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 - PHRASE13>
+ <DEAD TEMP9>
+ <FRAME '\1aDTMATCH>
+ <FRAME '\1aGEN-DECL>
+ <RESTL FORT4 1 = TEMP9 (TYPE LIST)>
+ <DEAD FORT4>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aGEN-DECL 1 = STACK>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aDTMATCH 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE13
+ <FRAME '\1aFORMATCH>
+ <PUSH FORT4>
+ <DEAD FORT4>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aFORMATCH 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aTEXP1>
+#WORD *21046205254*
+<GFCN
\1aACTORT ("VALUE" ANY <PRIMTYPE LIST> ANY) FORT4 PAT5>
+ <TEMP ACTOR6 ORF8 ANDF9 AL23:LIST TEM22 TEMP33>
+ <INTGO>
+ <NTHL FORT4 1 = ACTOR6>
+ <GEN-LVAL 'ORF = ORF8>
+ <GEN-LVAL 'ANDF = ANDF9>
+ <EQUAL? ACTOR6 'OR - PHRASE15>
+ <RESTL FORT4 1 = FORT4 (TYPE LIST)>
+ <CHTYPE FORT4 <TYPE-CODE LIST> = FORT4>
+ <EMPL? FORT4 - PHRASE17 (TYPE LIST)>
+ <RETURN #FALSE (EMPTY-OR-MATCH!-ERRORS)>
+PHRASE17
+ <SET AL23 () (TYPE LIST)>
+ <LOOP>
+AGAIN24
+ <INTGO>
+ <NTHL FORT4 1 = TEM22>
+ <TYPE? TEM22 <TYPE-CODE ATOM> - BOOL28>
+ <LOOP>
+AGAIN31
+ <INTGO>
+ <NTHR TEM22 5 = TEMP33 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE34)>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE34>
+ <DEAD TEMP33>
+ <FRAME '\1aDECL-GET>
+ <PUSH TEM22>
+ <CALL '\1aDECL-GET 1 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE34>
+ <SET TEM22 TEMP33>
+ <DEAD TEMP33>
+ <TYPE? TEM22 <TYPE-CODE ATOM> - BOOL28>
+ <JUMP + AGAIN31>
+PHRASE34
+ <FRAME '\1aTYPMAT>
+ <PUSH TEM22>
+ <DEAD TEM22>
+ <PUSH PAT5>
+ <CALL '\1aTYPMAT 2 = TEM22>
+ <TYPE? TEM22 <TYPE-CODE FALSE> - BOOL27>
+BOOL28
+ <TYPE? TEM22 <TYPE-CODE FORM> + TAG40>
+ <TYPE? TEM22 <TYPE-CODE SEGMENT> - PHRASE26>
+TAG40
+ <FRAME '\1aTEXP1>
+ <PUSH TEM22>
+ <DEAD TEM22>
+ <PUSH PAT5>
+ <CALL '\1aTEXP1 2 = TEM22>
+ <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE26>
+BOOL27
+ <TYPE? ANDF9 <TYPE-CODE FALSE> + PHRASE43>
+ <EQUAL? TEM22 'ANY - PHRASE47>
+ <RETURN 'ANY>
+PHRASE47
+ <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE49>
+ <FRAME '\1aPUT-IN>
+ <PUSH AL23>
+ <DEAD AL23>
+ <PUSH TEM22>
+ <DEAD TEM22>
+ <CALL '\1aPUT-IN 2 = AL23>
+ <JUMP + PHRASE55>
+PHRASE49
+ <FRAME '\1aMEMBER>
+ <PUSH TEM22>
+ <PUSH AL23>
+ <CALL '\1aMEMBER 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE55>
+ <DEAD TEMP33>
+ <CONS TEM22 AL23 = AL23>
+ <DEAD TEM22>
+ <JUMP + PHRASE55>
+PHRASE43
+ <RETURN 'T>
+PHRASE26
+ <EMPTY? TEM22 + PHRASE55>
+ <RETURN TEM22>
+ <DEAD TEM22>
+PHRASE55
+ <RESTL FORT4 1 = FORT4 (TYPE LIST)>
+ <EMPL? FORT4 - AGAIN24 (TYPE LIST)>
+ <EMPL? AL23 - TAG59 (TYPE LIST)>
+ <RETURN %<>>
+TAG59
+ <RESTL AL23 1 = ORF8 (TYPE LIST)>
+ <EMPL? ORF8 - PHRASE61 (TYPE LIST)>
+ <DEAD ORF8>
+ <NTHL AL23 1 = TEMP33>
+ <DEAD AL23>
+ <RETURN TEMP33>
+ <DEAD TEMP33>
+PHRASE61
+ <FRAME '\1aORSORT>
+ <CONS ACTOR6 AL23 = ORF8>
+ <DEAD ACTOR6 AL23>
+ <CHTYPE ORF8 <TYPE-CODE FORM> = STACK>
+ <DEAD ORF8>
+ <CALL '\1aORSORT 1 = TEMP33>
+ <RETURN TEMP33>
+ <DEAD TEMP33>
+PHRASE15
+ <EQUAL? ACTOR6 'NOT - PHRASE65>
+ <DEAD ACTOR6>
+ <FRAME '\1aNOT-IT>
+ <PUSH FORT4>
+ <DEAD FORT4>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aNOT-IT 2 = ACTOR6>
+ <RETURN ACTOR6>
+ <DEAD ACTOR6>
+PHRASE65
+ <FRAME '\1aPTACT>
+ <PUSH FORT4>
+ <DEAD FORT4>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aPTACT 2 = ACTOR6>
+ <RETURN ACTOR6>
+ <DEAD ACTOR6>
+ <END \1aACTORT>
+#WORD *35010167222*
+<GFCN \1aPTACT ("VALUE" ANY ANY ANY) FORTYP4 PAT5>
+ <TEMP TEMP12>
+ <INTGO>
+ <TYPE? FORTYP4 <TYPE-CODE FORM> + TAG8>
+ <TYPE? FORTYP4 <TYPE-CODE SEGMENT> - PHRASE7>
+TAG8
+ <EMPL? FORTYP4 + PHRASE10>
+ <RESTL FORTYP4 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 + PHRASE10>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - PHRASE10>
+ <DEAD TEMP12>
+ <NTHL FORTYP4 1 = TEMP12>
+ <EQUAL? TEMP12 'PRIMTYPE - PHRASE10>
+ <DEAD TEMP12>
+ <FRAME '\1aPRIMATCH>
+ <PUSH FORTYP4>
+ <DEAD FORTYP4>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aPRIMATCH 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE10
+ <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
+PHRASE7
+ <TYPE? FORTYP4 <TYPE-CODE ATOM> - PHRASE15>
+ <FRAME '\1aTYPMAT>
+ <PUSH FORTYP4>
+ <DEAD FORTYP4>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aTYPMAT 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE15
+ <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
+ <END \1aPTACT>
+"\f"
+
+#WORD *21523151277*
+<GFCN \1aSTRUC ("VALUE" ANY ANY ATOM ANY) WRD4 TYP5 ACTAND6>
+ <TEMP TEMP21 TC7>
+ <INTGO>
+ <EQUAL? WRD4 'STRUCTURED - PHRASE16>
+ <VEQUAL? TYP5 'APPLICABLE - PHRASE18>
+ <GEN-LVAL 'ORF = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD TEMP21>
+ <RETURN <OR APPLICABLE STRUCTURED>>
+PHRASE20
+ <RETURN <OR MSUBR T$MSUBR FUNCTION T$FUNCTION MACRO T$MACRO>>
+PHRASE18
+ <NTHR TYP5 5 = TC7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14)>
+ <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE14>
+ <AND TC7 #WORD *7* = TC7>
+ <VEQUAL? TC7 1 + TAG38 (TYPE FIX)>
+ <GRTR? TC7 3 + TAG38 (TYPE FIX)>
+ <GVAL 'INTERPRETER-IMPLEMENTOR? = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP21>
+ <VEQUAL? TC7 2 - PHRASE14 (TYPE FIX)>
+ <DEAD TC7>
+ <FRAME '\1aGC-PRIMTYPE>
+ <NTHR TYP5 5 = TEMP21 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
+ <PUSH TEMP21>
+ <DEAD TEMP21>
+ <CALL '\1aGC-PRIMTYPE 1 = TEMP21>
+ <VEQUAL? TEMP21 'ATOM + TAG38>
+ <VEQUAL? TEMP21 'GBIND + TAG38>
+ <VEQUAL? TEMP21 'LBIND + TAG38>
+ <VEQUAL? TEMP21 'FRAME - PHRASE14>
+ <DEAD TEMP21>
+ <JUMP + TAG38>
+PHRASE16
+ <EQUAL? WRD4 'APPLICABLE - PHRASE14>
+ <VEQUAL? TYP5 'STRUCTURED - PHRASE36>
+ <FRAME '\1aSTRUC>
+ <PUSH TYP5>
+ <DEAD TYP5>
+ <PUSH WRD4>
+ <DEAD WRD4>
+ <PUSH ACTAND6>
+ <DEAD ACTAND6>
+ <CALL '\1aSTRUC 3 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+PHRASE36
+ <SET TEMP21 [MSUBR T$MSUBR FUNCTION T$FUNCTION MACRO T$MACRO OFFSET T$OFFSET FIX] (TYPE VECTOR)>
+ <LOOP (TYP5 VALUE) (TEMP21 LENGTH VALUE)>
+TAG39
+ <NTHUV TEMP21 1 = TC7>
+ <VEQUAL? TC7 TYP5 + TAG38>
+ <DEAD TC7>
+ <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
+ <EMPUV? TEMP21 - TAG39>
+ <JUMP + PHRASE14>
+TAG38
+ <GEN-LVAL 'ORF = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE43>
+ <DEAD TEMP21>
+ <RETURN WRD4>
+ <DEAD WRD4>
+PHRASE43
+ <RETURN TYP5>
+ <DEAD TYP5>
+PHRASE14
+ <GEN-LVAL 'ORF = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE49>
+ <DEAD TEMP21>
+ <TYPE? ACTAND6 <TYPE-CODE FALSE> - PHRASE49>
+ <DEAD ACTAND6>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH WRD4>
+ <DEAD WRD4>
+ <PUSH TYP5>
+ <DEAD TYP5>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+PHRASE49
+ <RETURN %<>>
+ <END \1aSTRUC>
+#WORD *23025106577*
+<GFCN \1aPRIMATCH ("VALUE" ANY <OR <FORM ANY ANY> <SEGMENT ANY ANY>> ANY) PTYP4 PAT5>
+ <TEMP ORF9 ANDF10 PAT16 TEMP19 TEM8>
+ <INTGO>
+ <GEN-LVAL 'ORF = ORF9>
+ <GEN-LVAL 'ANDF = ANDF10>
+ <TYPE? PAT5 <TYPE-CODE FORM> + TAG18>
+ <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE16>
+TAG18
+ <SET PAT16 PAT5>
+ <EMPL? PAT16 + PHRASE16>
+ <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
+ <EMPL? TEMP19 + PHRASE16>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <EMPL? TEMP19 - PHRASE16>
+ <DEAD TEMP19>
+ <NTHL PAT16 1 = TEMP19>
+ <EQUAL? TEMP19 'PRIMTYPE - PHRASE16>
+ <DEAD TEMP19>
+ <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19>
+ <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
+ <NTHL ANDF10 1 = ANDF10>
+ <EQUAL? TEMP19 ANDF10 + BOOL22>
+ <DEAD TEMP19 ANDF10>
+ <FRAME '\1aGC-PRIMTYPE>
+ <RESTL PAT16 1 = ANDF10 (TYPE LIST)>
+ <NTHL ANDF10 1 = ANDF10 (TYPE ATOM)>
+ <NTHR ANDF10 5 = ANDF10 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
+ <PUSH ANDF10>
+ <DEAD ANDF10>
+ <CALL '\1aGC-PRIMTYPE 1 = ANDF10>
+ <FRAME '\1aGC-PRIMTYPE>
+ <RESTL PTYP4 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
+ <NTHR TEMP19 5 = TEMP19 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <CALL '\1aGC-PRIMTYPE 1 = TEMP19>
+ <VEQUAL? ANDF10 TEMP19 - PHRASE21>
+ <DEAD ANDF10 TEMP19>
+BOOL22
+ <RETURN PAT16>
+ <DEAD PAT16>
+PHRASE21
+ <SET TEMP19 ORF9>
+ <DEAD ORF9>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH PAT16>
+ <DEAD PAT16>
+ <PUSH PTYP4>
+ <DEAD PTYP4>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE16
+ <TYPE? PAT5 <TYPE-CODE ATOM> - PHRASE31>
+ <VEQUAL? PAT5 'ANY - PHRASE33>
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE35>
+ <DEAD ORF9>
+ <RETURN 'ANY>
+PHRASE35
+ <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD ANDF10>
+ <RETURN PTYP4>
+ <DEAD PTYP4>
+PHRASE36
+ <RETURN 'T>
+PHRASE33
+ <VEQUAL? PAT5 'STRUCTURED + BOOL39>
+ <VEQUAL? PAT5 'APPLICABLE - PHRASE38>
+BOOL39
+ <FRAME '\1aSTRUC>
+ <PUSH PAT5>
+ <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
+ <NTHL ANDF10 1 = STACK (TYPE ATOM)>
+ <DEAD ANDF10>
+ <PUSH 'T>
+ <CALL '\1aSTRUC 3 = ANDF10>
+ <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE41>
+ <DEAD ANDF10>
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE44>
+ <DEAD ORF9>
+ <RETURN PAT5>
+ <DEAD PAT5>
+PHRASE44
+ <RETURN PTYP4>
+ <DEAD PTYP4>
+PHRASE41
+ <SET TEMP19 ORF9>
+ <DEAD ORF9>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE66>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <PUSH PTYP4>
+ <DEAD PTYP4>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE38
+ <NTHR PAT5 5 = ANDF10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE52)>
+ <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE52>
+ <DEAD ANDF10>
+ <FRAME '\1aGC-PRIMTYPE>
+ <NTHR PAT5 5 = ANDF10 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
+ <PUSH ANDF10>
+ <DEAD ANDF10>
+ <CALL '\1aGC-PRIMTYPE 1 = ANDF10>
+ <FRAME '\1aGC-PRIMTYPE>
+ <RESTL PTYP4 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
+ <NTHR TEMP19 5 = TEMP19 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <CALL '\1aGC-PRIMTYPE 1 = TEMP19>
+ <VEQUAL? ANDF10 TEMP19 - PHRASE61>
+ <DEAD ANDF10 TEMP19>
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE59>
+ <DEAD ORF9>
+ <RETURN PTYP4>
+ <DEAD PTYP4>
+PHRASE59
+ <RETURN PAT5>
+ <DEAD PAT5>
+PHRASE52
+ <FRAME '\1aDECL-GET>
+ <PUSH PAT5>
+ <CALL '\1aDECL-GET 1 = TEM8>
+ <EQUAL? TEM8 PAT5 + PHRASE61>
+ <FRAME '\1aPRIMATCH>
+ <PUSH PTYP4>
+ <PUSH TEM8>
+ <DEAD TEM8>
+ <CALL '\1aPRIMATCH 2 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE102>
+PHRASE61
+ <SET TEMP19 ORF9>
+ <DEAD ORF9>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH PTYP4>
+ <DEAD PTYP4>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEMP19>
+PHRASE66
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE31
+ <TYPE? PAT5 <TYPE-CODE FORM> + TAG71>
+ <TYPE? PAT5 <TYPE-CODE SEGMENT> + TAG71>
+ <RETURN %<>>
+TAG71
+ <SET PAT16 PAT5>
+ <EMPL? PAT16 - TAG73>
+ <RETURN %<>>
+TAG73
+ <NTHL PAT16 1 = TEMP19>
+ <EQUAL? TEMP19 'OR - PHRASE75>
+ <FRAME '\1aACTORT>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <PUSH PTYP4>
+ <DEAD PTYP4>
+ <CALL '\1aACTORT 2 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE75
+ <EQUAL? TEMP19 'NOT - PHRASE77>
+ <DEAD TEMP19>
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE79>
+ <DEAD ORF9>
+ <FRAME '\1aNOT-IT>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <PUSH PTYP4>
+ <DEAD PTYP4>
+ <CALL '\1aNOT-IT 2 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE79
+ <FRAME '\1aPRIMATCH>
+ <PUSH PTYP4>
+ <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
+ <DEAD PAT16>
+ <NTHL TEMP19 1 = STACK>
+ <DEAD TEMP19>
+ <CALL '\1aPRIMATCH 2 = TEM8>
+ <TYPE? TEM8 <TYPE-CODE FALSE> - PHRASE84>
+ <EMPL? TEM8 - PHRASE84 (TYPE FALSE)>
+ <RETURN PTYP4>
+ <DEAD PTYP4>
+PHRASE84
+ <TYPE? TEM8 <TYPE-CODE FALSE> - PHRASE86>
+ <RETURN TEM8>
+ <DEAD TEM8>
+PHRASE86
+ <TYPE? TEM8 <TYPE-CODE FORM> + TAG89>
+ <TYPE? TEM8 <TYPE-CODE SEGMENT> - TAG90>
+TAG89
+ <EMPL? TEM8 + TAG90>
+ <RESTL TEM8 1 = TEMP19 (TYPE LIST)>
+ <EMPL? TEMP19 + TAG90>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <EMPL? TEMP19 - TAG90>
+ <DEAD TEMP19>
+ <NTHL TEM8 1 = TEMP19>
+ <EQUAL? TEMP19 'PRIMTYPE - TAG90>
+ <DEAD TEMP19>
+ <RESTL TEM8 1 = TEMP19 (TYPE LIST)>
+ <DEAD TEM8>
+ <NTHL TEMP19 1 = TEMP19>
+ <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
+ <DEAD PTYP4>
+ <NTHL ANDF10 1 = ANDF10>
+ <EQUAL? TEMP19 ANDF10 - TAG90>
+ <DEAD TEMP19 ANDF10>
+ <RETURN %<>>
+TAG90
+ <RETURN 'ANY>
+PHRASE77
+ <FRAME '\1aPRIMATCH>
+ <PUSH PTYP4>
+ <DEAD PTYP4>
+ <NTHL PAT16 1 = STACK>
+ <CALL '\1aPRIMATCH 2 = TEM8>
+ <SET TEMP19 TEM8>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE94>
+ <DEAD ORF9>
+ <RETURN TEM8>
+ <DEAD TEM8>
+PHRASE94
+ <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE95>
+ <DEAD ANDF10>
+ <TYPE? PAT5 <TYPE-CODE FORM> - PHRASE97>
+ <DEAD PAT5>
+ <FRAME '\1aFORM>
+ <PUSH TEM8>
+ <DEAD TEM8>
+ <SET TEMP19 1 (TYPE FIX)>
+ <RESTL PAT16 1 = ANDF10 (TYPE LIST)>
+ <DEAD PAT16>
+ <CHTYPE ANDF10 <TYPE-CODE LIST> = ANDF10>
+ <LOOP (ANDF10 VALUE) (TEMP19 VALUE)>
+TAG99
+ <INTGO>
+ <EMPL? ANDF10 + TAG98>
+ <NTHL ANDF10 1 = STACK>
+ <RESTL ANDF10 1 = ANDF10 (TYPE LIST)>
+ <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
+ <JUMP + TAG99>
+TAG98
+ <CALL '\1aFORM TEMP19 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE97
+ <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
+ <DEAD PAT16>
+ <CHTYPE TEMP19 <TYPE-CODE LIST> = TEMP19>
+ <CONS TEM8 TEMP19 = TEMP19>
+ <DEAD TEM8>
+ <CHTYPE TEMP19 <TYPE-CODE SEGMENT> = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE95
+ <SET TEMP19 'T (TYPE ATOM)>
+PHRASE102
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+ <END \1aPRIMATCH>
+"\f"
+
+#WORD *34270304753*
+<GFCN \1aNOT-IT ("VALUE" ANY <OR FORM SEGMENT> ANY) NF4 PAT5>
+ <TEMP TEMP12 T16 TEMP46:FIX>
+ <INTGO>
+ <TYPE? PAT5 <TYPE-CODE FORM> + TAG10>
+ <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE8>
+TAG10
+ <EMPL? PAT5 + PHRASE8>
+ <NTHL PAT5 1 = TEMP12>
+ <EQUAL? TEMP12 'OR + BOOL11>
+ <DEAD TEMP12>
+ <NTHL PAT5 1 = TEMP12>
+ <EQUAL? TEMP12 'AND - PHRASE8>
+ <DEAD TEMP12>
+BOOL11
+ <FRAME '\1aACTORT>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <PUSH NF4>
+ <DEAD NF4>
+ <CALL '\1aACTORT 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE8
+ <EMPL? NF4 + PHRASE16>
+ <RESTL NF4 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 + PHRASE16>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - PHRASE16>
+ <DEAD TEMP12>
+ <FRAME '\1aTYPE-AND>
+ <RESTL NF4 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <PUSH PAT5>
+ <CALL '\1aTYPE-AND 2 = T16>
+ <TYPE? T16 <TYPE-CODE FALSE> - PHRASE19>
+ <GEN-LVAL 'ORF = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE22>
+ <DEAD TEMP12>
+ <RETURN NF4>
+ <DEAD NF4>
+PHRASE22
+ <GEN-LVAL 'ANDF = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE25>
+ <DEAD TEMP12>
+ <RETURN PAT5>
+ <DEAD PAT5>
+PHRASE25
+ <RETURN 'T>
+PHRASE19
+ <RESTL NF4 1 = TEMP12 (TYPE LIST)>
+ <DEAD NF4>
+ <NTHL TEMP12 1 = TEMP12>
+ <EQUAL? TEMP12 'ANY - PHRASE29>
+ <DEAD TEMP12>
+ <GEN-LVAL 'ORF = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE59>
+ <RETURN PAT5>
+ <DEAD PAT5>
+PHRASE29
+ <FRAME '\1aVTS>
+ <PUSH T16>
+ <DEAD T16>
+ <CALL '\1aVTS 1 = T16>
+ <FRAME '\1aVTS>
+ <PUSH PAT5>
+ <DEAD PAT5>
+ <CALL '\1aVTS 1 = PAT5>
+ <EQUAL? T16 PAT5 - PHRASE34>
+ <GEN-LVAL 'ORF = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE59>
+ <RETURN 'ANY>
+PHRASE34
+ <TYPE? PAT5 <TYPE-CODE ATOM> - BOOL43>
+ <TYPE? T16 <TYPE-CODE ATOM> + BOOL42>
+BOOL43
+ <TYPE T16 = TEMP12>
+ <TYPE PAT5 = TEMP46>
+ <VEQUAL? TEMP12 TEMP46 - BOOL45 (TYPE FIX)>
+ <DEAD TEMP12 TEMP46>
+ <FRAME '\1aN=?>
+ <PUSH T16>
+ <PUSH PAT5>
+ <CALL '\1aN=? 2 = TEMP12>
+ <VEQUAL? TEMP12 0 + PHRASE41>
+ <DEAD TEMP12>
+BOOL45
+ <FRAME '\1aN=?>
+ <FRAME '\1aCANONICAL-DECL>
+ <PUSH PAT5>
+ <CALL '\1aCANONICAL-DECL 1 = STACK>
+ <FRAME '\1aCANONICAL-DECL>
+ <PUSH T16>
+ <DEAD T16>
+ <CALL '\1aCANONICAL-DECL 1 = STACK>
+ <CALL '\1aN=? 2 = TEMP12>
+ <VEQUAL? TEMP12 0 + PHRASE41>
+ <DEAD TEMP12>
+BOOL42
+ <GEN-LVAL 'ANDF = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE52>
+ <DEAD TEMP12>
+ <RETURN PAT5>
+ <DEAD PAT5>
+PHRASE52
+ <GEN-LVAL 'ORF = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE55>
+ <DEAD TEMP12>
+ <RETURN 'ANY>
+PHRASE55
+ <RETURN 'T>
+PHRASE41
+ <GEN-LVAL 'ORF = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE62>
+ <SET TEMP12 'ANY (TYPE ATOM)>
+PHRASE59
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE16
+ <SET TEMP12 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
+PHRASE62
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aNOT-IT>
+#WORD *13126141067*
+<GFCN \1aNOTIFY ("VALUE" ANY ANY) D4>
+ <TEMP TEMP9>
+ <INTGO>
+ <TYPE? D4 <TYPE-CODE FORM> + TAG8>
+ <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE6>
+TAG8
+ <EMPL? D4 + PHRASE6>
+ <RESTL D4 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + PHRASE6>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 - PHRASE6>
+ <DEAD TEMP9>
+ <NTHL D4 1 = TEMP9>
+ <EQUAL? TEMP9 'NOT - PHRASE6>
+ <DEAD TEMP9>
+ <RESTL D4 1 = TEMP9 (TYPE LIST)>
+ <DEAD D4>
+ <NTHL TEMP9 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE6
+ <FRAME '\1aFORM>
+ <PUSH 'NOT>
+ <PUSH D4>
+ <DEAD D4>
+ <CALL '\1aFORM 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aNOTIFY>
+"\f"
+
+#WORD *10645163361*
+<GFCN \1aFORMATCH ("VALUE" ANY <OR <FORM ANY> <SEGMENT ANY>> <OR ATOM FORM LIST SEGMENT VECTOR FIX>) FRM4 RPAT5>
+ <TEMP PAT7 EX8 ORF9 ANDF10 TEMP18 TEM6>
+ <INTGO>
+ <SET PAT7 RPAT5>
+ <GEN-LVAL 'ORF = ORF9>
+ <GEN-LVAL 'ANDF = ANDF10>
+ <TYPE? RPAT5 <TYPE-CODE ATOM> - PHRASE16>
+ <NTHL FRM4 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE16>
+ <DEAD TEMP18>
+ <NTHL FRM4 1 = TEMP18 (TYPE ATOM)>
+ <VEQUAL? TEMP18 RPAT5 - PHRASE16>
+ <DEAD TEMP18>
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE20>
+ <DEAD ORF9>
+ <RETURN RPAT5>
+ <DEAD RPAT5>
+PHRASE20
+ <RETURN FRM4>
+ <DEAD FRM4>
+PHRASE16
+ <TYPE? RPAT5 <TYPE-CODE ATOM> - PHRASE24>
+ <FRAME '\1aDECL-GET>
+ <PUSH RPAT5>
+ <PUSH RPAT5>
+ <CALL '\1aDECL-GET 2 = EX8>
+ <SET PAT7 EX8>
+ <JUMP + PHRASE26>
+PHRASE24
+ <NTH1 PAT7 = RPAT5>
+PHRASE26
+ <TYPE? PAT7 <TYPE-CODE ATOM> - PHRASE28>
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE30>
+ <FRAME '\1aCTMATCH>
+ <PUSH PAT7>
+ <NTHL FRM4 1 = STACK>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aCTMATCH 5 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE30>
+ <DEAD TEMP18>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH RPAT5>
+ <DEAD RPAT5>
+ <PUSH FRM4>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEM6>
+ <JUMP + PHRASE40>
+PHRASE30
+ <NTHL FRM4 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE38>
+ <DEAD TEMP18>
+ <FRAME '\1aTYPMAT>
+ <NTHL FRM4 1 = STACK (TYPE ATOM)>
+ <PUSH PAT7>
+ <DEAD PAT7>
+ <CALL '\1aTYPMAT 2 = TEM6>
+ <JUMP + PHRASE40>
+PHRASE38
+ <NTHL FRM4 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FORM> + TAG41>
+ <DEAD TEMP18>
+ <SET TEM6 %<> (TYPE FALSE)>
+ <JUMP + PHRASE40>
+TAG41
+ <FRAME '\1aACTORT>
+ <NTHL FRM4 1 = STACK (TYPE FORM)>
+ <PUSH PAT7>
+ <DEAD PAT7>
+ <CALL '\1aACTORT 2 = TEM6>
+PHRASE40
+ <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE45>
+ <DEAD ANDF10>
+ <TYPE? ORF9 <TYPE-CODE FALSE> - PHRASE45>
+ <DEAD ORF9>
+ <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE45>
+ <TYPE? FRM4 <TYPE-CODE FORM> - PHRASE48>
+ <RESTL FRM4 1 = TEMP18 (TYPE LIST)>
+ <DEAD FRM4>
+ <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
+ <CONS TEM6 TEMP18 = TEMP18>
+ <DEAD TEM6>
+ <CHTYPE TEMP18 <TYPE-CODE FORM> = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE48
+ <RESTL FRM4 1 = TEMP18 (TYPE LIST)>
+ <DEAD FRM4>
+ <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
+ <CONS TEM6 TEMP18 = TEMP18>
+ <DEAD TEM6>
+ <CHTYPE TEMP18 <TYPE-CODE SEGMENT> = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE45
+ <RETURN TEM6>
+ <DEAD TEM6>
+PHRASE28
+ <TYPE? PAT7 <TYPE-CODE FORM> + TAG52>
+ <TYPE? PAT7 <TYPE-CODE SEGMENT> + TAG52>
+ <RETURN %<>>
+TAG52
+ <NTHL PAT7 1 = TEM6>
+ <EQUAL? TEM6 'OR + BOOL56>
+ <EQUAL? TEM6 'AND + BOOL56>
+ <EQUAL? TEM6 'NOT + BOOL56>
+ <EQUAL? TEM6 'PRIMTYPE - PHRASE55>
+ <DEAD TEM6>
+BOOL56
+ <FRAME '\1aACTORT>
+ <PUSH PAT7>
+ <DEAD PAT7>
+ <PUSH FRM4>
+ <DEAD FRM4>
+ <CALL '\1aACTORT 2 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE55
+ <EMPL? PAT7 + PHRASE60>
+ <RESTL PAT7 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 + PHRASE60>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 - PHRASE60>
+ <DEAD TEMP18>
+ <RESTL PAT7 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE LIST> - PHRASE60>
+ <DEAD TEMP18>
+ <FRAME '\1aWRDFX>
+ <PUSH PAT7>
+ <DEAD PAT7>
+ <PUSH FRM4>
+ <DEAD FRM4>
+ <PUSH RPAT5>
+ <DEAD RPAT5>
+ <CALL '\1aWRDFX 3 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE60
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE63>
+ <TYPE? EX8 <TYPE-CODE UNBOUND> + PHRASE63>
+ <FRAME '\1aCTMATCH>
+ <PUSH RPAT5>
+ <PUSH FRM4>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aCTMATCH 5 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE63>
+ <DEAD TEMP18>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH RPAT5>
+ <DEAD RPAT5>
+ <PUSH FRM4>
+ <DEAD FRM4>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE63
+ <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE68>
+ <DEAD ORF9>
+ <FRAME '\1aCTMATCH>
+ <PUSH PAT7>
+ <PUSH FRM4>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aCTMATCH 5 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE68>
+ <DEAD TEMP18>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH PAT7>
+ <DEAD PAT7>
+ <PUSH FRM4>
+ <DEAD FRM4>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE68
+ <FRAME '\1aELETYPE>
+ <PUSH PAT7>
+ <DEAD PAT7>
+ <PUSH FRM4>
+ <DEAD FRM4>
+ <PUSH RPAT5>
+ <CALL '\1aELETYPE 3 = TEM6>
+ <TYPE? EX8 <TYPE-CODE UNBOUND> + MAPAP81>
+ <TYPE? TEM6 <TYPE-CODE FORM> + TAG76>
+ <TYPE? TEM6 <TYPE-CODE SEGMENT> - MAPAP81>
+TAG76
+ <EMPL? TEM6 + MAPAP81>
+ <RESTL TEM6 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 + MAPAP81>
+ <DEAD TEMP18>
+ <NTHL TEM6 1 = TEMP18>
+ <EQUAL? TEMP18 'OR - MAPAP81>
+ <DEAD TEMP18>
+ <RESTL TEM6 1 = ORF9 (TYPE LIST)>
+ <CHTYPE ORF9 <TYPE-CODE LIST> = ORF9>
+ <LOOP>
+MAP78
+ <INTGO>
+ <EMPL? ORF9 + MAPAP81>
+ <SET ANDF10 ORF9>
+ <FRAME '\1a=?>
+ <NTHL ANDF10 1 = STACK>
+ <PUSH EX8>
+ <CALL '\1a=? 2 = PAT7>
+ <VEQUAL? PAT7 0 + BOOL89>
+ <DEAD PAT7>
+ <PUTL ANDF10 1 RPAT5>
+ <DEAD ANDF10 RPAT5>
+ <JUMP + MAPAP81>
+BOOL89
+ <RESTL ORF9 1 = ORF9 (TYPE LIST)>
+ <JUMP + MAP78>
+MAPAP81
+ <RETURN TEM6>
+ <DEAD TEM6>
+ <END \1aFORMATCH>\r\r
+"\f"
+
+#WORD *16572067077*
+<GFCN \1aFOSE ("VALUE" <OR FORM SEGMENT> "TUPLE" ANY)>
+ <MAKTUP TUP4 FLG5 TEMP12 TEMP13 = TUP4>
+ <INTGO>
+ <NTHUV TUP4 1 = FLG5>
+ <TYPE? FLG5 <TYPE-CODE FALSE> + PHRASE7>
+ <DEAD FLG5>
+ <RESTUV TUP4 1 = FLG5 (TYPE VECTOR)>
+ <DEAD TUP4>
+ <CHTYPE FLG5 <TYPE-CODE VECTOR> = FLG5>
+ <SET TUP4 () (TYPE LIST)>
+ <EMPUV? FLG5 + TAG9>
+ <NTHUV FLG5 1 = TEMP12>
+ <CONS TEMP12 () = TEMP12>
+ <SET TUP4 TEMP12>
+ <RESTUV FLG5 1 = FLG5 (TYPE VECTOR)>
+ <EMPUV? FLG5 + TAG9>
+ <LOOP (FLG5 VALUE LENGTH) (TEMP12 VALUE)>
+TAG8
+ <NTHUV FLG5 1 = TEMP13>
+ <CONS TEMP13 () = TEMP13>
+ <PUTREST TEMP12 TEMP13>
+ <DEAD TEMP12>
+ <SET TEMP12 TEMP13>
+ <DEAD TEMP13>
+ <RESTUV FLG5 1 = FLG5 (TYPE VECTOR)>
+ <EMPUV? FLG5 - TAG8>
+TAG9
+ <CHTYPE TUP4 <TYPE-CODE SEGMENT> = TUP4>
+ <RETURN TUP4>
+ <DEAD TUP4>
+PHRASE7
+ <RESTUV TUP4 1 = TEMP12 (TYPE VECTOR)>
+ <DEAD TUP4>
+ <CHTYPE TEMP12 <TYPE-CODE VECTOR> = TEMP12>
+ <SET FLG5 () (TYPE LIST)>
+ <EMPUV? TEMP12 + TAG16>
+ <NTHUV TEMP12 1 = TEMP13>
+ <CONS TEMP13 () = TEMP13>
+ <SET FLG5 TEMP13>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <EMPUV? TEMP12 + TAG16>
+ <LOOP (TEMP12 VALUE LENGTH) (TEMP13 VALUE)>
+TAG15
+ <NTHUV TEMP12 1 = TUP4>
+ <CONS TUP4 () = TUP4>
+ <PUTREST TEMP13 TUP4>
+ <DEAD TEMP13>
+ <SET TEMP13 TUP4>
+ <DEAD TUP4>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <EMPUV? TEMP12 - TAG15>
+TAG16
+ <CHTYPE FLG5 <TYPE-CODE FORM> = TUP4>
+ <DEAD FLG5>
+ <RETURN TUP4>
+ <DEAD TUP4>
+ <END \1aFOSE>
+#WORD *4163561316*
+<GFCN \1aSEGANDOR ("VALUE" <OR ATOM FALSE> ANY ANY ANY) F14 F25 ORF6>
+ <TEMP TEMP12>
+ <INTGO>
+ <FRAME '\1aREAL-SEG?>
+ <PUSH F14>
+ <DEAD F14>
+ <CALL '\1aREAL-SEG? 1 = F14>
+ <FRAME '\1aREAL-SEG?>
+ <PUSH F25>
+ <DEAD F25>
+ <CALL '\1aREAL-SEG? 1 = F25>
+ <TYPE? ORF6 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD ORF6>
+ <TYPE? F14 <TYPE-CODE SEGMENT> + TAG13>
+ <DEAD F14>
+ <RETURN %<>>
+TAG13
+ <TYPE? F25 <TYPE-CODE SEGMENT> - TAG16>
+ <DEAD F25>
+ <RETURN 'SEGMENT>
+TAG16
+ <RETURN %<>>
+PHRASE10
+ <TYPE? F14 <TYPE-CODE SEGMENT> - TAG21>
+ <DEAD F14>
+ <RETURN 'SEGMENT>
+TAG21
+ <TYPE? F25 <TYPE-CODE SEGMENT> - TAG23>
+ <DEAD F25>
+ <RETURN 'SEGMENT>
+TAG23
+ <RETURN %<>>
+ <END \1aSEGANDOR>
+#WORD *15017737110*
+<GFCN \1aREAL-SEG? ("VALUE" ANY ANY) F4>
+ <TEMP TEMP9 LAST5>
+ <INTGO>
+ <TYPE? F4 <TYPE-CODE SEGMENT> - PHRASE7>
+ <EMPL? F4 + PHRASE7>
+ <RESTL F4 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + PHRASE7>
+ <DEAD TEMP9>
+ <SET LAST5 F4>
+ <LOOP (LAST5 VALUE)>
+TAG10
+ <RESTL LAST5 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + TAG11>
+ <SET LAST5 TEMP9>
+ <DEAD TEMP9>
+ <JUMP + TAG10>
+TAG11
+ <NTHL LAST5 1 = LAST5>
+ <TYPE? LAST5 <TYPE-CODE VECTOR> - PHRASE7>
+ <NTHUV LAST5 1 = TEMP9>
+ <DEAD LAST5>
+ <EQUAL? TEMP9 'REST - PHRASE7>
+ <DEAD TEMP9>
+ <CHTYPE F4 <TYPE-CODE FORM> = TEMP9>
+ <DEAD F4>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE7
+ <RETURN F4>
+ <DEAD F4>
+ <END \1aREAL-SEG?>
+#WORD *34770515377*
+<GFCN \1aWRDFX ("VALUE" ANY <OR FORM SEGMENT> <OR FORM SEGMENT> ANY) F114 F225 RPAT6>
+ <TEMP F17 F28:FORM TEMP18 FST9 TEMP44:FIX>
+ <INTGO>
+ <CHTYPE F114 <TYPE-CODE FORM> = F17>
+ <CHTYPE F225 <TYPE-CODE FORM> = F28>
+ <TYPE? RPAT6 <TYPE-CODE ATOM> - PHRASE15>
+ <NTHL F28 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE17>
+ <DEAD TEMP18>
+ <FRAME '\1aTYPMAT>
+ <NTHL F28 1 = STACK (TYPE ATOM)>
+ <PUSH RPAT6>
+ <CALL '\1aTYPMAT 2 = FST9>
+ <JUMP + PHRASE25>
+PHRASE17
+ <NTHL F28 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE20>
+ <DEAD TEMP18>
+ <FRAME '\1aACTORT>
+ <NTHL F28 1 = STACK (TYPE FORM)>
+ <PUSH RPAT6>
+ <CALL '\1aACTORT 2 = FST9>
+ <JUMP + PHRASE25>
+PHRASE20
+ <SET FST9 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
+ <JUMP + PHRASE25>
+PHRASE15
+ <TYPE? RPAT6 <TYPE-CODE FORM> - PHRASE23>
+ <FRAME '\1aACTORT>
+ <PUSH RPAT6>
+ <NTHL F28 1 = STACK>
+ <CALL '\1aACTORT 2 = FST9>
+ <JUMP + PHRASE25>
+PHRASE23
+ <SET FST9 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
+PHRASE25
+ <TYPE? FST9 <TYPE-CODE FALSE> - PHRASE27>
+ <RETURN FST9>
+ <DEAD FST9>
+PHRASE27
+ <FRAME '\1aCTMATCH>
+ <PUSH RPAT6>
+ <DEAD RPAT6>
+ <GVAL 'ALLWORDS = STACK>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCTMATCH 5 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE30>
+ <DEAD TEMP18>
+ <EMPL? F28 + PHRASE34>
+ <RESTL F28 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 + PHRASE34>
+ <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
+ <EMPL? TEMP18 - PHRASE34>
+ <DEAD TEMP18>
+ <RESTL F28 1 = TEMP18 (TYPE LIST)>
+ <NTHL TEMP18 1 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE LIST> - PHRASE34>
+ <DEAD TEMP18>
+ <FRAME '\1aCTMATCH>
+ <NTHL F28 1 = STACK>
+ <GVAL 'ALLWORDS = STACK>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aCTMATCH 5 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD TEMP18>
+ <GEN-LVAL 'ORF = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE40>
+ <DEAD TEMP18>
+ <FRAME '\1aMAP-MERGE>
+ <SET TEMP44 0 (TYPE FIX)>
+ <RESTL F17 1 = TEMP18 (TYPE LIST)>
+ <DEAD F17>
+ <NTHL TEMP18 1 = TEMP18>
+ <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP44 VALUE)>
+TAG46
+ <INTGO>
+ <EMPTY? TEMP18 + TAG43>
+ <NTH1 TEMP18 = STACK>
+ <REST1 TEMP18 = TEMP18>
+ <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG46>
+TAG43
+ <RESTL F28 1 = TEMP18 (TYPE LIST)>
+ <DEAD F28>
+ <NTHL TEMP18 1 = TEMP18>
+ <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP44 VALUE)>
+TAG48
+ <INTGO>
+ <EMPTY? TEMP18 + TAG47>
+ <NTH1 TEMP18 = STACK>
+ <REST1 TEMP18 = TEMP18>
+ <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
+ <JUMP + TAG48>
+TAG47
+ <CALL '\1aMAP-MERGE TEMP44 = F17>
+ <DEAD TEMP44>
+ <EMPL? F17 - PHRASE51 (TYPE LIST)>
+ <RETURN FST9>
+ <DEAD FST9>
+PHRASE51
+ <FRAME '\1aFORM>
+ <PUSH FST9>
+ <DEAD FST9>
+ <PUSH F17>
+ <DEAD F17>
+ <CALL '\1aFORM 2 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE40
+ <FRAME '\1aAND-MERGE>
+ <RESTL F17 1 = TEMP18 (TYPE LIST)>
+ <DEAD F17>
+ <NTHL TEMP18 1 = STACK (TYPE LIST)>
+ <DEAD TEMP18>
+ <RESTL F28 1 = TEMP18 (TYPE LIST)>
+ <DEAD F28>
+ <NTHL TEMP18 1 = STACK (TYPE LIST)>
+ <DEAD TEMP18>
+ <CALL '\1aAND-MERGE 2 = F17>
+ <SET TEMP18 F17>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE66>
+ <FRAME '\1aFORM>
+ <PUSH FST9>
+ <DEAD FST9>
+ <PUSH F17>
+ <DEAD F17>
+ <CALL '\1aFORM 2 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE37
+ <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
+PHRASE34
+ <GEN-LVAL 'ORF = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE60>
+ <DEAD TEMP18>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH F114>
+ <DEAD F114>
+ <PUSH F225>
+ <DEAD F225>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEMP18>
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+PHRASE60
+ <RETURN %<>>
+PHRASE30
+ <SET TEMP18 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
+PHRASE66
+ <RETURN TEMP18>
+ <DEAD TEMP18>
+ <END \1aWRDFX>
+#WORD *2512630615*
+<GFCN
\1aMAP-MERGE ("VALUE" LIST "TUPLE" <<PRIMTYPE VECTOR> [REST FIX]>)>
+ <MAKTUP PAIRS4 HIGH5:FIX LOW6:FIX TEMP12:FIX = PAIRS4>
+ <INTGO>
+ <NTHUV PAIRS4 2 = HIGH5 (TYPE FIX)>
+ <NTHUV PAIRS4 1 = LOW6 (TYPE FIX)>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <RESTUV PAIRS4 2 = PAIRS4 (TYPE VECTOR)>
+ <CHTYPE PAIRS4 <TYPE-CODE VECTOR> = PAIRS4>
+ <EMPUV? PAIRS4 + EXIT7 (TYPE VECTOR)>
+ <NTHUV PAIRS4 2 = TEMP12 (TYPE FIX)>
+ <LESS? TEMP12 HIGH5 - TAG13>
+ <SET TEMP12 HIGH5 (TYPE FIX)>
+ <DEAD HIGH5>
+TAG13
+ <SET HIGH5 TEMP12>
+ <DEAD TEMP12>
+ <NTHUV PAIRS4 1 = TEMP12 (TYPE FIX)>
+ <GRTR? TEMP12 LOW6 - TAG15>
+ <SET TEMP12 LOW6 (TYPE FIX)>
+ <DEAD LOW6>
+TAG15
+ <SET LOW6 TEMP12>
+ <DEAD TEMP12>
+ <JUMP + AGAIN9>
+EXIT7
+ <VEQUAL? HIGH5 %<CHTYPE <MIN> FIX> - PHRASE17 (TYPE FIX)>
+ <VEQUAL? LOW6 %<CHTYPE <MAX> FIX> - PHRASE17 (TYPE FIX)>
+ <RETURN ()>
+PHRASE17
+ <CONS HIGH5 () = PAIRS4>
+ <DEAD HIGH5>
+ <CONS LOW6 PAIRS4 = PAIRS4>
+ <DEAD LOW6>
+ <RETURN PAIRS4>
+ <DEAD PAIRS4>
+ <END \1aMAP-MERGE>
+#WORD *3603653053*
+<GFCN \1aAND-MERGE ("VALUE" <OR !<FALSE> <LIST [REST FIX]>> <LIST [REST FIX]> <LIST [REST FIX]>) L14 L25>
+ <TEMP (FLG6 %<>) L10:LIST LL11:LIST TEMP14 TEMP15:FIX TEM9:LIST HI22:FIX TEMP26 LO21:FIX>
+ <INTGO>
+ <CONS 0 () = L10>
+ <SET LL11 L10>
+ <LENL L14 = TEMP14 (TYPE FIX)>
+ <LENL L25 = TEMP15 (TYPE FIX)>
+ <GRTR? TEMP14 TEMP15 - PHRASE13 (TYPE FIX)>
+ <DEAD TEMP14 TEMP15>
+ <SET TEM9 L14>
+ <DEAD L14>
+ <SET L14 L25>
+ <DEAD L25>
+ <SET L25 TEM9>
+ <DEAD TEM9>
+PHRASE13
+ <LOOP>
+AGAIN17
+ <INTGO>
+ <NTHL L25 1 = TEMP14 (TYPE FIX)>
+ <RESTL L25 1 = TEM9 (TYPE LIST)>
+ <NTHL TEM9 1 = TEMP15 (TYPE FIX)>
+ <DEAD TEM9>
+ <SET TEM9 L14>
+ <LOOP>
+AGAIN23
+ <INTGO>
+ <EMPL? TEM9 + EXIT19 (TYPE LIST)>
+ <RESTL TEM9 1 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = HI22 (TYPE FIX)>
+ <DEAD TEMP26>
+ <NTHL TEM9 1 = LO21 (TYPE FIX)>
+ <LESS? LO21 TEMP14 + BOOL30 (TYPE FIX)>
+ <GRTR? LO21 TEMP15 - BOOL29 (TYPE FIX)>
+BOOL30
+ <GRTR? HI22 TEMP15 + BOOL31 (TYPE FIX)>
+ <LESS? HI22 TEMP14 - BOOL29 (TYPE FIX)>
+BOOL31
+ <LESS? TEMP14 LO21 + BOOL32 (TYPE FIX)>
+ <GRTR? TEMP14 HI22 - BOOL29 (TYPE FIX)>
+BOOL32
+ <GRTR? TEMP15 HI22 + PHRASE28 (TYPE FIX)>
+ <LESS? TEMP15 LO21 + PHRASE28 (TYPE FIX)>
+BOOL29
+ <SET TEMP26 TEMP14>
+ <DEAD TEMP14>
+ <LESS? TEMP26 LO21 - TAG34>
+ <SET TEMP26 LO21 (TYPE FIX)>
+ <DEAD LO21>
+TAG34
+ <SET TEMP14 TEMP26>
+ <DEAD TEMP26>
+ <GRTR? TEMP15 HI22 - TAG36>
+ <SET TEMP15 HI22 (TYPE FIX)>
+ <DEAD HI22>
+TAG36
+ <CONS TEMP15 () = TEM9>
+ <DEAD TEMP15>
+ <CONS TEMP14 TEM9 = TEM9>
+ <DEAD TEMP14>
+ <PUTREST L10 TEM9>
+ <DEAD TEM9>
+ <RESTL L10 1 = L10 (TYPE LIST)>
+ <RESTL L10 1 = L10 (TYPE LIST)>
+ <SET FLG6 'T (TYPE ATOM)>
+ <JUMP + EXIT19>
+PHRASE28
+ <RESTL TEM9 1 = TEM9 (TYPE LIST)>
+ <RESTL TEM9 1 = TEM9 (TYPE LIST)>
+ <JUMP + AGAIN23>
+EXIT19
+ <RESTL L25 1 = L25 (TYPE LIST)>
+ <RESTL L25 1 = L25 (TYPE LIST)>
+ <EMPL? L25 - AGAIN17 (TYPE LIST)>
+ <VEQUAL? FLG6 0 + PHRASE41>
+ <DEAD FLG6>
+ <RESTL LL11 1 = TEMP14 (TYPE LIST)>
+ <DEAD LL11>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE41
+ <RETURN %<>>
+ <END \1aAND-MERGE>
+"\f"
+
+#WORD *33403367740*
+<GFCN \1aGET-RANGE ("VALUE" <OR FALSE <LIST ANY>> ANY) L14>
+ <TEMP TEMP8 TEMP20:FIX>
+ <INTGO>
+ <TYPE? L14 <TYPE-CODE FORM> + TAG10>
+ <RETURN %<>>
+TAG10
+ <FRAME '\1aTMATCH>
+ <PUSH L14>
+ <GVAL 'ALLWORDS = STACK>
+ <CALL '\1aTMATCH 2 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG18>
+ <RESTL L14 1 = TEMP8 (TYPE LIST)>
+ <NTHL TEMP8 1 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE LIST> + TAG14>
+ <DEAD TEMP8>
+ <RETURN %<>>
+TAG14
+ <FRAME '\1aMAP-MERGE>
+ <SET TEMP20 0 (TYPE FIX)>
+ <RESTL L14 1 = TEMP8 (TYPE LIST)>
+ <DEAD L14>
+ <NTHL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <LOOP (TEMP8 VALUE) (TEMP20 VALUE)>
+TAG22
+ <INTGO>
+ <EMPL? TEMP8 + TAG19>
+ <NTHL TEMP8 1 = STACK>
+ <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
+ <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG19
+ <CALL '\1aMAP-MERGE TEMP20 = TEMP8>
+ <DEAD TEMP20>
+ <EMPL? TEMP8 - TAG18 (TYPE LIST)>
+ <RETURN %<>>
+TAG18
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aGET-RANGE>
+"\f"
+
+#WORD *15261512131*
+<GFCN
\1aELETYPE ("VALUE" ANY <PRIMTYPE LIST> <PRIMTYPE LIST> ANY) F14 F25 RTYP6>
+ <TEMP S17:VECTOR (FAIL8 %<>) S29:VECTOR (FL10:LIST ()) (FP11 <>) (INOPT12 %<>) ORF16 ANDF17 SEGF14 TEMP28 FSTL13 TEM257 T259 TEMP85 TEM60 RTEM15>
+ <INTGO>
+ <PUSH F14>
+ <PUSH %<>>
+ <PUSH 0>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH []>
+ <SBLOCK <TYPE-CODE VECTOR> 6 = S17 (TYPE VECTOR)>
+ <PUSH F25>
+ <PUSH %<>>
+ <PUSH 0>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH []>
+ <SBLOCK <TYPE-CODE VECTOR> 6 = S29 (TYPE VECTOR)>
+ <GEN-LVAL 'ORF = ORF16>
+ <GEN-LVAL 'ANDF = ANDF17>
+ <FRAME '\1aSEGANDOR>
+ <PUSH F14>
+ <PUSH F25>
+ <PUSH ORF16>
+ <CALL '\1aSEGANDOR 3 = SEGF14>
+ <EMPL? F14 + BOOL27>
+ <EMPL? F25 - PHRASE26>
+BOOL27
+ <SET TEMP28 #FALSE (EMPTY-FORM-IN-DECL!-ERRORS) (TYPE FALSE)>
+ <JUMP + EXIT55>
+PHRASE26
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE29>
+ <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aTMATCH>
+ <NTHL F25 1 = STACK>
+ <PUSH RTYP6>
+ <CALL '\1aTMATCH 2 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE29>
+ <DEAD TEMP28>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH F14>
+ <DEAD F14>
+ <PUSH F25>
+ <DEAD F25>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEMP28>
+ <JUMP + EXIT55>
+PHRASE29
+ <TYPE? RTYP6 <TYPE-CODE ATOM> - PHRASE39>
+ <NTHL F25 1 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE ATOM> - PHRASE41>
+ <DEAD TEMP28>
+ <FRAME '\1aTYPMAT>
+ <PUSH RTYP6>
+ <DEAD RTYP6>
+ <NTHL F25 1 = STACK (TYPE ATOM)>
+ <CALL '\1aTYPMAT 2 = FSTL13>
+ <JUMP + PHRASE48>
+PHRASE41
+ <NTHL F25 1 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FORM> - PHRASE43>
+ <DEAD TEMP28>
+ <FRAME '\1aACTORT>
+ <NTHL F25 1 = STACK (TYPE FORM)>
+ <PUSH RTYP6>
+ <DEAD RTYP6>
+ <CALL '\1aACTORT 2 = FSTL13>
+ <JUMP + PHRASE48>
+PHRASE43
+ <SET FSTL13 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
+ <JUMP + PHRASE48>
+PHRASE39
+ <TYPE? RTYP6 <TYPE-CODE FORM> - PHRASE46>
+ <FRAME '\1aACTORT>
+ <PUSH RTYP6>
+ <DEAD RTYP6>
+ <NTHL F25 1 = STACK>
+ <CALL '\1aACTORT 2 = FSTL13>
+ <JUMP + PHRASE48>
+PHRASE46
+ <SET FSTL13 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
+PHRASE48
+ <SET TEMP28 FSTL13>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + EXIT55>
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE50>
+ <TYPE? SEGF14 <TYPE-CODE FALSE> + PHRASE52>
+ <CONS FSTL13 () = TEMP28>
+ <DEAD FSTL13>
+ <CHTYPE TEMP28 <TYPE-CODE SEGMENT> = TEMP28>
+ <JUMP + PHRASE53>
+PHRASE52
+ <FRAME '\1aFORM>
+ <PUSH FSTL13>
+ <DEAD FSTL13>
+ <CALL '\1aFORM 1 = TEMP28>
+PHRASE53
+ <SET FP11 TEMP28>
+ <DEAD TEMP28>
+ <CHTYPE FP11 <TYPE-CODE LIST> = FL10>
+PHRASE50
+ <RESTL F14 1 = TEMP28 (TYPE LIST)>
+ <CHTYPE TEMP28 <TYPE-CODE LIST> = TEMP28>
+ <PUTUV S17 1 TEMP28>
+ <DEAD TEMP28>
+ <RESTL F25 1 = TEMP28 (TYPE LIST)>
+ <CHTYPE TEMP28 <TYPE-CODE LIST> = TEMP28>
+ <PUTUV S29 1 TEMP28>
+ <DEAD TEMP28>
+ <SET TEM257 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN62
+ <INTGO>
+ <FRAME '\1aNEXTP>
+ <PUSH S17>
+ <CALL '\1aNEXTP 1 = FSTL13>
+ <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL67>
+ <NTHUV S17 2 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL66>
+BOOL67
+ <EMPTY? FSTL13 - PHRASE64>
+ <SET TEMP28 'ANY (TYPE ATOM)>
+BOOL66
+ <FRAME '\1aNEXTP>
+ <PUSH S29>
+ <CALL '\1aNEXTP 1 = TEM257>
+ <TYPE? TEM257 <TYPE-CODE FALSE> + BOOL71>
+ <NTHUV S29 2 = T259>
+ <TYPE? T259 <TYPE-CODE FALSE> - BOOL70>
+BOOL71
+ <TYPE? FSTL13 <TYPE-CODE FALSE> + PHRASE64>
+ <EMPTY? TEM257 - PHRASE64>
+ <SET T259 'ANY (TYPE ATOM)>
+BOOL70
+ <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE75>
+ <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL77>
+ <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE75>
+BOOL77
+ <FRAME '\1aONE-CHECK>
+ <PUSH FP11>
+ <DEAD FP11>
+ <PUSH SEGF14>
+ <DEAD SEGF14>
+ <CALL '\1aONE-CHECK 2 = TEMP28>
+ <JUMP + EXIT55>
+PHRASE75
+ <TYPE? FSTL13 <TYPE-CODE FALSE> - PHRASE81>
+ <TYPE? F14 <TYPE-CODE FORM> + BOOL84>
+ <NTHUV S29 4 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL84>
+ <DEAD TEMP85>
+ <NTHUV S29 5 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE83>
+ <DEAD TEMP85>
+BOOL84
+ <SET TEM60 T259>
+ <JUMP + PHRASE92>
+PHRASE83
+ <SET FAIL8 'T (TYPE ATOM)>
+ <SET TEM60 %<> (TYPE FALSE)>
+ <JUMP + PHRASE92>
+PHRASE81
+ <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE87>
+ <TYPE? F25 <TYPE-CODE FORM> + BOOL90>
+ <NTHUV S17 4 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL90>
+ <DEAD TEMP85>
+ <NTHUV S17 5 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE89>
+ <DEAD TEMP85>
+BOOL90
+ <SET TEM60 TEMP28>
+ <JUMP + PHRASE92>
+PHRASE89
+ <SET FAIL8 'T (TYPE ATOM)>
+ <SET TEM60 %<> (TYPE FALSE)>
+ <JUMP + PHRASE92>
+PHRASE87
+ <FRAME '\1aDTMATCH>
+ <PUSH TEMP28>
+ <PUSH T259>
+ <CALL '\1aDTMATCH 2 = TEM60>
+PHRASE92
+ <SET RTEM15 TEM60>
+ <TYPE? RTEM15 <TYPE-CODE FALSE> - PHRASE104>
+ <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE95>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <PUSH TEMP28>
+ <DEAD TEMP28>
+ <PUSH T259>
+ <DEAD T259>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aORSORT 1 = TEM60>
+ <JUMP + PHRASE104>
+PHRASE95
+ <GEN-LVAL 'MAYBEF = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE98>
+ <DEAD TEMP85>
+ <VEQUAL? FAIL8 0 + PHRASE102>
+ <DEAD FAIL8>
+ <SET TEMP28 %<> (TYPE FALSE)>
+ <JUMP + EXIT55>
+PHRASE102
+ <SET FAIL8 'T (TYPE ATOM)>
+ <JUMP + PHRASE104>
+PHRASE98
+ <SET TEMP28 %<> (TYPE FALSE)>
+ <JUMP + EXIT55>
+PHRASE104
+ <TYPE? INOPT12 <TYPE-CODE FALSE> - PHRASE106>
+ <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL109>
+ <NTHUV S17 5 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL108>
+ <DEAD TEMP85>
+ <NTHUV S29 5 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL108>
+ <DEAD TEMP85>
+BOOL109
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE106>
+ <TYPE? ORF16 <TYPE-CODE FALSE> - PHRASE106>
+ <NTHUV S17 5 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE106>
+ <DEAD TEMP85>
+ <NTHUV S29 5 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE106>
+ <DEAD TEMP85>
+BOOL108
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE113>
+ <CONS TEM60 () = TEMP85>
+ <CONS 'OPTIONAL TEMP85 = INOPT12>
+ <DEAD TEMP85>
+ <JUMP + PHRASE115>
+PHRASE113
+ <SET INOPT12 () (TYPE LIST)>
+ <JUMP + PHRASE115>
+PHRASE106
+ <TYPE? INOPT12 <TYPE-CODE FALSE> + PHRASE115>
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE115>
+ <SET TEMP85 INOPT12>
+ <LOOP (TEMP85 VALUE)>
+TAG117
+ <RESTL TEMP85 1 = T259 (TYPE LIST)>
+ <EMPL? T259 + TAG119>
+ <SET TEMP85 T259>
+ <DEAD T259>
+ <JUMP + TAG117>
+TAG119
+ <CONS TEM60 () = T259>
+ <PUTREST TEMP85 T259>
+ <DEAD TEMP85 T259>
+PHRASE115
+ <TYPE? INOPT12 <TYPE-CODE FALSE> + PHRASE121>
+ <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL124>
+ <NTHUV S17 3 = T259 (TYPE FIX)>
+ <VEQUAL? T259 0 + BOOL123 (TYPE FIX)>
+ <DEAD T259>
+ <NTHUV S29 3 = T259 (TYPE FIX)>
+ <VEQUAL? T259 0 + BOOL123 (TYPE FIX)>
+ <DEAD T259>
+BOOL124
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE121>
+ <NTHUV S17 3 = T259 (TYPE FIX)>
+ <VEQUAL? T259 0 - PHRASE121 (TYPE FIX)>
+ <DEAD T259>
+ <NTHUV S29 3 = T259 (TYPE FIX)>
+ <VEQUAL? T259 0 - PHRASE121 (TYPE FIX)>
+ <DEAD T259>
+BOOL123
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + BOOL135>
+ <SET TEMP28 0 (TYPE FIX)>
+ <SET T259 INOPT12>
+ <DEAD INOPT12>
+ <LOOP (T259 VALUE) (TEMP28 VALUE)>
+TAG138
+ <INTGO>
+ <EMPL? T259 + TAG136>
+ <NTHL T259 1 = STACK>
+ <RESTL T259 1 = T259 (TYPE LIST)>
+ <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
+ <JUMP + TAG138>
+TAG136
+ <UBLOCK <TYPE-CODE VECTOR> TEMP28 = TEM60>
+ <DEAD TEMP28>
+BOOL135
+ <SET INOPT12 %<> (TYPE FALSE)>
+PHRASE121
+ <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL143>
+ <NTHUV S17 4 = T259>
+ <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
+ <DEAD T259>
+ <NTHUV S29 4 = T259>
+ <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
+ <DEAD T259>
+BOOL143
+ <NTHUV S17 4 = T259>
+ <TYPE? T259 <TYPE-CODE FALSE> - BOOL148>
+ <DEAD T259>
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE141>
+ <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL148>
+ <NTHUV S17 5 = T259>
+ <TYPE? T259 <TYPE-CODE FALSE> + PHRASE141>
+ <DEAD T259>
+BOOL148
+ <NTHUV S29 4 = T259>
+ <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
+ <DEAD T259>
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE141>
+ <TYPE? TEM257 <TYPE-CODE FALSE> + BOOL151>
+ <NTHUV S29 5 = T259>
+ <TYPE? T259 <TYPE-CODE FALSE> + PHRASE141>
+ <DEAD T259>
+BOOL151
+ <TYPE? ORF16 <TYPE-CODE FALSE> - BOOL154>
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE153>
+BOOL154
+ <FRAME '\1aRESTER?>
+ <PUSH S17>
+ <PUSH S29>
+ <PUSH FL10>
+ <PUSH RTEM15>
+ <TYPE? F25 <TYPE-CODE SEGMENT> - TAG159>
+ <SET T259 'SEGMENT (TYPE ATOM)>
+ <JUMP + TAG160>
+TAG159
+ <SET T259 %<> (TYPE FALSE)>
+TAG160
+ <PUSH T259>
+ <DEAD T259>
+ <CALL '\1aRESTER? 5 = TEMP28>
+ <EQUAL? TEMP28 0 + PHRASE164>
+ <EQUAL? TEMP28 'T - PHRASE162>
+ <FRAME '\1aONE-CHECK>
+ <PUSH FP11>
+ <DEAD FP11>
+ <PUSH SEGF14>
+ <DEAD SEGF14>
+ <CALL '\1aONE-CHECK 2 = TEMP28>
+ <JUMP + EXIT55>
+PHRASE162
+ <TYPE? TEMP28 <TYPE-CODE FORM> + TAG168>
+ <TYPE? TEMP28 <TYPE-CODE SEGMENT> - EXIT55>
+TAG168
+ <SET T259 FP11>
+ <DEAD FP11>
+ <SET TEMP85 1 (TYPE FIX)>
+ <LOOP (T259 VALUE) (TEMP85 VALUE)>
+TAG171
+ <EMPL? T259 + TAG169>
+ <SUB TEMP85 1 = TEMP85 (TYPE FIX)>
+ <LESS? TEMP85 0 + EXIT55>
+ <RESTL T259 1 = T259 (TYPE LIST)>
+ <JUMP + TAG171>
+TAG169
+ <NTHL TEMP28 1 = TEMP28>
+ <JUMP + EXIT55>
+PHRASE164
+ <FRAME '\1aRESTER?>
+ <PUSH S29>
+ <PUSH S17>
+ <PUSH FL10>
+ <PUSH RTEM15>
+ <DEAD RTEM15>
+ <TYPE? F14 <TYPE-CODE SEGMENT> - TAG177>
+ <SET TEMP85 'SEGMENT (TYPE ATOM)>
+ <JUMP + TAG178>
+TAG177
+ <SET TEMP85 %<> (TYPE FALSE)>
+TAG178
+ <PUSH TEMP85>
+ <DEAD TEMP85>
+ <CALL '\1aRESTER? 5 = TEMP28>
+ <EQUAL? TEMP28 0 + PHRASE189>
+ <EQUAL? TEMP28 'T - PHRASE180>
+ <FRAME '\1aONE-CHECK>
+ <PUSH FP11>
+ <DEAD FP11>
+ <PUSH SEGF14>
+ <DEAD SEGF14>
+ <CALL '\1aONE-CHECK 2 = TEMP28>
+ <JUMP + EXIT55>
+PHRASE180
+ <TYPE? TEMP28 <TYPE-CODE FORM> + TAG185>
+ <TYPE? TEMP28 <TYPE-CODE SEGMENT> - EXIT55>
+TAG185
+ <FRAME '\1aONE-CHECK>
+ <PUSH TEMP28>
+ <DEAD TEMP28>
+ <PUSH SEGF14>
+ <DEAD SEGF14>
+ <CALL '\1aONE-CHECK 2 = TEMP28>
+ <JUMP + EXIT55>
+PHRASE153
+ <SET TEMP28 'T (TYPE ATOM)>
+ <JUMP + EXIT55>
+PHRASE141
+ <TYPE? ANDF17 <TYPE-CODE FALSE> - PHRASE189>
+ <NTHUV S17 4 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL191>
+ <DEAD TEMP85>
+ <TYPE? FSTL13 <TYPE-CODE FALSE> - PHRASE189>
+ <DEAD FSTL13>
+BOOL191
+ <NTHUV S29 4 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL192>
+ <DEAD TEMP85>
+ <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE189>
+BOOL192
+ <SET TEMP28 'T (TYPE ATOM)>
+ <JUMP + EXIT55>
+PHRASE189
+ <TYPE? INOPT12 <TYPE-CODE FALSE> - AGAIN62>
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + AGAIN62>
+ <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL196>
+ <NTHUV S17 4 = TEMP85>
+ <TYPE? TEMP85 <TYPE-CODE FALSE> - AGAIN62>
+ <DEAD TEMP85>
+ <NTHUV S29 4 = T259>
+ <TYPE? T259 <TYPE-CODE FALSE> - AGAIN62>
+ <DEAD T259>
+BOOL196
+ <NTHL FL10 1 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE VECTOR> - PHRASE199>
+ <DEAD TEMP28>
+ <FRAME '\1a=?>
+ <NTHL FL10 1 = FSTL13 (TYPE VECTOR)>
+ <NTHUV FSTL13 2 = STACK>
+ <PUSH TEM60>
+ <CALL '\1a=? 2 = TEMP28>
+ <VEQUAL? TEMP28 0 + PHRASE199>
+ <DEAD TEMP28>
+ <NTHUV FSTL13 1 = TEMP28 (TYPE FIX)>
+ <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
+ <PUTUV FSTL13 1 TEMP28 (TYPE FIX)>
+ <DEAD FSTL13 TEMP28>
+ <JUMP + AGAIN62>
+PHRASE199
+ <CHTYPE FP11 <TYPE-CODE LIST> = TEMP28>
+ <VEQUAL? TEMP28 FL10 + PHRASE203>
+ <DEAD TEMP28>
+ <FRAME '\1a=?>
+ <PUSH TEM60>
+ <NTHL FL10 1 = STACK>
+ <CALL '\1a=? 2 = TEMP28>
+ <VEQUAL? TEMP28 0 + PHRASE203>
+ <DEAD TEMP28>
+ <PUSH 2>
+ <PUSH TEM60>
+ <DEAD TEM60>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP28>
+ <PUTL FL10 1 TEMP28>
+ <DEAD TEMP28>
+ <JUMP + AGAIN62>
+PHRASE203
+ <CONS TEM60 () = TEMP28>
+ <DEAD TEM60>
+ <PUTREST FL10 TEMP28>
+ <DEAD FL10>
+ <SET FL10 TEMP28>
+ <DEAD TEMP28>
+ <JUMP + AGAIN62>
+PHRASE64
+ <EMPTY? FSTL13 - PHRASE215>
+ <SET FSTL13 TEM257>
+ <DEAD TEM257>
+ <EMPTY? FSTL13 - PHRASE215>
+ <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE213>
+ <DEAD ANDF17>
+ <FRAME '\1aONE-CHECK>
+ <PUSH FP11>
+ <DEAD FP11>
+ <PUSH SEGF14>
+ <DEAD SEGF14>
+ <CALL '\1aONE-CHECK 2 = TEMP28>
+ <JUMP + EXIT55>
+PHRASE213
+ <SET TEMP28 'T (TYPE ATOM)>
+ <JUMP + EXIT55>
+PHRASE215
+ <SET TEMP28 FSTL13>
+ <DEAD FSTL13>
+EXIT55
+ <ADJ -28>
+ <RETURN TEMP28>
+ <DEAD TEMP28>
+ <END \1aELETYPE>
+#WORD *26246050514*
+ <GFCN \1aONE-CHECK ("VALUE" ANY <OR FORM SEGMENT> ANY) FP4 SEGF5>
+ <TEMP TEMP9>
+ <INTGO>
+ <TYPE? SEGF5 <TYPE-CODE FALSE> - PHRASE7>
+ <DEAD SEGF5>
+ <RESTL FP4 1 = TEMP9 (TYPE LIST)>
+ <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
+ <EMPL? TEMP9 - PHRASE7 (TYPE LIST)>
+ <DEAD TEMP9>
+ <NTHL FP4 1 = TEMP9>
+ <DEAD FP4>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE7
+ <RETURN FP4>
+ <DEAD FP4>
+ <END \1aONE-CHECK>
+
+"\f"
+
+#WORD *15255452506*
+<GFCN \1aRESTER? ("VALUE" ANY <VECTOR ANY ANY ANY ANY ANY VECTOR> <VECTOR ANY ANY ANY ANY ANY VECTOR> <LIST ANY> ANY ANY) S14 S25 FL6 FST7 SEGF8>
+ <TEMP TT9 (TEM110 'T) (TEM211 'T) (OPTIT12 %<>) TEMP17 TEMP30 TEMP41:VECTOR SO45:VECTOR>
+ <INTGO>
+ <NTHUV S14 6 = TT9 (TYPE VECTOR)>
+ <GEN-LVAL 'ORF = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL16>
+ <DEAD TEMP17>
+ <NTHUV S25 5 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP17>
+BOOL16
+ <NTHUV S25 1 = TEMP17>
+ <EMPTY? TEMP17 - PHRASE14>
+ <DEAD TEMP17>
+ <NTHUV S25 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE14>
+ <DEAD TEMP17>
+ <SET OPTIT12 'T (TYPE ATOM)>
+PHRASE14
+ <TYPE? SEGF8 <TYPE-CODE FALSE> + PHRASE21>
+ <DEAD SEGF8>
+ <GEN-LVAL 'ORF = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE21>
+ <DEAD TEMP17>
+ <NTHUV S14 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL25>
+ <DEAD TEMP17>
+ <NTHUV S25 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE21>
+ <DEAD TEMP17>
+BOOL25
+ <RETURN 'T>
+PHRASE21
+ <EMPUV? TT9 + PHRASE26 (TYPE VECTOR)>
+ <NTHUV S25 4 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL28>
+ <DEAD TEMP17>
+ <LENUV TT9 = TEMP17 (TYPE FIX)>
+ <NTHUV S25 6 = TEMP30 (TYPE VECTOR)>
+ <TOPU TEMP30 = TEMP30>
+ <RESTUV TEMP30 1 = TEMP30 (TYPE VECTOR)>
+ <LENUV TEMP30 = TEMP30 (TYPE FIX)>
+ <LESS? TEMP17 TEMP30 + PHRASE26 (TYPE FIX)>
+ <DEAD TEMP17 TEMP30>
+BOOL28
+ <TOPU TT9 = TEMP17>
+ <DEAD TT9>
+ <RESTUV TEMP17 1 = TT9 (TYPE VECTOR)>
+ <DEAD TEMP17>
+ <PUSH 'REST>
+ <PUSH FST7>
+ <DEAD FST7>
+ <SET TEMP17 2 (TYPE FIX)>
+ <RESTUV TT9 1 = TEMP41 (TYPE VECTOR)>
+ <DEAD TT9>
+ <LOOP (TEMP41 VALUE LENGTH) (TEMP17 VALUE)>
+TAG43
+ <INTGO>
+ <EMPUV? TEMP41 + TAG40>
+ <NTHUV TEMP41 1 = STACK>
+ <RESTUV TEMP41 1 = TEMP41 (TYPE VECTOR)>
+ <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
+ <JUMP + TAG43>
+TAG40
+ <UBLOCK <TYPE-CODE VECTOR> TEMP17 = TT9>
+ <DEAD TEMP17>
+ <RESTUV TT9 2 = TEMP41 (TYPE VECTOR)>
+ <LOOP>
+MAP32
+ <INTGO>
+ <EMPUV? TEMP41 + MAPAP35>
+ <SET SO45 TEMP41>
+ <FRAME '\1aNEXTP>
+ <PUSH S25>
+ <CALL '\1aNEXTP 1 = TEM110>
+ <TYPE? TEM110 <TYPE-CODE FALSE> + BOOL48>
+ <NTHUV S25 2 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE57>
+BOOL48
+ <EMPTY? TEM110 + TAG51>
+ <SET TEMP17 %<> (TYPE FALSE)>
+ <JUMP + PHRASE57>
+TAG51
+ <GEN-LVAL 'ORF = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> - MAPAP35>
+ <DEAD TEMP30>
+ <SET TEMP17 'ANY (TYPE ATOM)>
+PHRASE57
+ <GEN-LVAL 'ORF = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> - BOOL59>
+ <DEAD TEMP30>
+ <NTHUV S25 5 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> + BOOL58>
+ <DEAD TEMP30>
+BOOL59
+ <NTHUV S25 1 = TEMP30>
+ <EMPTY? TEMP30 - BOOL58>
+ <DEAD TEMP30>
+ <NTHUV S25 4 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> - BOOL58>
+ <DEAD TEMP30>
+ <SET OPTIT12 'T (TYPE ATOM)>
+BOOL58
+ <TYPE? TEM110 <TYPE-CODE FALSE> - BOOL64>
+ <EMPL? TEM110 - BOOL64 (TYPE FALSE)>
+ <SET TEM110 'T (TYPE ATOM)>
+BOOL64
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE66>
+ <FRAME '\1aDTMATCH>
+ <FRAME '\1aNEXTP>
+ <PUSH S14>
+ <CALL '\1aNEXTP 1 = TEMP30>
+ <TYPE? TEMP30 <TYPE-CODE FALSE> + BOOL68>
+ <NTHUV S14 2 = TEMP30>
+BOOL68
+ <PUSH TEMP30>
+ <DEAD TEMP30>
+ <PUSH TEMP17>
+ <CALL '\1aDTMATCH 2 = TEM211>
+ <PUTUV SO45 1 TEM211>
+ <DEAD SO45>
+PHRASE66
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + MAPAP35>
+ <DEAD TEMP17>
+ <TYPE? TEM211 <TYPE-CODE FALSE> + MAPAP35>
+ <RESTUV TEMP41 1 = TEMP41 (TYPE VECTOR)>
+ <JUMP + MAP32>
+MAPAP35
+ <VEQUAL? OPTIT12 0 + PHRASE73>
+ <DEAD OPTIT12>
+ <PUTUV TT9 1 'OPTIONAL>
+ <JUMP + PHRASE74>
+PHRASE73
+ <FRAME '\1aUNIQUE-VECTOR-CHECK>
+ <PUSH TT9>
+ <DEAD TT9>
+ <CALL '\1aUNIQUE-VECTOR-CHECK 1 = TT9>
+PHRASE74
+ <TYPE? TEM110 <TYPE-CODE FALSE> + PHRASE77>
+ <TYPE? TEM211 <TYPE-CODE FALSE> + PHRASE77>
+ <CONS TT9 () = TT9>
+ <PUTREST FL6 TT9>
+ <DEAD FL6 TT9>
+ <RETURN 'T>
+PHRASE77
+ <TYPE? TEM110 <TYPE-CODE FALSE> - PHRASE79>
+ <EMPL? TEM110 + PHRASE79 (TYPE FALSE)>
+ <RETURN TEM110>
+ <DEAD TEM110>
+PHRASE79
+ <RETURN TEM211>
+ <DEAD TEM211>
+PHRASE26
+ <RETURN 0>
+ <END \1aRESTER?>
+#WORD *30766215475*
+<GFCN \1aUNIQUE-VECTOR-CHECK ("VALUE" <VECTOR [2 ANY]> <VECTOR [2 ANY]>) V4>
+ <TEMP FRST5 TEMP17 TEMP19:VECTOR>
+ <INTGO>
+ <NTHUV V4 2 = FRST5>
+ <SET TEMP17 %<> (TYPE FALSE)>
+ <RESTUV V4 2 = TEMP19 (TYPE VECTOR)>
+ <LOOP>
+MAP9
+ <INTGO>
+ <EMPUV? TEMP19 + MAPAP12>
+ <NTHUV TEMP19 1 = TEMP17>
+ <FRAME '\1aN=?>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH FRST5>
+ <CALL '\1aN=? 2 = TEMP17>
+ <VEQUAL? TEMP17 0 + PHRASE22>
+ <SET TEMP17 V4>
+ <DEAD V4>
+ <JUMP + MAPAP12>
+PHRASE22
+ <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
+ <JUMP + MAP9>
+MAPAP12
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE25>
+ <PUSH 'REST>
+ <PUSH FRST5>
+ <DEAD FRST5>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP17>
+PHRASE25
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aUNIQUE-VECTOR-CHECK>
+#WORD *14400236133*
+<GFCN
\1aNEXTP ("VALUE" <OR FALSE <VECTOR [6 ANY]>> <VECTOR <PRIMTYPE LIST> ANY FIX ANY ANY ANY>) S4>
+ <TEMP TEMP10 TEM5 N7:FIX>
+ <INTGO>
+ <NTHUV S4 3 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP10 0 - PHRASE9 (TYPE FIX)>
+ <DEAD TEMP10>
+ <PUTUV S4 5 %<>>
+PHRASE9
+ <NTHUV S4 4 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP10>
+ <FRAME '\1aNTHREST>
+ <PUSH S4>
+ <DEAD S4>
+ <CALL '\1aNTHREST 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE14
+ <NTHUV S4 3 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP10 0 + PHRASE16 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUV S4 3 = TEMP10 (TYPE FIX)>
+ <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
+ <PUTUV S4 3 TEMP10 (TYPE FIX)>
+ <DEAD TEMP10>
+ <FRAME '\1aNTHREST>
+ <PUSH S4>
+ <DEAD S4>
+ <CALL '\1aNTHREST 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE16
+ <NTHUV S4 1 = TEM5>
+ <EMPL? TEM5 - PHRASE21>
+ <RETURN %<>>
+PHRASE21
+ <NTHL TEM5 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE ATOM> + TAG23>
+ <TYPE? TEMP10 <TYPE-CODE FORM> + TAG23>
+ <TYPE? TEMP10 <TYPE-CODE SEGMENT> - PHRASE22>
+ <DEAD TEMP10>
+TAG23
+ <NTHL TEM5 1 = TEM5>
+ <NTHUV S4 1 = TEMP10>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
+ <PUTUV S4 1 TEMP10>
+ <DEAD TEMP10>
+ <PUTUV S4 2 TEM5>
+ <DEAD TEM5>
+ <RETURN S4>
+ <DEAD S4>
+PHRASE22
+ <NTHL TEM5 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE VECTOR> - PHRASE25>
+ <DEAD TEMP10>
+ <NTHL TEM5 1 = TEM5 (TYPE VECTOR)>
+ <NTHUV S4 1 = TEMP10>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
+ <PUTUV S4 1 TEMP10>
+ <DEAD TEMP10>
+ <RESTUV TEM5 1 = TEMP10 (TYPE VECTOR)>
+ <PUTUV S4 6 TEMP10>
+ <DEAD TEMP10>
+ <LENUV TEM5 = TEMP10 (TYPE FIX)>
+ <GRTR? TEMP10 1 - PHRASE27 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUV TEM5 1 = TEMP10>
+ <EQUAL? TEMP10 'REST - PHRASE31>
+ <DEAD TEMP10>
+ <LENUV TEM5 = TEMP10 (TYPE FIX)>
+ <VEQUAL? TEMP10 2 - PHRASE33 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUV TEM5 2 = TEMP10>
+ <EQUAL? TEMP10 'ANY - PHRASE33>
+ <DEAD TEMP10>
+ <RETURN %<>>
+PHRASE33
+ <PUTUV S4 4 'T>
+ <NTHUV TEM5 2 = TEMP10>
+ <DEAD TEM5>
+ <PUTUV S4 2 TEMP10>
+ <DEAD TEMP10>
+ <RETURN S4>
+ <DEAD S4>
+PHRASE31
+ <NTHUV TEM5 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FIX> - BOOL38>
+ <DEAD TEMP10>
+ <NTHUV TEM5 1 = N7 (TYPE FIX)>
+ <JUMP + BOOL37>
+BOOL38
+ <NTHUV TEM5 1 = TEMP10>
+ <EQUAL? TEMP10 'OPT + BOOL40>
+ <DEAD TEMP10>
+ <NTHUV TEM5 1 = TEMP10>
+ <EQUAL? TEMP10 'OPTIONAL - PHRASE36>
+ <DEAD TEMP10>
+BOOL40
+ <SET N7 1 (TYPE FIX)>
+BOOL37
+ <NTHUV TEM5 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FIX> + BOOL41>
+ <DEAD TEMP10>
+ <PUTUV S4 5 'T>
+BOOL41
+ <LENUV TEM5 = TEMP10 (TYPE FIX)>
+ <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
+ <MUL TEMP10 N7 = TEMP10 (TYPE FIX)>
+ <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
+ <PUTUV S4 3 TEMP10 (TYPE FIX)>
+ <DEAD TEMP10>
+ <NTHUV TEM5 2 = TEMP10>
+ <DEAD TEM5>
+ <PUTUV S4 2 TEMP10>
+ <DEAD TEMP10>
+ <GRTR? N7 0 + PHRASE43 (TYPE FIX)>
+ <DEAD N7>
+ <RETURN %<>>
+PHRASE43
+ <RETURN S4>
+ <DEAD S4>
+PHRASE36
+ <RETURN #FALSE (BAD-VECTOR-SYNTAX!-ERRORS)>
+PHRASE27
+ <RETURN #FALSE (BAD-FORM-SYNTAX!-ERRORS)>
+PHRASE25
+ <RETURN #FALSE (BAD-FORM-SYNTAX!-ERRORS)>
+ <END \1aNEXTP>
+"\f"
+
+#WORD *26732775663*
+<GFCN \1aNTHREST ("VALUE" <VECTOR ANY ANY ANY ANY ANY VECTOR> <VECTOR ANY ANY ANY ANY ANY VECTOR>) S4>
+ <TEMP TEMP6>
+ <INTGO>
+ <NTHUV S4 6 = TEMP6 (TYPE VECTOR)>
+ <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
+ <EMPUV? TEMP6 - PHRASE8 (TYPE VECTOR)>
+ <TOPU TEMP6 = TEMP6>
+ <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
+PHRASE8
+ <PUTUV S4 6 TEMP6>
+ <NTHUV TEMP6 1 = TEMP6>
+ <PUTUV S4 2 TEMP6>
+ <DEAD TEMP6>
+ <RETURN S4>
+ <DEAD S4>
+ <END \1aNTHREST>
+"\f"
+
+#WORD *14024525424*
+<GFCN \1aGET-ELE-TYPE ("VALUE" ANY ANY ANY "OPTIONAL" ANY ANY) DCL27 NN8 RST9 PT10>
+ <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH %<>>
+OPT5
+ <PUSH %<>>
+OPT6
+ <TEMP (ET15 'FIX) TEMP19 VT14 TEMP39:FIX>
+ <INTGO>
+ <GVAL 'MIM = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP19>
+ <FRAME '\1aISTYPE?>
+ <PUSH DCL27>
+ <CALL '\1aISTYPE? 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + BOOL21>
+ <NTHR TEMP19 5 = VT14 (RECORD-TYPE ATOM) (BRANCH-FALSE - BOOL20)>
+ <TYPE? VT14 <TYPE-CODE FALSE> - BOOL20>
+BOOL21
+ <FRAME '\1aSTRUCTYP>
+ <PUSH DCL27>
+ <CALL '\1aSTRUCTYP 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
+ <NTHR TEMP19 5 = VT14 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE17)>
+ <TYPE? VT14 <TYPE-CODE FALSE> + PHRASE17>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <CALL '\1aFORM 2 = TEMP19>
+BOOL20
+ <AND VT14 #WORD *7* = VT14>
+ <VEQUAL? VT14 4 + BOOL30 (TYPE FIX)>
+ <VEQUAL? VT14 5 - BOOL31 (TYPE FIX)>
+ <SET ET15 'CHARACTER (TYPE ATOM)>
+ <JUMP + BOOL30>
+BOOL31
+ <VEQUAL? VT14 6 - PHRASE17 (TYPE FIX)>
+BOOL30
+ <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE40>
+ <EQUAL? NN8 'ALL + BOOL36>
+ <TYPE? NN8 <TYPE-CODE FIX> - PHRASE35>
+ <FRAME '\1aMINL>
+ <PUSH DCL27>
+ <CALL '\1aMINL 1 = TEMP39>
+ <GRTR? NN8 TEMP39 + PHRASE35 (TYPE FIX)>
+ <DEAD TEMP39>
+BOOL36
+ <SET TEMP19 DCL27>
+ <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE73>
+ <JUMP + PHRASE40>
+PHRASE35
+ <TYPE? NN8 <TYPE-CODE FIX> - PHRASE40>
+ <GRTR? NN8 0 - PHRASE40 (TYPE FIX)>
+ <FRAME '\1aFORM>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <PUSH NN8>
+ <DEAD NN8>
+ <PUSH ET15>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <PUSH 'REST>
+ <PUSH ET15>
+ <DEAD ET15>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 3 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE40
+ <TYPE? RST9 <TYPE-CODE FALSE> + PHRASE62>
+ <VEQUAL? VT14 5 - PHRASE49 (TYPE FIX)>
+ <SET TEMP19 'STRING (TYPE ATOM)>
+ <JUMP + PHRASE51>
+PHRASE49
+ <VEQUAL? VT14 4 - PHRASE50 (TYPE FIX)>
+ <DEAD VT14>
+ <SET TEMP19 'BYTES (TYPE ATOM)>
+ <JUMP + PHRASE51>
+PHRASE50
+ <SET TEMP19 'UVECTOR (TYPE ATOM)>
+PHRASE51
+ <EQUAL? NN8 'ALL - PHRASE53>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE53
+ <TYPE? NN8 <TYPE-CODE FIX> - PHRASE54>
+ <FRAME '\1aMINL>
+ <PUSH DCL27>
+ <CALL '\1aMINL 1 = TEMP39>
+ <SUB TEMP39 NN8 = TEMP39 (TYPE FIX)>
+ <GRTR? TEMP39 0 - PHRASE54 (TYPE FIX)>
+ <FRAME '\1aFORM>
+ <PUSH TEMP19>
+ <DEAD TEMP19>
+ <PUSH TEMP39>
+ <DEAD TEMP39>
+ <PUSH ET15>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <PUSH 'REST>
+ <PUSH ET15>
+ <DEAD ET15>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 3 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE54
+ <TYPE? NN8 <TYPE-CODE FIX> - PHRASE62>
+ <LESS? NN8 0 + PHRASE62 (TYPE FIX)>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE62
+ <EQUAL? NN8 'ALL + BOOL67>
+ <TYPE? NN8 <TYPE-CODE FIX> - PHRASE66>
+ <GRTR? NN8 0 - PHRASE66 (TYPE FIX)>
+BOOL67
+ <RETURN ET15>
+ <DEAD ET15>
+PHRASE66
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-CALL-TO-GET-ELE-TYPE>
+ <PUSH DCL27>
+ <DEAD DCL27>
+ <PUSH NN8>
+ <DEAD NN8>
+ <PUSH RST9>
+ <DEAD RST9>
+ <PUSH PT10>
+ <DEAD PT10>
+ <CALL '\1aERROR 5 = TEMP19>
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+PHRASE17
+ <FRAME '\1aREAL-GET-ELE-TYPE>
+ <PUSH DCL27>
+ <DEAD DCL27>
+ <PUSH NN8>
+ <DEAD NN8>
+ <PUSH RST9>
+ <DEAD RST9>
+ <PUSH PT10>
+ <DEAD PT10>
+ <CALL '\1aREAL-GET-ELE-TYPE 4 = TEMP19>
+PHRASE73
+ <RETURN TEMP19>
+ <DEAD TEMP19>
+ <END \1aGET-ELE-TYPE>
+#WORD *12012663434*
+<GFCN \1aREAL-GET-ELE-TYPE ("VALUE" ANY ANY ANY ANY ANY) DCL24 NN5 RST6 PT7>
+ <TEMP (LN8 0) (CNT9:FIX 0) SDC12 (N14 0) (QOK16 %<>) (FMOK17 %<>) (GD19 <>) (GP20:LIST ()) (K21:FIX 0) (SEGF23 %<>) STRU18 DCL13 TEMP62 DC11 X151 ITYP10>
+ <INTGO>
+ <SET N14 DCL24>
+ <LOOP>
+AGAIN28
+ <INTGO>
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE30>
+ <FRAME '\1aISTYPE?>
+ <PUSH N14>
+ <CALL '\1aISTYPE? 1 = LN8>
+ <TYPE? LN8 <TYPE-CODE FALSE> + PHRASE30>
+ <FRAME '\1aTYPE-AND>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH LN8>
+ <DEAD LN8>
+ <PUSH NN5>
+ <CALL '\1aGET-ELE-TYPE 2 = STACK>
+ <PUSH PT7>
+ <DEAD PT7>
+ <CALL '\1aTYPE-AND 2 = PT7>
+PHRASE30
+ <TYPE? N14 <TYPE-CODE ATOM> - BOOL35>
+ <FRAME '\1aDECL-GET>
+ <PUSH N14>
+ <PUSH N14>
+ <DEAD N14>
+ <CALL '\1aDECL-GET 2 = N14>
+BOOL35
+ <TYPE? N14 <TYPE-CODE SEGMENT> - PHRASE38>
+ <SET SEGF23 'T (TYPE ATOM)>
+PHRASE38
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE40>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH N14>
+ <CALL '\1aSTRUCTYP 1 = STRU18>
+ <TYPE? STRU18 <TYPE-CODE FALSE> - PHRASE44>
+ <SET STRU18 'STRUCTURED (TYPE ATOM)>
+ <JUMP + PHRASE44>
+PHRASE40
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE44>
+ <FRAME '\1aISTYPE?>
+ <PUSH DCL24>
+ <CALL '\1aISTYPE? 1 = LN8>
+ <TYPE? LN8 <TYPE-CODE FALSE> - PHRASE51>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH N14>
+ <CALL '\1aSTRUCTYP 1 = STRU18>
+ <TYPE? STRU18 <TYPE-CODE FALSE> + PHRASE48>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <CALL '\1aFORM 2 = LN8>
+ <JUMP + PHRASE51>
+PHRASE48
+ <SET LN8 'STRUCTURED (TYPE ATOM)>
+PHRASE51
+ <SET STRU18 LN8>
+ <DEAD LN8>
+PHRASE44
+ <TYPE? N14 <TYPE-CODE FORM> + TAG55>
+ <TYPE? N14 <TYPE-CODE SEGMENT> - PHRASE53>
+TAG55
+ <SET DCL13 N14>
+ <LENL DCL13 = LN8 (TYPE FIX)>
+ <GRTR? LN8 1 - PHRASE53 (TYPE FIX)>
+ <DEAD LN8>
+ <NTHL DCL13 1 = LN8>
+ <SET TEMP62 [OR AND NOT] (TYPE VECTOR)>
+ <TYPE? LN8 <TYPE-CODE ATOM> - TAG59>
+ <LOOP (LN8 VALUE) (TEMP62 LENGTH VALUE)>
+TAG60
+ <NTHUV TEMP62 1 = FMOK17>
+ <VEQUAL? FMOK17 LN8 + TAG58>
+ <DEAD FMOK17>
+ <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
+ <EMPUV? TEMP62 - TAG60>
+ <JUMP + TAG59>
+TAG58
+ <SET FMOK17 TEMP62>
+ <DEAD TEMP62>
+ <JUMP + PHRASE53>
+TAG59
+ <SET FMOK17 %<> (TYPE FALSE)>
+ <SET QOK16 %<> (TYPE FALSE)>
+ <NTHL DCL13 1 = TEMP62>
+ <EQUAL? TEMP62 'QUOTE - TAG64>
+ <DEAD TEMP62>
+ <SET QOK16 'T (TYPE ATOM)>
+ <JUMP + PHRASE53>
+TAG64
+ <NTHL DCL13 1 = TEMP62>
+ <EQUAL? TEMP62 'PRIMTYPE + PHRASE53>
+ <DEAD TEMP62>
+ <EQUAL? NN5 'ALL - PHRASE66>
+ <TYPE? PT7 <TYPE-CODE FALSE> + BOOL67>
+ <FRAME '\1aFOSE>
+ <PUSH SEGF23>
+ <PUSH STRU18>
+ <CALL '\1aFOSE 2 = GD19>
+ <CHTYPE GD19 <TYPE-CODE LIST> = GP20>
+BOOL67
+ <RESTL DCL13 1 = TEMP62 (TYPE LIST)>
+ <NTHL TEMP62 1 = QOK16>
+ <DEAD TEMP62>
+ <TYPE? QOK16 <TYPE-CODE VECTOR> - PHRASE103>
+ <SET DC11 QOK16>
+ <DEAD QOK16>
+ <LENUV DC11 = TEMP62 (TYPE FIX)>
+ <LESS? TEMP62 2 + PHRASE103 (TYPE FIX)>
+ <DEAD TEMP62>
+ <NTHUV DC11 1 = TEMP62>
+ <EQUAL? TEMP62 'REST - PHRASE103>
+ <DEAD TEMP62>
+ <LENUV DC11 = TEMP62 (TYPE FIX)>
+ <VEQUAL? TEMP62 2 - PHRASE72 (TYPE FIX)>
+ <DEAD TEMP62>
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE74>
+ <FRAME '\1aFORM>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <PUSH 'REST>
+ <NTHUV DC11 2 = STACK>
+ <DEAD DC11>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = SDC12>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE74
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE77>
+ <FRAME '\1aFORM>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <PUSH 'REST>
+ <FRAME '\1aTYPE-MERGE>
+ <NTHUV DC11 2 = STACK>
+ <DEAD DC11>
+ <PUSH PT7>
+ <DEAD PT7>
+ <CALL '\1aTYPE-MERGE 2 = STACK>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = SDC12>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE77
+ <NTHUV DC11 2 = SDC12>
+ <DEAD DC11>
+ <TYPE? SDC12 <TYPE-CODE FALSE> - EXIT174>
+ <JUMP + PHRASE103>
+PHRASE72
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE82>
+ <FRAME '\1aFORM>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <PUSH 'REST>
+ <FRAME '\1aTYPE-MERGE>
+ <SET LN8 0 (TYPE FIX)>
+ <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
+ <DEAD DC11>
+ <LOOP (TEMP62 VALUE LENGTH) (LN8 VALUE)>
+TAG86
+ <INTGO>
+ <EMPUV? TEMP62 + TAG85>
+ <NTHUV TEMP62 1 = STACK>
+ <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
+ <ADD LN8 1 = LN8 (TYPE FIX)>
+ <JUMP + TAG86>
+TAG85
+ <CALL '\1aTYPE-MERGE LN8 = STACK>
+ <DEAD LN8>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = SDC12>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE82
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE88>
+ <FRAME '\1aFORM>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <PUSH 'REST>
+ <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
+ <DEAD DC11>
+ <SET LN8 0 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <LOOP>
+MAP92
+ <INTGO>
+ <EMPUV? SDC12 + MAPAP95>
+ <NTHUV SDC12 1 = QOK16>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH QOK16>
+ <DEAD QOK16>
+ <PUSH PT7>
+ <CALL '\1aTYPE-MERGE 2 = QOK16>
+ <PUSH QOK16>
+ <DEAD QOK16>
+ <ADD LN8 1 = LN8 (TYPE FIX)>
+ <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
+ <JUMP + MAP92>
+MAPAP95
+ <CALL '\1aTYPE-MERGE LN8 = STACK>
+ <DEAD LN8>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = SDC12>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE88
+ <FRAME '\1aTYPE-MERGE>
+ <SET LN8 0 (TYPE FIX)>
+ <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
+ <DEAD DC11>
+ <LOOP (SDC12 VALUE LENGTH) (LN8 VALUE)>
+TAG105
+ <INTGO>
+ <EMPUV? SDC12 + TAG104>
+ <NTHUV SDC12 1 = STACK>
+ <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
+ <ADD LN8 1 = LN8 (TYPE FIX)>
+ <JUMP + TAG105>
+TAG104
+ <CALL '\1aTYPE-MERGE LN8 = SDC12>
+ <DEAD LN8>
+ <TYPE? SDC12 <TYPE-CODE FALSE> - EXIT174>
+PHRASE103
+ <FRAME '\1aDCX>
+ <RESTL DCL13 1 = SDC12 (TYPE LIST)>
+ <NTHL SDC12 1 = FMOK17>
+ <DEAD SDC12>
+ <PUSH FMOK17>
+ <CALL '\1aDCX 1 = N14>
+ <LOOP>
+AGAIN113
+ <INTGO>
+ <RESTL DCL13 1 = DCL13 (TYPE LIST)>
+ <CHTYPE DCL13 <TYPE-CODE LIST> = DCL13>
+ <EMPL? DCL13 - PHRASE115 (TYPE LIST)>
+ <TYPE? SEGF23 <TYPE-CODE FALSE> - TAG121>
+ <TYPE? FMOK17 <TYPE-CODE VECTOR> + TAG118>
+ <SET SEGF23 %<> (TYPE FALSE)>
+ <JUMP + TAG121>
+TAG118
+ <NTHUV FMOK17 1 = SDC12>
+ <DEAD FMOK17>
+ <EQUAL? SDC12 'REST - TAG120>
+ <DEAD SDC12>
+ <SET SEGF23 'T (TYPE ATOM)>
+ <JUMP + TAG121>
+TAG120
+ <SET SEGF23 %<> (TYPE FALSE)>
+TAG121
+ <TYPE? SEGF23 <TYPE-CODE FALSE> + PHRASE123>
+ <DEAD SEGF23>
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE125>
+ <DEAD RST6>
+ <FRAME '\1aFORM>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <PUSH 'REST>
+ <PUSH N14>
+ <DEAD N14>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
+ <CALL '\1aFORM 2 = SDC12>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE125
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE128>
+ <DEAD PT7>
+ <RETURN GD19>
+ <DEAD GD19>
+PHRASE128
+ <RETURN N14>
+ <DEAD N14>
+PHRASE123
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE130>
+ <DEAD PT7>
+ <RETURN GD19>
+ <DEAD GD19>
+PHRASE130
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE131>
+ <DEAD RST6>
+ <RETURN STRU18>
+ <DEAD STRU18>
+PHRASE131
+ <RETURN 'ANY>
+PHRASE115
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH N14>
+ <DEAD N14>
+ <FRAME '\1aDCX>
+ <NTHL DCL13 1 = FMOK17>
+ <PUSH FMOK17>
+ <CALL '\1aDCX 1 = STACK>
+ <CALL '\1aTYPE-MERGE 2 = N14>
+ <TYPE? PT7 <TYPE-CODE FALSE> + AGAIN113>
+ <SET SDC12 GP20>
+ <DEAD GP20>
+ <TYPE? FMOK17 <TYPE-CODE VECTOR> - PHRASE137>
+ <NTHUV FMOK17 1 = STACK>
+ <SET QOK16 1 (TYPE FIX)>
+ <SET TEMP62 () (TYPE LIST)>
+ <SET LN8 () (TYPE LIST)>
+ <RESTUV FMOK17 1 = DC11 (TYPE VECTOR)>
+ <LOOP>
+MAP140
+ <INTGO>
+ <EMPUV? DC11 + MAPAP143>
+ <NTHUV DC11 1 = X151>
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH X151>
+ <DEAD X151>
+ <PUSH PT7>
+ <CALL '\1aTYPE-MERGE 2 = X151>
+ <CONS X151 () = X151 (TYPE LIST)>
+ <EMPL? TEMP62 - TAG154>
+ <SET TEMP62 X151 (TYPE LIST)>
+ <JUMP + TAG155>
+TAG154
+ <PUTREST LN8 X151>
+ <DEAD LN8>
+TAG155
+ <SET LN8 X151 (TYPE LIST)>
+ <DEAD X151>
+ <RESTUV DC11 1 = DC11 (TYPE VECTOR)>
+ <JUMP + MAP140>
+MAPAP143
+ <LOOP (TEMP62 VALUE) (QOK16 VALUE)>
+TAG156
+ <INTGO>
+ <EMPL? TEMP62 + TAG138>
+ <NTHL TEMP62 1 = STACK>
+ <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
+ <ADD QOK16 1 = QOK16 (TYPE FIX)>
+ <JUMP + TAG156>
+TAG138
+ <UBLOCK <TYPE-CODE VECTOR> QOK16 = DC11>
+ <DEAD QOK16>
+ <JUMP + PHRASE158>
+PHRASE137
+ <FRAME '\1aTYPE-MERGE>
+ <PUSH PT7>
+ <PUSH FMOK17>
+ <CALL '\1aTYPE-MERGE 2 = DC11>
+PHRASE158
+ <CONS DC11 () = DC11>
+ <PUTREST SDC12 DC11>
+ <DEAD SDC12>
+ <SET GP20 DC11>
+ <DEAD DC11>
+ <JUMP + AGAIN113>
+PHRASE66
+ <SET N14 NN5>
+ <DEAD NN5>
+ <TYPE? PT7 <TYPE-CODE FALSE> + BOOL161>
+ <FRAME '\1aFOSE>
+ <PUSH SEGF23>
+ <PUSH STRU18>
+ <CALL '\1aFOSE 2 = GD19>
+ <CHTYPE GD19 <TYPE-CODE LIST> = GP20>
+BOOL161
+ <TYPE? RST6 <TYPE-CODE FALSE> + BOOL163>
+ <ADD N14 1 = N14 (TYPE FIX)>
+BOOL163
+ <RESTL DCL13 1 = DCL13 (TYPE LIST)>
+ <CHTYPE DCL13 <TYPE-CODE LIST> = DCL13>
+ <EMPL? DCL13 - PHRASE165 (TYPE LIST)>
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE167>
+ <DEAD RST6>
+ <RETURN STRU18>
+ <DEAD STRU18>
+PHRASE167
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE168>
+ <FRAME '\1aFOSE>
+ <PUSH SEGF23>
+ <DEAD SEGF23>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <SET SDC12 3 (TYPE FIX)>
+ <FRAME '\1aANY-PAT>
+ <SUB N14 1 = STACK (TYPE FIX)>
+ <DEAD N14>
+ <CALL '\1aANY-PAT 1 = DC11>
+ <LOOP (DC11 VALUE) (SDC12 VALUE)>
+TAG171
+ <INTGO>
+ <EMPL? DC11 + TAG169>
+ <NTHL DC11 1 = STACK>
+ <RESTL DC11 1 = DC11 (TYPE LIST)>
+ <ADD SDC12 1 = SDC12 (TYPE FIX)>
+ <JUMP + TAG171>
+TAG169
+ <PUSH PT7>
+ <DEAD PT7>
+ <CALL '\1aFOSE SDC12 = SDC12>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE168
+ <RETURN 'ANY>
+PHRASE165
+ <LOOP>
+AGAIN175
+ <INTGO>
+ <VEQUAL? CNT9 0 + PHRASE177 (TYPE FIX)>
+ <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
+ <EMPUV? SDC12 - PHRASE196 (TYPE VECTOR)>
+ <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
+ <SUB CNT9 1 = CNT9 (TYPE FIX)>
+ <VEQUAL? CNT9 0 - PHRASE196 (TYPE FIX)>
+ <RESTL DCL13 1 = DCL13 (TYPE LIST)>
+ <EMPL? DCL13 - AGAIN175 (TYPE LIST)>
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE188>
+ <DEAD RST6>
+ <RETURN STRU18>
+ <DEAD STRU18>
+PHRASE188
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE189>
+ <CONS PT7 () = DC11>
+ <DEAD PT7>
+ <FRAME '\1aANY-PAT>
+ <SUB N14 1 = STACK (TYPE FIX)>
+ <DEAD N14>
+ <CALL '\1aANY-PAT 1 = TEMP62>
+ <SET X151 DC11>
+ <EMPL? TEMP62 + TAG191>
+ <NTHL TEMP62 1 = SDC12>
+ <CONS SDC12 DC11 = SDC12>
+ <SET X151 SDC12>
+ <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
+ <EMPL? TEMP62 + TAG191>
+ <LOOP (TEMP62 VALUE) (SDC12 VALUE) (DC11 VALUE)>
+TAG190
+ <NTHL TEMP62 1 = QOK16>
+ <CONS QOK16 DC11 = QOK16>
+ <PUTREST SDC12 QOK16>
+ <DEAD SDC12>
+ <SET SDC12 QOK16>
+ <DEAD QOK16>
+ <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
+ <EMPL? TEMP62 - TAG190>
+TAG191
+ <PUTREST GP20 X151>
+ <DEAD GP20 X151>
+ <RETURN GD19>
+ <DEAD GD19>
+PHRASE189
+ <RETURN 'ANY>
+PHRASE196
+ <NTHUV SDC12 1 = ITYP10>
+ <JUMP + PHRASE261>
+PHRASE177
+ <NTHL DCL13 1 = X151>
+ <TYPE? X151 <TYPE-CODE ATOM> + TAG198>
+ <TYPE? X151 <TYPE-CODE FORM> + TAG198>
+ <TYPE? X151 <TYPE-CODE SEGMENT> - PHRASE197>
+ <DEAD X151>
+TAG198
+ <NTHL DCL13 1 = ITYP10>
+ <RESTL DCL13 1 = DCL13 (TYPE LIST)>
+ <JUMP + PHRASE261>
+PHRASE197
+ <NTHL DCL13 1 = QOK16>
+ <TYPE? QOK16 <TYPE-CODE VECTOR> - PHRASE261>
+ <SET DC11 QOK16>
+ <DEAD QOK16>
+ <NTHUV DC11 1 = X151>
+ <EQUAL? X151 'REST - PHRASE201>
+ <DEAD X151>
+ <TYPE? RST6 <TYPE-CODE FALSE> + BOOL204>
+ <VEQUAL? N14 1 - BOOL203 (TYPE FIX)>
+BOOL204
+ <TYPE? PT7 <TYPE-CODE FALSE> + BOOL202>
+BOOL203
+ <LENUV DC11 = X151 (TYPE FIX)>
+ <VEQUAL? X151 2 - BOOL202 (TYPE FIX)>
+ <DEAD X151>
+ <FRAME '\1a=?>
+ <NTHUV DC11 2 = STACK>
+ <PUSH <NOT ANY>>
+ <CALL '\1a=? 2 = X151>
+ <VEQUAL? X151 0 + BOOL202>
+ <DEAD X151>
+ <RETURN %<>>
+BOOL202
+ <SUB N14 1 = X151 (TYPE FIX)>
+ <LENUV DC11 = SDC12 (TYPE FIX)>
+ <SUB SDC12 1 = SDC12 (TYPE FIX)>
+ <MOD X151 SDC12 = K21 (TYPE FIX)>
+ <DEAD X151 SDC12>
+ <SUB N14 1 = SDC12 (TYPE FIX)>
+ <DEAD N14>
+ <LENUV DC11 = X151 (TYPE FIX)>
+ <SUB X151 1 = X151 (TYPE FIX)>
+ <DIV SDC12 X151 = N14 (TYPE FIX)>
+ <DEAD SDC12 X151>
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE209>
+ <DEAD RST6>
+ <FRAME '\1aFOSE>
+ <PUSH SEGF23>
+ <DEAD SEGF23>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <VEQUAL? K21 0 - PHRASE212 (TYPE FIX)>
+ <DEAD K21>
+ <SET X151 DC11>
+ <DEAD DC11>
+ <JUMP + PHRASE215>
+PHRASE212
+ <PUSH 'REST>
+ <FRAME '\1aTYPE-MERGE>
+ <SET TEMP62 0 (TYPE FIX)>
+ <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
+ <DEAD DC11>
+ <LOOP (SDC12 VALUE LENGTH) (TEMP62 VALUE)>
+TAG218
+ <INTGO>
+ <EMPUV? SDC12 + TAG217>
+ <NTHUV SDC12 1 = STACK>
+ <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
+ <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
+ <JUMP + TAG218>
+TAG217
+ <CALL '\1aTYPE-MERGE TEMP62 = STACK>
+ <DEAD TEMP62>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = X151>
+PHRASE215
+ <PUSH X151>
+ <DEAD X151>
+ <CALL '\1aFOSE 3 = SDC12>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE209
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE220>
+ <CONS DC11 () = X151>
+ <SET TEMP62 () (TYPE LIST)>
+ <SET QOK16 () (TYPE LIST)>
+ <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
+ <LOOP>
+MAP224
+ <INTGO>
+ <EMPUV? SDC12 + MAPAP227>
+ <NTHUV SDC12 1 = FMOK17>
+ <SUB K21 1 = K21 (TYPE FIX)>
+ <VEQUAL? K21 -1 - PHRASE235 (TYPE FIX)>
+ <SET FMOK17 PT7>
+PHRASE235
+ <CONS FMOK17 () = FMOK17 (TYPE LIST)>
+ <EMPL? TEMP62 - TAG240>
+ <SET TEMP62 FMOK17 (TYPE LIST)>
+ <JUMP + TAG241>
+TAG240
+ <PUTREST QOK16 FMOK17>
+ <DEAD QOK16>
+TAG241
+ <SET QOK16 FMOK17 (TYPE LIST)>
+ <DEAD FMOK17>
+ <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
+ <JUMP + MAP224>
+MAPAP227
+ <SET SDC12 X151>
+ <EMPL? TEMP62 + TAG222>
+ <NTHL TEMP62 1 = FMOK17>
+ <CONS FMOK17 X151 = FMOK17>
+ <SET SDC12 FMOK17>
+ <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
+ <EMPL? TEMP62 + TAG222>
+ <LOOP (TEMP62 VALUE) (FMOK17 VALUE) (X151 VALUE)>
+TAG221
+ <NTHL TEMP62 1 = QOK16>
+ <CONS QOK16 X151 = QOK16>
+ <PUTREST FMOK17 QOK16>
+ <DEAD FMOK17>
+ <SET FMOK17 QOK16>
+ <DEAD QOK16>
+ <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
+ <EMPL? TEMP62 - TAG221>
+TAG222
+ <GRTR? N14 0 + PHRASE246 (TYPE FIX)>
+ <SET FMOK17 () (TYPE LIST)>
+ <JUMP + PHRASE256>
+PHRASE246
+ <VEQUAL? N14 1 - PHRASE249 (TYPE FIX)>
+ <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
+ <DEAD DC11>
+ <SET QOK16 () (TYPE LIST)>
+ <EMPUV? TEMP62 + TAG253>
+ <NTHUV TEMP62 1 = FMOK17>
+ <CONS FMOK17 () = FMOK17>
+ <SET QOK16 FMOK17>
+ <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
+ <EMPUV? TEMP62 + TAG253>
+ <LOOP (TEMP62 VALUE LENGTH) (FMOK17 VALUE)>
+TAG252
+ <NTHUV TEMP62 1 = N14>
+ <CONS N14 () = N14>
+ <PUTREST FMOK17 N14>
+ <DEAD FMOK17>
+ <SET FMOK17 N14>
+ <DEAD N14>
+ <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
+ <EMPUV? TEMP62 - TAG252>
+TAG253
+ <SET FMOK17 QOK16>
+ <DEAD QOK16>
+ <JUMP + PHRASE256>
+PHRASE249
+ <PUSH N14>
+ <DEAD N14>
+ <SET FMOK17 1 (TYPE FIX)>
+ <RESTUV DC11 1 = QOK16 (TYPE VECTOR)>
+ <DEAD DC11>
+ <LOOP (QOK16 VALUE LENGTH) (FMOK17 VALUE)>
+TAG258
+ <INTGO>
+ <EMPUV? QOK16 + TAG257>
+ <NTHUV QOK16 1 = STACK>
+ <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
+ <ADD FMOK17 1 = FMOK17 (TYPE FIX)>
+ <JUMP + TAG258>
+TAG257
+ <UBLOCK <TYPE-CODE VECTOR> FMOK17 = QOK16>
+ <DEAD FMOK17>
+ <CONS QOK16 () = FMOK17>
+ <DEAD QOK16>
+PHRASE256
+ <SET QOK16 SDC12>
+ <EMPL? FMOK17 + TAG244>
+ <NTHL FMOK17 1 = TEMP62>
+ <CONS TEMP62 SDC12 = TEMP62>
+ <SET QOK16 TEMP62>
+ <RESTL FMOK17 1 = FMOK17 (TYPE LIST)>
+ <EMPL? FMOK17 + TAG244>
+ <LOOP (FMOK17 VALUE) (TEMP62 VALUE) (SDC12 VALUE)>
+TAG243
+ <NTHL FMOK17 1 = N14>
+ <CONS N14 SDC12 = N14>
+ <PUTREST TEMP62 N14>
+ <DEAD TEMP62>
+ <SET TEMP62 N14>
+ <DEAD N14>
+ <RESTL FMOK17 1 = FMOK17 (TYPE LIST)>
+ <EMPL? FMOK17 - TAG243>
+TAG244
+ <PUTREST GP20 QOK16>
+ <DEAD GP20 QOK16>
+ <RETURN GD19>
+ <DEAD GD19>
+PHRASE220
+ <ADD K21 2 = QOK16 (TYPE FIX)>
+ <DEAD K21>
+ <NTHUV DC11 QOK16 = SDC12>
+ <DEAD DC11 QOK16>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE201
+ <NTHUV DC11 1 = QOK16>
+ <TYPE? QOK16 <TYPE-CODE FIX> + BOOL262>
+ <DEAD QOK16>
+ <NTHUV DC11 1 = QOK16>
+ <EQUAL? QOK16 'OPT + BOOL262>
+ <DEAD QOK16>
+ <NTHUV DC11 1 = QOK16>
+ <EQUAL? QOK16 'OPTIONAL - PHRASE261>
+ <DEAD QOK16>
+BOOL262
+ <NTHUV DC11 1 = QOK16>
+ <TYPE? QOK16 <TYPE-CODE FIX> - PHRASE264>
+ <DEAD QOK16>
+ <NTHUV DC11 1 = QOK16 (TYPE FIX)>
+ <JUMP + PHRASE265>
+PHRASE264
+ <SET QOK16 1 (TYPE FIX)>
+PHRASE265
+ <SET CNT9 QOK16>
+ <DEAD QOK16>
+ <SET SDC12 DC11>
+ <JUMP + AGAIN175>
+PHRASE261
+ <SUB N14 1 = N14 (TYPE FIX)>
+ <VEQUAL? N14 0 - BOOL266 (TYPE FIX)>
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE270>
+ <DEAD RST6>
+ <EMPL? DCL13 - PHRASE272 (TYPE LIST)>
+ <VEQUAL? CNT9 0 - PHRASE272 (TYPE FIX)>
+ <RETURN STRU18>
+ <DEAD STRU18>
+PHRASE272
+ <FRAME '\1aFOSE>
+ <PUSH SEGF23>
+ <DEAD SEGF23>
+ <PUSH STRU18>
+ <DEAD STRU18>
+ <SET TEMP62 2 (TYPE FIX)>
+ <VEQUAL? CNT9 0 - PHRASE278 (TYPE FIX)>
+ <CONS ITYP10 DCL13 = QOK16>
+ <DEAD ITYP10 DCL13>
+ <JUMP + PHRASE298>
+PHRASE278
+ <RESTUV DC11 1 = FMOK17 (TYPE VECTOR)>
+ <VEQUAL? FMOK17 SDC12 + PHRASE281>
+ <DEAD FMOK17>
+ <SUB CNT9 1 = CNT9 (TYPE FIX)>
+ <VEQUAL? CNT9 0 - PHRASE283 (TYPE FIX)>
+ <RESTL DCL13 1 = FMOK17 (TYPE LIST)>
+ <DEAD DCL13>
+ <SET N14 SDC12>
+ <DEAD SDC12>
+ <SET GD19 FMOK17>
+ <EMPUV? N14 + TAG287>
+ <NTHUV N14 1 = SEGF23>
+ <CONS SEGF23 FMOK17 = SEGF23>
+ <SET GD19 SEGF23>
+ <RESTUV N14 1 = N14 (TYPE VECTOR)>
+ <EMPUV? N14 + TAG287>
+ <LOOP (N14 VALUE LENGTH) (SEGF23 VALUE) (FMOK17 VALUE)>
+TAG286
+ <NTHUV N14 1 = LN8>
+ <CONS LN8 FMOK17 = LN8>
+ <PUTREST SEGF23 LN8>
+ <DEAD SEGF23>
+ <SET SEGF23 LN8>
+ <DEAD LN8>
+ <RESTUV N14 1 = N14 (TYPE VECTOR)>
+ <EMPUV? N14 - TAG286>
+TAG287
+ <SET QOK16 GD19>
+ <DEAD GD19>
+ <JUMP + PHRASE298>
+PHRASE283
+ <RESTL DCL13 1 = GD19 (TYPE LIST)>
+ <DEAD DCL13>
+ <PUSH CNT9>
+ <DEAD CNT9>
+ <SET N14 1 (TYPE FIX)>
+ <RESTUV DC11 1 = SEGF23 (TYPE VECTOR)>
+ <DEAD DC11>
+ <LOOP (SEGF23 VALUE LENGTH) (N14 VALUE)>
+TAG293
+ <INTGO>
+ <EMPUV? SEGF23 + TAG292>
+ <NTHUV SEGF23 1 = STACK>
+ <RESTUV SEGF23 1 = SEGF23 (TYPE VECTOR)>
+ <ADD N14 1 = N14 (TYPE FIX)>
+ <JUMP + TAG293>
+TAG292
+ <UBLOCK <TYPE-CODE VECTOR> N14 = SEGF23>
+ <DEAD N14>
+ <CONS SEGF23 GD19 = QOK16>
+ <DEAD SEGF23 GD19>
+ <SET GD19 SDC12>
+ <DEAD SDC12>
+ <SET SEGF23 QOK16>
+ <EMPUV? GD19 + TAG296>
+ <NTHUV GD19 1 = LN8>
+ <CONS LN8 QOK16 = LN8>
+ <SET SEGF23 LN8>
+ <RESTUV GD19 1 = GD19 (TYPE VECTOR)>
+ <EMPUV? GD19 + TAG296>
+ <LOOP (GD19 VALUE LENGTH) (LN8 VALUE) (QOK16 VALUE)>
+TAG295
+ <NTHUV GD19 1 = SDC12>
+ <CONS SDC12 QOK16 = SDC12>
+ <PUTREST LN8 SDC12>
+ <DEAD LN8>
+ <SET LN8 SDC12>
+ <DEAD SDC12>
+ <RESTUV GD19 1 = GD19 (TYPE VECTOR)>
+ <EMPUV? GD19 - TAG295>
+TAG296
+ <SET QOK16 SEGF23>
+ <DEAD SEGF23>
+ <JUMP + PHRASE298>
+PHRASE281
+ <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
+ <DEAD DCL13>
+ <PUSH CNT9>
+ <DEAD CNT9>
+ <SET GD19 1 (TYPE FIX)>
+ <SET LN8 SDC12>
+ <DEAD SDC12>
+ <LOOP (LN8 VALUE LENGTH) (GD19 VALUE)>
+TAG300
+ <INTGO>
+ <EMPUV? LN8 + TAG299>
+ <NTHUV LN8 1 = STACK>
+ <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
+ <ADD GD19 1 = GD19 (TYPE FIX)>
+ <JUMP + TAG300>
+TAG299
+ <UBLOCK <TYPE-CODE VECTOR> GD19 = LN8>
+ <DEAD GD19>
+ <CONS LN8 SEGF23 = QOK16>
+ <DEAD LN8 SEGF23>
+PHRASE298
+ <LOOP (QOK16 VALUE) (TEMP62 VALUE)>
+TAG302
+ <INTGO>
+ <EMPL? QOK16 + TAG276>
+ <NTHL QOK16 1 = STACK>
+ <RESTL QOK16 1 = QOK16 (TYPE LIST)>
+ <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
+ <JUMP + TAG302>
+TAG276
+ <CALL '\1aFOSE TEMP62 = SDC12>
+ <DEAD TEMP62>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE270
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE304>
+ <CONS PT7 () = TEMP62>
+ <DEAD PT7>
+ <PUTREST GP20 TEMP62>
+ <DEAD GP20>
+ <SET GP20 TEMP62>
+ <DEAD TEMP62>
+ <TYPE? SDC12 <TYPE-CODE UNBOUND> + BOOL305>
+ <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
+BOOL305
+ <EMPL? DCL13 - PHRASE307 (TYPE LIST)>
+ <VEQUAL? CNT9 0 - PHRASE307 (TYPE FIX)>
+ <RETURN GD19>
+ <DEAD GD19>
+PHRASE307
+ <VEQUAL? CNT9 0 + BOOL314 (TYPE FIX)>
+ <VEQUAL? CNT9 1 - PHRASE313 (TYPE FIX)>
+ <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
+ <VEQUAL? TEMP62 SDC12 - PHRASE313>
+ <DEAD TEMP62>
+BOOL314
+ <SET TEMP62 DCL13>
+ <DEAD DCL13>
+ <JUMP + PHRASE332>
+PHRASE313
+ <RESTUV DC11 1 = SEGF23 (TYPE VECTOR)>
+ <VEQUAL? SEGF23 SDC12 - PHRASE320>
+ <DEAD SEGF23>
+ <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
+ <DEAD DCL13>
+ <PUSH CNT9>
+ <DEAD CNT9>
+ <SET SDC12 1 (TYPE FIX)>
+ <RESTUV DC11 1 = LN8 (TYPE VECTOR)>
+ <DEAD DC11>
+ <LOOP (LN8 VALUE LENGTH) (SDC12 VALUE)>
+TAG322
+ <INTGO>
+ <EMPUV? LN8 + TAG321>
+ <NTHUV LN8 1 = STACK>
+ <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
+ <ADD SDC12 1 = SDC12 (TYPE FIX)>
+ <JUMP + TAG322>
+TAG321
+ <UBLOCK <TYPE-CODE VECTOR> SDC12 = LN8>
+ <DEAD SDC12>
+ <CONS LN8 SEGF23 = TEMP62>
+ <DEAD LN8 SEGF23>
+ <JUMP + PHRASE332>
+PHRASE320
+ <SUB CNT9 1 = CNT9 (TYPE FIX)>
+ <GRTR? CNT9 0 + PHRASE324 (TYPE FIX)>
+ <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
+ <DEAD DCL13>
+ <SET LN8 SDC12>
+ <DEAD SDC12>
+ <SET QOK16 SEGF23>
+ <EMPUV? LN8 + TAG328>
+ <NTHUV LN8 1 = FMOK17>
+ <CONS FMOK17 SEGF23 = FMOK17>
+ <SET QOK16 FMOK17>
+ <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
+ <EMPUV? LN8 + TAG328>
+ <LOOP (LN8 VALUE LENGTH) (FMOK17 VALUE) (SEGF23 VALUE)>
+TAG327
+ <NTHUV LN8 1 = SDC12>
+ <CONS SDC12 SEGF23 = SDC12>
+ <PUTREST FMOK17 SDC12>
+ <DEAD FMOK17>
+ <SET FMOK17 SDC12>
+ <DEAD SDC12>
+ <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
+ <EMPUV? LN8 - TAG327>
+TAG328
+ <SET TEMP62 QOK16>
+ <DEAD QOK16>
+ <JUMP + PHRASE332>
+PHRASE324
+ <RESTL DCL13 1 = QOK16 (TYPE LIST)>
+ <DEAD DCL13>
+ <PUSH CNT9>
+ <DEAD CNT9>
+ <SET LN8 1 (TYPE FIX)>
+ <RESTUV DC11 1 = FMOK17 (TYPE VECTOR)>
+ <DEAD DC11>
+ <LOOP (FMOK17 VALUE LENGTH) (LN8 VALUE)>
+TAG334
+ <INTGO>
+ <EMPUV? FMOK17 + TAG333>
+ <NTHUV FMOK17 1 = STACK>
+ <RESTUV FMOK17 1 = FMOK17 (TYPE VECTOR)>
+ <ADD LN8 1 = LN8 (TYPE FIX)>
+ <JUMP + TAG334>
+TAG333
+ <UBLOCK <TYPE-CODE VECTOR> LN8 = FMOK17>
+ <DEAD LN8>
+ <CONS FMOK17 QOK16 = TEMP62>
+ <DEAD FMOK17 QOK16>
+ <SET QOK16 SDC12>
+ <DEAD SDC12>
+ <SET FMOK17 TEMP62>
+ <EMPUV? QOK16 + TAG337>
+ <NTHUV QOK16 1 = SDC12>
+ <CONS SDC12 TEMP62 = SDC12>
+ <SET FMOK17 SDC12>
+ <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
+ <EMPUV? QOK16 + TAG337>
+ <LOOP (QOK16 VALUE LENGTH) (SDC12 VALUE) (TEMP62 VALUE)>
+TAG336
+ <NTHUV QOK16 1 = N14>
+ <CONS N14 TEMP62 = N14>
+ <PUTREST SDC12 N14>
+ <DEAD SDC12>
+ <SET SDC12 N14>
+ <DEAD N14>
+ <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
+ <EMPUV? QOK16 - TAG336>
+TAG337
+ <SET TEMP62 FMOK17>
+ <DEAD FMOK17>
+PHRASE332
+ <PUTREST GP20 TEMP62>
+ <DEAD GP20 TEMP62>
+ <RETURN GD19>
+ <DEAD GD19>
+PHRASE304
+ <RETURN ITYP10>
+ <DEAD ITYP10>
+BOOL266
+ <TYPE? PT7 <TYPE-CODE FALSE> - BOOL341>
+ <TYPE? RST6 <TYPE-CODE FALSE> + BOOL340>
+BOOL341
+ <FRAME '\1a=?>
+ <PUSH ITYP10>
+ <PUSH <NOT ANY>>
+ <CALL '\1a=? 2 = FMOK17>
+ <VEQUAL? FMOK17 0 + BOOL340>
+ <DEAD FMOK17>
+ <RETURN %<>>
+BOOL340
+ <TYPE? PT7 <TYPE-CODE FALSE> + BOOL343>
+ <CONS ITYP10 () = FMOK17>
+ <PUTREST GP20 FMOK17>
+ <DEAD GP20>
+ <SET GP20 FMOK17>
+ <DEAD FMOK17>
+BOOL343
+ <EMPL? DCL13 - AGAIN175 (TYPE LIST)>
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE347>
+ <DEAD RST6>
+ <RETURN STRU18>
+ <DEAD STRU18>
+PHRASE347
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE348>
+ <CONS PT7 () = FMOK17>
+ <DEAD PT7>
+ <FRAME '\1aANY-PAT>
+ <SUB N14 1 = STACK (TYPE FIX)>
+ <DEAD N14>
+ <CALL '\1aANY-PAT 1 = SDC12>
+ <SET QOK16 FMOK17>
+ <EMPL? SDC12 + TAG350>
+ <NTHL SDC12 1 = N14>
+ <CONS N14 FMOK17 = N14>
+ <SET QOK16 N14>
+ <RESTL SDC12 1 = SDC12 (TYPE LIST)>
+ <EMPL? SDC12 + TAG350>
+ <LOOP (SDC12 VALUE) (N14 VALUE) (FMOK17 VALUE)>
+TAG349
+ <NTHL SDC12 1 = SEGF23>
+ <CONS SEGF23 FMOK17 = SEGF23>
+ <PUTREST N14 SEGF23>
+ <DEAD N14>
+ <SET N14 SEGF23>
+ <DEAD SEGF23>
+ <RESTL SDC12 1 = SDC12 (TYPE LIST)>
+ <EMPL? SDC12 - TAG349>
+TAG350
+ <PUTREST GP20 QOK16>
+ <DEAD GP20 QOK16>
+ <RETURN GD19>
+ <DEAD GD19>
+PHRASE348
+ <RETURN 'ANY>
+EXIT174
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE53
+ <VEQUAL? QOK16 0 + PHRASE354>
+ <DEAD QOK16>
+ <FRAME '\1aGEN-DECL>
+ <RESTL DCL13 1 = QOK16 (TYPE LIST)>
+ <NTHL QOK16 1 = STACK>
+ <DEAD QOK16>
+ <CALL '\1aGEN-DECL 1 = N14>
+ <SET QOK16 %<> (TYPE FALSE)>
+ <JUMP + AGAIN28>
+PHRASE354
+ <TYPE? FMOK17 <TYPE-CODE FALSE> + PHRASE356>
+ <NTHUV FMOK17 1 = QOK16>
+ <EQUAL? QOK16 'OR - PHRASE356>
+ <DEAD QOK16>
+ <RESTL DCL13 1 = SDC12 (TYPE LIST)>
+ <DEAD DCL13>
+ <CHTYPE SDC12 <TYPE-CODE LIST> = SDC12>
+ <SET SEGF23 0 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <LOOP>
+MAP359
+ <INTGO>
+ <EMPL? SDC12 + MAPAP362>
+ <NTHL SDC12 1 = QOK16>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH QOK16>
+ <DEAD QOK16>
+ <PUSH NN5>
+ <PUSH RST6>
+ <PUSH PT7>
+ <CALL '\1aGET-ELE-TYPE 4 = QOK16>
+ <TYPE? QOK16 <TYPE-CODE FALSE> + MAP360>
+ <EQUAL? QOK16 'ANY - BOOL371>
+ <SET SDC12 'ANY (TYPE ATOM)>
+ <SUB 0 SEGF23 = SEGF23 (TYPE FIX)>
+ <MUL SEGF23 2 = SEGF23 (TYPE FIX)>
+ <ADJ SEGF23>
+ <DEAD SEGF23>
+ <RETURN SDC12>
+ <DEAD SDC12>
+BOOL371
+ <PUSH QOK16>
+ <DEAD QOK16>
+ <ADD SEGF23 1 = SEGF23 (TYPE FIX)>
+MAP360
+ <RESTL SDC12 1 = SDC12 (TYPE LIST)>
+ <JUMP + MAP359>
+MAPAP362
+ <CALL '\1aTYPE-MERGE SEGF23 = SDC12>
+ <DEAD SEGF23>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE356
+ <TYPE? FMOK17 <TYPE-CODE FALSE> + PHRASE376>
+ <NTHUV FMOK17 1 = SDC12>
+ <DEAD FMOK17>
+ <EQUAL? SDC12 'AND - PHRASE376>
+ <DEAD SDC12>
+ <SET ITYP10 'ANY (TYPE ATOM)>
+ <RESTL DCL13 1 = SDC12 (TYPE LIST)>
+ <DEAD DCL13>
+ <CHTYPE SDC12 <TYPE-CODE LIST> = SDC12>
+ <LOOP>
+MAP379
+ <INTGO>
+ <EMPL? SDC12 + MAPAP382>
+ <NTHL SDC12 1 = QOK16>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH ITYP10>
+ <DEAD ITYP10>
+ <FRAME '\1aGET-ELE-TYPE>
+ <PUSH QOK16>
+ <DEAD QOK16>
+ <PUSH NN5>
+ <PUSH RST6>
+ <CALL '\1aGET-ELE-TYPE 3 = STACK>
+ <CALL '\1aTYPE-OK? 2 = ITYP10>
+ <RESTL SDC12 1 = SDC12 (TYPE LIST)>
+ <JUMP + MAP379>
+MAPAP382
+ <RETURN ITYP10>
+ <DEAD ITYP10>
+PHRASE376
+ <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE389>
+ <DEAD RST6>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH N14>
+ <DEAD N14>
+ <CALL '\1aSTRUCTYP 1 = SDC12>
+ <TYPE? SDC12 <TYPE-CODE FALSE> - PHRASE392>
+ <SET SDC12 'STRUCTURED (TYPE ATOM)>
+PHRASE392
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE389
+ <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE393>
+ <EQUAL? NN5 'ALL - PHRASE395>
+ <RETURN N14>
+ <DEAD N14>
+PHRASE395
+ <FRAME '\1aFOSE>
+ <PUSH SEGF23>
+ <DEAD SEGF23>
+ <PUSH N14>
+ <DEAD N14>
+ <SET QOK16 3 (TYPE FIX)>
+ <FRAME '\1aANY-PAT>
+ <SUB NN5 1 = STACK (TYPE FIX)>
+ <DEAD NN5>
+ <CALL '\1aANY-PAT 1 = SDC12>
+ <LOOP (SDC12 VALUE) (QOK16 VALUE)>
+TAG399
+ <INTGO>
+ <EMPL? SDC12 + TAG397>
+ <NTHL SDC12 1 = STACK>
+ <RESTL SDC12 1 = SDC12 (TYPE LIST)>
+ <ADD QOK16 1 = QOK16 (TYPE FIX)>
+ <JUMP + TAG399>
+TAG397
+ <PUSH PT7>
+ <DEAD PT7>
+ <CALL '\1aFOSE QOK16 = SDC12>
+ <DEAD QOK16>
+ <RETURN SDC12>
+ <DEAD SDC12>
+PHRASE393
+ <RETURN 'ANY>
+ <END \1aREAL-GET-ELE-TYPE>
+"\f"
+
+#WORD *35341206656*
+<GFCN \1aMINL ("VALUE" FIX ANY) DCL4>
+ <TEMP TEMP6:FIX>
+ <INTGO>
+ <FRAME '\1aMIN-MAX-L>
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <PUSH %<>>
+ <CALL '\1aMIN-MAX-L 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aMINL>
+#WORD *36747210362*
+<GFCN \1aMAXL ("VALUE" FIX ANY) DCL4>
+ <TEMP TEMP6:FIX>
+ <INTGO>
+ <FRAME '\1aMIN-MAX-L>
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <PUSH 'T>
+ <CALL '\1aMIN-MAX-L 2 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aMAXL>
+#WORD *27422404653*
+<GFCN \1aMIN-MAX-L ("VALUE" FIX ANY ANY) DCL4 MAXF5>
+ <TEMP (N6:FIX 0) (LN10:FIX 0) (QOK11 %<>) (ANDOK12 %<>) (OROK14 %<>) DC9 TEMP26>
+ <INTGO>
+ <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE17>
+ <SET LN10 0 (TYPE FIX)>
+ <JUMP + PHRASE18>
+PHRASE17
+ <SET LN10 65535 (TYPE FIX)>
+PHRASE18
+ <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE20>
+ <FRAME '\1aDECL-GET>
+ <PUSH DCL4>
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <CALL '\1aDECL-GET 2 = DCL4>
+PHRASE20
+ <TYPE? DCL4 <TYPE-CODE FORM> + TAG25>
+ <TYPE? DCL4 <TYPE-CODE SEGMENT> - PHRASE23>
+TAG25
+ <SET DC9 DCL4>
+ <EMPL? DC9 + PHRASE23>
+ <RESTL DC9 1 = TEMP26 (TYPE LIST)>
+ <EMPL? TEMP26 + PHRASE23>
+ <DEAD TEMP26>
+ <NTHL DC9 1 = TEMP26>
+ <EQUAL? TEMP26 'PRIMTYPE + PHRASE23>
+ <SET OROK14 %<> (TYPE FALSE)>
+ <EQUAL? TEMP26 'OR - TAG27>
+ <SET OROK14 'T (TYPE ATOM)>
+ <JUMP + PHRASE23>
+TAG27
+ <SET QOK11 %<> (TYPE FALSE)>
+ <EQUAL? TEMP26 'QUOTE - TAG28>
+ <SET QOK11 'T (TYPE ATOM)>
+ <JUMP + PHRASE23>
+TAG28
+ <SET ANDOK12 %<> (TYPE FALSE)>
+ <EQUAL? TEMP26 'AND - TAG29>
+ <SET ANDOK12 'T (TYPE ATOM)>
+ <JUMP + PHRASE23>
+TAG29
+ <EQUAL? TEMP26 'NOT + PHRASE23>
+ <DEAD TEMP26>
+ <RESTL DC9 1 = DC9 (TYPE LIST)>
+ <CHTYPE DC9 <TYPE-CODE LIST> = DC9>
+ <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE31>
+ <TYPE? DCL4 <TYPE-CODE FORM> - PHRASE31>
+ <RETURN 65535>
+PHRASE31
+ <LOOP>
+AGAIN37
+ <INTGO>
+ <NTHL DC9 1 = QOK11>
+ <TYPE? QOK11 <TYPE-CODE VECTOR> - PHRASE39>
+ <SET ANDOK12 QOK11>
+ <LENUV ANDOK12 = OROK14 (TYPE FIX)>
+ <GRTR? OROK14 1 - PHRASE39 (TYPE FIX)>
+ <DEAD OROK14>
+ <NTHUV ANDOK12 1 = QOK11>
+ <EQUAL? QOK11 'REST + BOOL46>
+ <EQUAL? QOK11 'OPT + BOOL46>
+ <EQUAL? QOK11 'OPTIONAL - PHRASE45>
+BOOL46
+ <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE48>
+ <EQUAL? QOK11 'REST - PHRASE50>
+ <DEAD QOK11>
+ <RETURN 65535>
+PHRASE50
+ <LENUV ANDOK12 = OROK14 (TYPE FIX)>
+ <DEAD ANDOK12>
+ <SUB OROK14 1 = OROK14 (TYPE FIX)>
+ <ADD OROK14 N6 = N6 (TYPE FIX)>
+ <DEAD OROK14>
+ <JUMP + PHRASE58>
+PHRASE48
+ <RETURN N6>
+ <DEAD N6>
+PHRASE45
+ <NTHUV ANDOK12 1 = OROK14>
+ <TYPE? OROK14 <TYPE-CODE FIX> - PHRASE53>
+ <DEAD OROK14>
+ <NTHUV ANDOK12 1 = LN10 (TYPE FIX)>
+ <LENUV ANDOK12 = OROK14 (TYPE FIX)>
+ <DEAD ANDOK12>
+ <SUB OROK14 1 = OROK14 (TYPE FIX)>
+ <MUL OROK14 LN10 = OROK14 (TYPE FIX)>
+ <DEAD LN10>
+ <ADD OROK14 N6 = N6 (TYPE FIX)>
+ <DEAD OROK14>
+ <JUMP + PHRASE58>
+PHRASE53
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Bad DECL syntax">
+ <PUSH DCL4>
+ <CALL '\1aCOMPILE-ERROR 2>
+ <JUMP + PHRASE58>
+PHRASE39
+ <TYPE? QOK11 <TYPE-CODE ATOM> + TAG57>
+ <TYPE? QOK11 <TYPE-CODE FORM> + TAG57>
+ <TYPE? QOK11 <TYPE-CODE SEGMENT> - PHRASE56>
+ <DEAD QOK11>
+TAG57
+ <ADD N6 1 = N6 (TYPE FIX)>
+ <JUMP + PHRASE58>
+PHRASE56
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Bad DECL syntax">
+ <PUSH DCL4>
+ <CALL '\1aCOMPILE-ERROR 2>
+PHRASE58
+ <RESTL DC9 1 = DC9 (TYPE LIST)>
+ <EMPL? DC9 - AGAIN37 (TYPE LIST)>
+ <RETURN N6>
+ <DEAD N6>
+PHRASE23
+ <VEQUAL? OROK14 0 - BOOL63>
+ <VEQUAL? ANDOK12 0 + PHRASE62>
+ <DEAD ANDOK12>
+BOOL63
+ <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
+ <DEAD DC9>
+ <CHTYPE ANDOK12 <TYPE-CODE LIST> = ANDOK12>
+ <LOOP>
+MAP65
+ <INTGO>
+ <EMPL? ANDOK12 + MAPAP68>
+ <NTHL ANDOK12 1 = QOK11>
+ <VEQUAL? OROK14 0 + PHRASE77>
+ <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE79>
+ <FRAME '\1aMIN-MAX-L>
+ <PUSH QOK11>
+ <DEAD QOK11>
+ <PUSH MAXF5>
+ <CALL '\1aMIN-MAX-L 2 = N6>
+ <LESS? LN10 N6 - PHRASE92>
+ <SET LN10 N6 (TYPE FIX)>
+ <DEAD N6>
+ <JUMP + PHRASE92>
+PHRASE79
+ <SET N6 LN10>
+ <DEAD LN10>
+ <FRAME '\1aMIN-MAX-L>
+ <PUSH QOK11>
+ <DEAD QOK11>
+ <PUSH MAXF5>
+ <CALL '\1aMIN-MAX-L 2 = LN10>
+ <GRTR? N6 LN10 - TAG87>
+ <SET N6 LN10 (TYPE FIX)>
+ <DEAD LN10>
+TAG87
+ <SET LN10 N6>
+ <DEAD N6>
+ <JUMP + PHRASE92>
+PHRASE77
+ <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE88>
+ <FRAME '\1aMIN-MAX-L>
+ <PUSH QOK11>
+ <DEAD QOK11>
+ <PUSH MAXF5>
+ <CALL '\1aMIN-MAX-L 2 = N6>
+ <GRTR? LN10 N6 - PHRASE92>
+ <SET LN10 N6 (TYPE FIX)>
+ <DEAD N6>
+ <JUMP + PHRASE92>
+PHRASE88
+ <SET N6 LN10>
+ <DEAD LN10>
+ <FRAME '\1aMIN-MAX-L>
+ <PUSH QOK11>
+ <DEAD QOK11>
+ <PUSH MAXF5>
+ <CALL '\1aMIN-MAX-L 2 = LN10>
+ <LESS? N6 LN10 - TAG95>
+ <SET N6 LN10 (TYPE FIX)>
+ <DEAD LN10>
+TAG95
+ <SET LN10 N6>
+ <DEAD N6>
+PHRASE92
+ <RESTL ANDOK12 1 = ANDOK12 (TYPE LIST)>
+ <JUMP + MAP65>
+MAPAP68
+ <RETURN LN10>
+ <DEAD LN10>
+PHRASE62
+ <VEQUAL? QOK11 0 + PHRASE96>
+ <DEAD QOK11>
+ <FRAME '\1aSTRUCTURED?>
+ <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
+ <NTHL ANDOK12 1 = STACK>
+ <DEAD ANDOK12>
+ <CALL '\1aSTRUCTURED? 1 = QOK11>
+ <TYPE? QOK11 <TYPE-CODE FALSE> + PHRASE98>
+ <DEAD QOK11>
+ <FRAME '\1aLENGTH>
+ <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
+ <DEAD DC9>
+ <NTHL ANDOK12 1 = STACK>
+ <DEAD ANDOK12>
+ <CALL '\1aLENGTH 1 = TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+PHRASE98
+ <RETURN 0>
+PHRASE96
+ <TYPE? DCL4 <TYPE-CODE ATOM> + TAG103>
+ <TYPE? DCL4 <TYPE-CODE FALSE> + TAG103>
+ <TYPE? DCL4 <TYPE-CODE FORM> + TAG103>
+ <TYPE? DCL4 <TYPE-CODE SEGMENT> - PHRASE102>
+TAG103
+ <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE105>
+ <DEAD MAXF5>
+ <RETURN 65535>
+PHRASE105
+ <RETURN 0>
+PHRASE102
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Bad DECL syntax">
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+ <END \1aMIN-MAX-L>
+#WORD *36533044*
+<GFCN \1aSTRUCTYP-SEG ("VALUE" ANY ANY) DCL4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH DCL4>
+ <CALL '\1aSTRUCTYP 1 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL9>
+ <EQUAL? DCL4 'MULTI - BOOL8>
+ <RETURN 'MULTI>
+BOOL8
+ <TYPE? DCL4 <TYPE-CODE FORM> + TAG10>
+ <TYPE? DCL4 <TYPE-CODE SEGMENT> + TAG10>
+ <RETURN %<>>
+TAG10
+ <EMPL? DCL4 - TAG12>
+ <RETURN %<>>
+TAG12
+ <NTHL DCL4 1 = TEMP6>
+ <DEAD DCL4>
+ <EQUAL? TEMP6 'MULTI + TAG13>
+ <DEAD TEMP6>
+ <RETURN %<>>
+TAG13
+ <SET TEMP6 'MULTI (TYPE ATOM)>
+BOOL9
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aSTRUCTYP-SEG>
+#WORD *22010237024*
+<GFCN \1aSTRUCTYP ("VALUE" ANY ANY) DCL4>
+ <TEMP VT5 TEMP10>
+ <INTGO>
+ <FRAME '\1aTYPE-AND>
+ <PUSH DCL4>
+ <DEAD DCL4>
+ <PUSH 'STRUCTURED>
+ <CALL '\1aTYPE-AND 2 = DCL4>
+ <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE8>
+ <NTHR DCL4 5 = VT5 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG12)>
+ <DEAD DCL4>
+ <TYPE? VT5 <TYPE-CODE FALSE> + TAG12>
+ <JUMP + TAG11>
+TAG12
+ <SET VT5 %<> (TYPE FALSE)>
+TAG11
+ <SET TEMP10 VT5>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE19>
+ <FRAME '\1aGC-PRIMTYPE>
+ <PUSH VT5>
+ <DEAD VT5>
+ <CALL '\1aGC-PRIMTYPE 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE8
+ <TYPE? DCL4 <TYPE-CODE FORM> + TAG15>
+ <TYPE? DCL4 <TYPE-CODE SEGMENT> + TAG15>
+ <RETURN %<>>
+TAG15
+ <FRAME '\1aPRIMHK>
+ <PUSH DCL4>
+ <PUSH 'T>
+ <CALL '\1aPRIMHK 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE19>
+ <NTHL DCL4 1 = VT5>
+ <TYPE? VT5 <TYPE-CODE FORM> + TAG21>
+ <DEAD VT5>
+ <RETURN %<>>
+TAG21
+ <FRAME '\1aPRIMHK>
+ <NTHL DCL4 1 = STACK (TYPE FORM)>
+ <DEAD DCL4>
+ <PUSH %<>>
+ <CALL '\1aPRIMHK 2 = TEMP10>
+PHRASE19
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aSTRUCTYP>
+#WORD *16062653076*
+<GFCN \1aPRIMHK ("VALUE" ANY <OR FORM SEGMENT> ANY) FRM4 FLG5>
+ <TEMP LN7 TEM6 D36>
+ <INTGO>
+ <LENL FRM4 = LN7 (TYPE FIX)>
+ <VEQUAL? LN7 2 - PHRASE16 (TYPE FIX)>
+ <NTHL FRM4 1 = TEM6>
+ <EQUAL? TEM6 'PRIMTYPE - PHRASE12>
+ <RESTL FRM4 1 = TEM6 (TYPE LIST)>
+ <NTHL TEM6 1 = TEM6>
+ <TYPE? TEM6 <TYPE-CODE ATOM> - PHRASE16>
+ <NTHR TEM6 5 = TEM6 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE16)>
+ <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE16>
+ <DEAD TEM6>
+ <FRAME '\1aSTRUCTYP>
+ <RESTL FRM4 1 = TEM6 (TYPE LIST)>
+ <NTHL TEM6 1 = STACK (TYPE ATOM)>
+ <DEAD TEM6>
+ <CALL '\1aSTRUCTYP 1 = TEM6>
+ <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE61>
+ <JUMP + PHRASE16>
+PHRASE12
+ <EQUAL? TEM6 'QUOTE - PHRASE16>
+ <DEAD TEM6>
+ <FRAME '\1aPRIMTYPE>
+ <RESTL FRM4 1 = TEM6 (TYPE LIST)>
+ <DEAD FRM4>
+ <NTHL TEM6 1 = STACK>
+ <DEAD TEM6>
+ <CALL '\1aPRIMTYPE 1 = TEM6>
+ <RETURN TEM6>
+ <DEAD TEM6>
+PHRASE16
+ <VEQUAL? LN7 0 - TAG20 (TYPE FIX)>
+ <DEAD LN7>
+ <RETURN %<>>
+TAG20
+ <NTHL FRM4 1 = TEM6>
+ <EQUAL? TEM6 'OR - PHRASE24>
+ <SET TEM6 'NO-RETURN (TYPE ATOM)>
+ <RESTL FRM4 1 = LN7 (TYPE LIST)>
+ <DEAD FRM4>
+ <CHTYPE LN7 <TYPE-CODE LIST> = LN7>
+ <LOOP>
+MAP26
+ <INTGO>
+ <EMPL? LN7 + MAPAP29>
+ <NTHL LN7 1 = D36>
+ <FRAME '\1aTYPE-MERGE>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH D36>
+ <DEAD D36>
+ <CALL '\1aSTRUCTYP 1 = STACK>
+ <PUSH TEM6>
+ <DEAD TEM6>
+ <CALL '\1aTYPE-MERGE 2 = TEM6>
+ <RESTL LN7 1 = LN7 (TYPE LIST)>
+ <JUMP + MAP26>
+MAPAP29
+ <TYPE? TEM6 <TYPE-CODE ATOM> + TAG42>
+ <RETURN %<>>
+TAG42
+ <NTHR TEM6 5 = LN7 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG44)>
+ <TYPE? LN7 <TYPE-CODE FALSE> - TAG44>
+ <DEAD LN7>
+ <RETURN %<>>
+TAG44
+ <RETURN TEM6>
+ <DEAD TEM6>
+PHRASE24
+ <EQUAL? TEM6 'AND - PHRASE46>
+ <RESTL FRM4 1 = LN7 (TYPE LIST)>
+ <DEAD FRM4>
+ <CHTYPE LN7 <TYPE-CODE LIST> = LN7>
+ <LOOP>
+MAP48
+ <INTGO>
+ <EMPL? LN7 + MAPAP51>
+ <NTHL LN7 1 = TEM6>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH TEM6>
+ <DEAD TEM6>
+ <CALL '\1aSTRUCTYP 1 = TEM6>
+ <TYPE? TEM6 <TYPE-CODE FALSE> - MAPAP51>
+ <RESTL LN7 1 = LN7 (TYPE LIST)>
+ <JUMP + MAP48>
+MAPAP51
+ <RETURN TEM6>
+ <DEAD TEM6>
+PHRASE46
+ <TYPE? TEM6 <TYPE-CODE ATOM> + TAG63>
+ <RETURN %<>>
+TAG63
+ <NTHR TEM6 5 = LN7 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG65)>
+ <TYPE? LN7 <TYPE-CODE FALSE> - TAG65>
+ <DEAD LN7>
+ <RETURN %<>>
+TAG65
+ <FRAME '\1aMTYPR>
+ <PUSH TEM6>
+ <DEAD TEM6>
+ <CALL '\1aMTYPR 1 = TEM6>
+PHRASE61
+ <RETURN TEM6>
+ <DEAD TEM6>
+ <END \1aPRIMHK>
+"\f"
+
+#WORD *13605243771*
+<GFCN \1aTYPESAME ("VALUE" <OR ATOM FALSE> ANY ANY) T14 T25>
+ <TEMP TEMP7 TEMP16 TEMP19:FRAME>
+ <INTGO>
+ <FRAME '\1aISTYPE?>
+ <PUSH T14>
+ <DEAD T14>
+ <CALL '\1aISTYPE? 1 = T14>
+ <TYPE? T14 <TYPE-CODE FALSE> + TAG10>
+ <FRAME '\1aISTYPE?>
+ <PUSH T25>
+ <DEAD T25>
+ <CALL '\1aISTYPE? 1 = T25>
+ <VEQUAL? T14 T25 - TAG10>
+ <RETURN 'T>
+TAG10
+ <SET TEMP7 T14>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG21>
+ <SET TEMP7 T25>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG21>
+ <FRAME '\1aGETPROP>
+ <PUSH T14>
+ <PUSH 'ALT-DECL>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEMP7>
+ <CFRAME = TEMP16 (TYPE FRAME)>
+ <EQUAL? TEMP16 TEMP7 - TAG17>
+ <DEAD TEMP16>
+ <SET TEMP7 T14>
+ <DEAD T14>
+TAG17
+ <FRAME '\1aGETPROP>
+ <PUSH T25>
+ <PUSH 'ALT-DECL>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEMP16>
+ <CFRAME = TEMP19 (TYPE FRAME)>
+ <EQUAL? TEMP19 TEMP16 - TAG20>
+ <DEAD TEMP19>
+ <SET TEMP16 T25>
+ <DEAD T25>
+TAG20
+ <EQUAL? TEMP7 TEMP16 - TAG13>
+ <DEAD TEMP7 TEMP16>
+ <RETURN 'T>
+TAG13
+ <SET TEMP7 %<> (TYPE FALSE)>
+TAG21
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aTYPESAME>
+#WORD *21237253351*
+<GFCN \1aISTYPE-GOOD? ("VALUE" <OR ATOM FALSE> ANY "OPTIONAL" ANY) TYP6 STRICT7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP9 TEMP16 TEMP17>
+ <INTGO>
+ <FRAME '\1aISTYPE?>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <PUSH STRICT7>
+ <DEAD STRICT7>
+ <CALL '\1aISTYPE? 2 = TYP6>
+ <SET TEMP9 TYP6>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL8>
+ <FRAME '\1aMTYPR>
+ <PUSH TYP6>
+ <CALL '\1aMTYPR 1 = TEMP16>
+ <SET TEMP9 [BYTES STRING LOCD TUPLE FRAME] (TYPE VECTOR)>
+ <TYPE? TEMP16 <TYPE-CODE ATOM> - TAG12>
+ <LOOP (TEMP16 VALUE) (TEMP9 LENGTH VALUE)>
+TAG13
+ <NTHUV TEMP9 1 = TEMP17>
+ <VEQUAL? TEMP17 TEMP16 + TAG11>
+ <DEAD TEMP17>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <EMPUV? TEMP9 - TAG13>
+ <JUMP + TAG12>
+TAG11
+ <RETURN %<>>
+TAG12
+ <SET TEMP9 TYP6>
+ <DEAD TYP6>
+BOOL8
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aISTYPE-GOOD?>
+#WORD *332765412*
+<GFCN \1aTOP-TYPE ("VALUE" ANY ANY) TYP4>
+ <TEMP TEMP9 TEMP13>
+ <INTGO>
+ <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE7>
+ <NTHR TYP4 5 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE7)>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
+ <DEAD TEMP9>
+ <SET TEMP9 [STRUCTURED APPLICABLE ANY LOCATIVE] (TYPE VECTOR)>
+ <LOOP (TYP4 VALUE) (TEMP9 LENGTH VALUE)>
+TAG11
+ <NTHUV TEMP9 1 = TEMP13>
+ <VEQUAL? TEMP13 TYP4 + PHRASE7>
+ <DEAD TEMP13>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <EMPUV? TEMP9 - TAG11>
+ <FRAME '\1aDECL-GET>
+ <PUSH TYP4>
+ <PUSH TYP4>
+ <DEAD TYP4>
+ <CALL '\1aDECL-GET 2 = TYP4>
+PHRASE7
+ <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE16>
+ <RETURN TYP4>
+ <DEAD TYP4>
+PHRASE16
+ <TYPE? TYP4 <TYPE-CODE FORM> + TAG19>
+ <TYPE? TYP4 <TYPE-CODE SEGMENT> + TAG19>
+ <RETURN %<>>
+TAG19
+ <SET TEMP13 TYP4>
+ <SET TEMP9 1 (TYPE FIX)>
+ <LOOP (TEMP13 VALUE) (TEMP9 VALUE)>
+TAG24
+ <EMPL? TEMP13 + TAG22>
+ <SUB TEMP9 1 = TEMP9 (TYPE FIX)>
+ <LESS? TEMP9 0 + TAG21>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + TAG24>
+TAG22
+ <RETURN %<>>
+TAG21
+ <NTHL TYP4 1 = TEMP9>
+ <EQUAL? TEMP9 'OR - PHRASE27>
+ <RESTL TYP4 1 = TEMP9 (TYPE LIST)>
+ <DEAD TYP4>
+ <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
+ <SET TEMP13 0 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <LOOP>
+MAP29
+ <INTGO>
+ <EMPL? TEMP9 + MAP28>
+ <FRAME '\1aTOP-TYPE>
+ <NTHL TEMP9 1 = STACK>
+ <CALL '\1aTOP-TYPE 1 = STACK>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <JUMP + MAP29>
+MAP28
+ <CALL '\1aTYPE-MERGE TEMP13 = TEMP9>
+ <DEAD TEMP13>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE27
+ <EQUAL? TEMP9 'NOT - PHRASE34>
+ <RETURN 'ANY>
+PHRASE34
+ <EQUAL? TEMP9 'QUOTE - PHRASE35>
+ <FRAME '\1aTYPE>
+ <RESTL TYP4 1 = TEMP9 (TYPE LIST)>
+ <DEAD TYP4>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aTYPE 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE35
+ <EQUAL? TEMP9 'PRIMTYPE - PHRASE37>
+ <RETURN TYP4>
+ <DEAD TYP4>
+PHRASE37
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aTOP-TYPE>
+#WORD *15143766017*
+<GFCN \1aPRIMITIVE-TYPE ("VALUE" ANY ANY) TYP4>
+ <TEMP TEMP11 TEMP15>
+ <INTGO>
+ <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE9>
+ <NTHR TYP4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE9)>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE9>
+ <DEAD TEMP11>
+ <SET TEMP11 [STRUCTURED APPLICABLE ANY] (TYPE VECTOR)>
+ <LOOP (TYP4 VALUE) (TEMP11 LENGTH VALUE)>
+TAG13
+ <NTHUV TEMP11 1 = TEMP15>
+ <VEQUAL? TEMP15 TYP4 + PHRASE9>
+ <DEAD TEMP15>
+ <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
+ <EMPUV? TEMP11 - TAG13>
+ <FRAME '\1aDECL-GET>
+ <PUSH TYP4>
+ <PUSH TYP4>
+ <DEAD TYP4>
+ <CALL '\1aDECL-GET 2 = TYP4>
+PHRASE9
+ <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE18>
+ <NTHR TYP4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE20)>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE20>
+ <FRAME '\1aGC-PRIMTYPE>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <CALL '\1aGC-PRIMTYPE 1 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE20
+ <RETURN TYP4>
+ <DEAD TYP4>
+PHRASE18
+ <TYPE? TYP4 <TYPE-CODE FORM> + TAG27>
+ <TYPE? TYP4 <TYPE-CODE SEGMENT> + TAG27>
+ <RETURN %<>>
+TAG27
+ <SET TEMP15 TYP4>
+ <SET TEMP11 1 (TYPE FIX)>
+ <LOOP (TEMP15 VALUE) (TEMP11 VALUE)>
+TAG32
+ <EMPL? TEMP15 + TAG30>
+ <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
+ <LESS? TEMP11 0 + TAG29>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <JUMP + TAG32>
+TAG30
+ <RETURN %<>>
+TAG29
+ <NTHL TYP4 1 = TEMP11>
+ <EQUAL? TEMP11 'OR - PHRASE35>
+ <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
+ <DEAD TYP4>
+ <CHTYPE TEMP11 <TYPE-CODE LIST> = TEMP11>
+ <SET TEMP15 0 (TYPE FIX)>
+ <FRAME '\1aTYPE-MERGE>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPL? TEMP11 + MAP36>
+ <FRAME '\1aPRIMITIVE-TYPE>
+ <NTHL TEMP11 1 = STACK>
+ <CALL '\1aPRIMITIVE-TYPE 1 = STACK>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <JUMP + MAP37>
+MAP36
+ <CALL '\1aTYPE-MERGE TEMP15 = TEMP11>
+ <DEAD TEMP15>
+ <TYPE? TEMP11 <TYPE-CODE ATOM> - PHRASE43>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE43
+ <RETURN 'ANY>
+PHRASE35
+ <EQUAL? TEMP11 'NOT - PHRASE45>
+ <RETURN 'ANY>
+PHRASE45
+ <EQUAL? TEMP11 'QUOTE - PHRASE46>
+ <FRAME '\1aPRIMTYPE>
+ <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
+ <DEAD TYP4>
+ <NTHL TEMP11 1 = STACK>
+ <DEAD TEMP11>
+ <CALL '\1aPRIMTYPE 1 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE46
+ <EQUAL? TEMP11 'PRIMTYPE - PHRASE48>
+ <DEAD TEMP11>
+ <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
+ <DEAD TYP4>
+ <NTHL TEMP11 1 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE48
+ <FRAME '\1aPRIMITIVE-TYPE>
+ <NTHL TYP4 1 = STACK>
+ <DEAD TYP4>
+ <CALL '\1aPRIMITIVE-TYPE 1 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPRIMITIVE-TYPE>
+#WORD *21271233255*
+<GFCN \1aISTYPE? ("VALUE" <OR ATOM FALSE> ANY "OPTIONAL" ANY) TYP6 STRICT7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP17 TEMP21>
+ <INTGO>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <TYPE? STRICT7 <TYPE-CODE FALSE> - PHRASE14>
+ <TYPE? TYP6 <TYPE-CODE FORM> + TAG16>
+ <TYPE? TYP6 <TYPE-CODE SEGMENT> - PHRASE14>
+TAG16
+ <EMPL? TYP6 + PHRASE14>
+ <NTHL TYP6 1 = TEMP17>
+ <EQUAL? TEMP17 'OR - PHRASE14>
+ <DEAD TEMP17>
+ <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
+ <CHTYPE TEMP17 <TYPE-CODE LIST> = TEMP17>
+ <EMPL? TEMP17 + PHRASE14>
+ <LOOP (TEMP17 VALUE)>
+TAG19
+ <NTHL TEMP17 1 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE ATOM> - TAG20>
+ <VEQUAL? TEMP21 'UNBOUND + TAG18>
+ <DEAD TEMP21>
+TAG20
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP17 - TAG19>
+ <JUMP + PHRASE14>
+TAG18
+ <FRAME '\1aTYPE-AND>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <PUSH <NOT UNBOUND>>
+ <CALL '\1aTYPE-AND 2 = TYP6>
+PHRASE14
+ <TYPE? TYP6 <TYPE-CODE FORM> + TAG25>
+ <TYPE? TYP6 <TYPE-CODE SEGMENT> - PHRASE47>
+TAG25
+ <EMPL? TYP6 + PHRASE27>
+ <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP17 + PHRASE27>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP17 - PHRASE27>
+ <DEAD TEMP17>
+ <NTHL TYP6 1 = TEMP17>
+ <EQUAL? TEMP17 'QUOTE - PHRASE27>
+ <DEAD TEMP17>
+ <FRAME '\1aTYPE>
+ <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
+ <DEAD TYP6>
+ <NTHL TEMP17 1 = STACK>
+ <DEAD TEMP17>
+ <CALL '\1aTYPE 1 = TYP6>
+ <JUMP + PHRASE47>
+PHRASE27
+ <NTHL TYP6 1 = TEMP17>
+ <EQUAL? TEMP17 'OR - PHRASE30>
+ <DEAD TEMP17>
+ <FRAME '\1aISTYPE?>
+ <SET TEMP21 TYP6>
+ <DEAD TYP6>
+ <RESTL TEMP21 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = STACK>
+ <DEAD TEMP17>
+ <CALL '\1aISTYPE? 1 = TYP6>
+ <RESTL TEMP21 1 = TEMP17 (TYPE LIST)>
+ <DEAD TEMP21>
+ <RESTL TEMP17 1 = TEMP21 (TYPE LIST)>
+ <DEAD TEMP17>
+ <CHTYPE TEMP21 <TYPE-CODE LIST> = TEMP21>
+ <LOOP>
+MAP33
+ <INTGO>
+ <EMPL? TEMP21 + PHRASE47>
+ <NTHL TEMP21 1 = TEMP17>
+ <FRAME '\1aISTYPE?>
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <CALL '\1aISTYPE? 1 = TEMP17>
+ <EQUAL? TYP6 TEMP17 + PHRASE45>
+ <DEAD TEMP17>
+ <SET TYP6 %<> (TYPE FALSE)>
+ <JUMP + PHRASE47>
+PHRASE45
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <JUMP + MAP33>
+PHRASE30
+ <NTHL TYP6 1 = TYP6>
+PHRASE47
+ <TYPE? TYP6 <TYPE-CODE ATOM> + TAG49>
+ <RETURN %<>>
+TAG49
+ <NTHR TYP6 5 = TEMP21 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE52)>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE52>
+ <DEAD TEMP21>
+ <RETURN TYP6>
+ <DEAD TYP6>
+PHRASE52
+ <FRAME '\1aDECL-GET>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <CALL '\1aDECL-GET 1 = TYP6>
+ <SET TEMP17 TYP6>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aISTYPE?>
+#WORD *21062570142*
+<GFCN \1aDCX ("VALUE" ANY ANY) IT4>
+ <TEMP LN6:FIX TT5>
+ <INTGO>
+ <TYPE? IT4 <TYPE-CODE VECTOR> - PHRASE12>
+ <SET TT5 IT4>
+ <LENUV TT5 = LN6 (TYPE FIX)>
+ <LESS? LN6 2 + PHRASE12 (TYPE FIX)>
+ <VEQUAL? LN6 2 - PHRASE11 (TYPE FIX)>
+ <DEAD LN6>
+ <NTHUV TT5 2 = TT5>
+ <TYPE? TT5 <TYPE-CODE FALSE> - PHRASE18>
+ <JUMP + PHRASE12>
+PHRASE11
+ <FRAME '\1aTYPE-MERGE>
+ <SET LN6 0 (TYPE FIX)>
+ <RESTUV TT5 1 = TT5 (TYPE VECTOR)>
+ <LOOP (TT5 VALUE LENGTH) (LN6 VALUE)>
+TAG16
+ <INTGO>
+ <EMPUV? TT5 + TAG13>
+ <NTHUV TT5 1 = STACK>
+ <RESTUV TT5 1 = TT5 (TYPE VECTOR)>
+ <ADD LN6 1 = LN6 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG13
+ <CALL '\1aTYPE-MERGE LN6 = TT5>
+ <DEAD LN6>
+ <TYPE? TT5 <TYPE-CODE FALSE> - PHRASE18>
+PHRASE12
+ <SET TT5 IT4>
+ <DEAD IT4>
+PHRASE18
+ <RETURN TT5>
+ <DEAD TT5>
+ <END \1aDCX>
+" Define a decl for a given quoted object for maximum winnage."
+
+"\f"
+
+#WORD *5565041142*
+<GFCN \1aGEN-DECL ("VALUE" <OR ATOM SEGMENT> ANY) OBJ4>
+ <TEMP TEMP7 CNT20:FIX TEMP23 FRM21:SEGMENT FRME24 TT25>
+ <INTGO>
+ <EQUAL? OBJ4 %<> - PHRASE6>
+ <RETURN 'BOOL-FALSE>
+PHRASE6
+ <MONAD? OBJ4 - TAG10>
+ <SET TEMP7 'T (TYPE ATOM)>
+ <JUMP + TAG12>
+TAG10
+ <SET TEMP7 %<> (TYPE FALSE)>
+TAG12
+ <VEQUAL? TEMP7 0 - TAG14>
+ <DEAD TEMP7>
+ <FRAME '\1aAPPLICABLE?>
+ <PUSH OBJ4>
+ <CALL '\1aAPPLICABLE? 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> - TAG14>
+ <DEAD TEMP7>
+ <TYPE? OBJ4 <TYPE-CODE STRING> + TAG14>
+ <TYPE? OBJ4 <TYPE-CODE BYTES> - PHRASE8>
+TAG14
+ <FRAME '\1aTYPE>
+ <PUSH OBJ4>
+ <DEAD OBJ4>
+ <CALL '\1aTYPE 1 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE8
+ <FRAME '\1aGEN-DECL>
+ <NTH1 OBJ4 = STACK>
+ <CALL '\1aGEN-DECL 1 = TEMP7>
+ <SET CNT20 1 (TYPE FIX)>
+ <FRAME '\1aTYPE>
+ <PUSH OBJ4>
+ <CALL '\1aTYPE 1 = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <CHTYPE TEMP23 <TYPE-CODE SEGMENT> = FRM21>
+ <DEAD TEMP23>
+ <SET FRME24 FRM21>
+ <LOOP>
+AGAIN27
+ <INTGO>
+ <REST1 OBJ4 = OBJ4>
+ <EMPTY? OBJ4 - PHRASE29>
+ <GRTR? CNT20 1 - PHRASE31 (TYPE FIX)>
+ <PUSH CNT20>
+ <DEAD CNT20>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <PUTREST FRME24 TEMP23>
+ <DEAD FRME24 TEMP23>
+ <RETURN FRM21>
+ <DEAD FRM21>
+PHRASE31
+ <CONS TEMP7 () = TEMP23>
+ <DEAD TEMP7>
+ <PUTREST FRME24 TEMP23>
+ <DEAD FRME24 TEMP23>
+ <RETURN FRM21>
+ <DEAD FRM21>
+PHRASE29
+ <FRAME '\1a=?>
+ <FRAME '\1aGEN-DECL>
+ <NTH1 OBJ4 = STACK>
+ <CALL '\1aGEN-DECL 1 = TT25>
+ <PUSH TT25>
+ <PUSH TEMP7>
+ <CALL '\1a=? 2 = TEMP23>
+ <VEQUAL? TEMP23 0 + PHRASE36>
+ <DEAD TEMP23>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE36>
+ <ADD CNT20 1 = CNT20 (TYPE FIX)>
+ <JUMP + AGAIN27>
+PHRASE36
+ <GRTR? CNT20 1 - PHRASE42 (TYPE FIX)>
+ <PUSH CNT20>
+ <DEAD CNT20>
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP23>
+ <CONS TEMP23 () = TEMP23>
+ <PUTREST FRME24 TEMP23>
+ <DEAD FRME24>
+ <SET FRME24 TEMP23>
+ <DEAD TEMP23>
+ <JUMP + PHRASE46>
+PHRASE42
+ <CONS TEMP7 () = TEMP23>
+ <DEAD TEMP7>
+ <PUTREST FRME24 TEMP23>
+ <DEAD FRME24>
+ <SET FRME24 TEMP23>
+ <DEAD TEMP23>
+PHRASE46
+ <SET TEMP7 TT25>
+ <DEAD TT25>
+ <SET CNT20 1 (TYPE FIX)>
+ <JUMP + AGAIN27>
+ <END \1aGEN-DECL>
+"\f"
+
+#WORD *1735472143*
+<GFCN \1aREST-DECL ("VALUE" ANY ANY FIX) DC4 N5>
+ <TEMP TT6 TEMP23 TEMP21 TEMP25 D26>
+ <INTGO>
+ <TYPE? DC4 <TYPE-CODE FORM> + TAG10>
+ <TYPE? DC4 <TYPE-CODE SEGMENT> - PHRASE9>
+TAG10
+ <NTHL DC4 1 = TT6>
+ <EQUAL? TT6 'OR + BOOL13>
+ <EQUAL? TT6 'AND - PHRASE12>
+BOOL13
+ <SET TEMP23 () (TYPE LIST)>
+ <SET TEMP21 () (TYPE LIST)>
+ <RESTL DC4 1 = TEMP25 (TYPE LIST)>
+ <DEAD DC4>
+ <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
+ <LOOP>
+MAP15
+ <INTGO>
+ <EMPL? TEMP25 + MAPAP18>
+ <NTHL TEMP25 1 = D26>
+ <FRAME '\1aREST-DECL>
+ <PUSH D26>
+ <DEAD D26>
+ <PUSH N5>
+ <CALL '\1aREST-DECL 2 = D26>
+ <EQUAL? D26 'ANY - PHRASE34>
+ <EQUAL? TT6 'OR - MAP16>
+ <CONS 'ANY () = TEMP23>
+ <JUMP + MAPAP18>
+PHRASE34
+ <CONS D26 () = D26 (TYPE LIST)>
+ <EMPL? TEMP23 - TAG38>
+ <SET TEMP23 D26 (TYPE LIST)>
+ <JUMP + TAG39>
+TAG38
+ <PUTREST TEMP21 D26>
+ <DEAD TEMP21>
+TAG39
+ <SET TEMP21 D26 (TYPE LIST)>
+ <DEAD D26>
+MAP16
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <JUMP + MAP15>
+MAPAP18
+ <CONS TT6 TEMP23 = TEMP25>
+ <DEAD TT6 TEMP23>
+ <CHTYPE TEMP25 <TYPE-CODE FORM> = TT6>
+ <DEAD TEMP25>
+ <RESTL TT6 1 = TEMP25 (TYPE LIST)>
+ <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
+ <EMPL? TEMP25 - PHRASE41 (TYPE LIST)>
+ <DEAD TEMP25>
+ <RETURN 'ANY>
+PHRASE41
+ <RESTL TT6 1 = TEMP23 (TYPE LIST)>
+ <RESTL TEMP23 1 = D26 (TYPE LIST)>
+ <DEAD TEMP23>
+ <CHTYPE D26 <TYPE-CODE LIST> = D26>
+ <EMPL? D26 - PHRASE42 (TYPE LIST)>
+ <DEAD D26>
+ <RESTL TT6 1 = TEMP23 (TYPE LIST)>
+ <DEAD TT6>
+ <NTHL TEMP23 1 = TEMP25>
+ <DEAD TEMP23>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+PHRASE42
+ <RETURN TT6>
+ <DEAD TT6>
+PHRASE12
+ <EQUAL? TT6 'NOT - PHRASE45>
+ <RETURN 'ANY>
+PHRASE45
+ <EQUAL? TT6 'PRIMTYPE - PHRASE46>
+ <VEQUAL? N5 0 - PHRASE48 (TYPE FIX)>
+ <RETURN DC4>
+ <DEAD DC4>
+PHRASE48
+ <FRAME '\1aANY-PAT>
+ <PUSH N5>
+ <DEAD N5>
+ <CALL '\1aANY-PAT 1 = TEMP23>
+ <CONS DC4 TEMP23 = TEMP23>
+ <DEAD DC4>
+ <CHTYPE TEMP23 <TYPE-CODE FORM> = TEMP25>
+ <DEAD TEMP23>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+PHRASE46
+ <FRAME '\1aFOSE>
+ <TYPE? DC4 <TYPE-CODE SEGMENT> - TAG56>
+ <SET TEMP23 'SEGMENT (TYPE ATOM)>
+ <JUMP + TAG57>
+TAG56
+ <SET TEMP23 %<> (TYPE FALSE)>
+TAG57
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <FRAME '\1aSTRUCTYP>
+ <PUSH TT6>
+ <DEAD TT6>
+ <CALL '\1aSTRUCTYP 1 = TT6>
+ <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE59>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH TT6>
+ <DEAD TT6>
+ <CALL '\1aFORM 2 = TEMP23>
+ <JUMP + PHRASE62>
+PHRASE59
+ <SET TEMP23 'STRUCTURED (TYPE ATOM)>
+PHRASE62
+ <PUSH TEMP23>
+ <DEAD TEMP23>
+ <SET D26 2 (TYPE FIX)>
+ <FRAME '\1aANY-PAT>
+ <PUSH N5>
+ <DEAD N5>
+ <CALL '\1aANY-PAT 1 = TEMP23>
+ <LOOP (TEMP23 VALUE) (D26 VALUE)>
+TAG64
+ <INTGO>
+ <EMPL? TEMP23 + TAG54>
+ <NTHL TEMP23 1 = STACK>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <ADD D26 1 = D26 (TYPE FIX)>
+ <JUMP + TAG64>
+TAG54
+ <RESTL DC4 1 = TEMP23 (TYPE LIST)>
+ <DEAD DC4>
+ <CHTYPE TEMP23 <TYPE-CODE LIST> = TEMP23>
+ <LOOP (TEMP23 VALUE) (D26 VALUE)>
+TAG66
+ <INTGO>
+ <EMPL? TEMP23 + TAG65>
+ <NTHL TEMP23 1 = STACK>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <ADD D26 1 = D26 (TYPE FIX)>
+ <JUMP + TAG66>
+TAG65
+ <CALL '\1aFOSE D26 = TEMP25>
+ <DEAD D26>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+PHRASE9
+ <FRAME '\1aSTRUCTYP>
+ <PUSH DC4>
+ <DEAD DC4>
+ <CALL '\1aSTRUCTYP 1 = TT6>
+ <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE68>
+ <VEQUAL? N5 0 - PHRASE71 (TYPE FIX)>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH TT6>
+ <DEAD TT6>
+ <CALL '\1aFORM 2 = TEMP25>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+PHRASE71
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <PUSH TT6>
+ <DEAD TT6>
+ <CALL '\1aFORM 2 = D26>
+ <CONS D26 () = D26>
+ <FRAME '\1aANY-PAT>
+ <PUSH N5>
+ <DEAD N5>
+ <CALL '\1aANY-PAT 1 = TT6>
+ <PUTREST D26 TT6>
+ <DEAD TT6>
+ <CHTYPE D26 <TYPE-CODE FORM> = TEMP25>
+ <DEAD D26>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+PHRASE68
+ <VEQUAL? N5 0 - PHRASE81 (TYPE FIX)>
+ <RETURN 'STRUCTURED>
+PHRASE81
+ <FRAME '\1aANY-PAT>
+ <PUSH N5>
+ <DEAD N5>
+ <CALL '\1aANY-PAT 1 = TT6>
+ <CONS 'STRUCTURED TT6 = TT6>
+ <CHTYPE TT6 <TYPE-CODE FORM> = TEMP25>
+ <DEAD TT6>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+ <END \1aREST-DECL>\r\r
+#WORD *11561334011*
+<GFCN \1aANY-PAT ("VALUE" LIST FIX) N4>
+ <TEMP TEMP9>
+ <INTGO>
+ <GRTR? N4 0 + PHRASE6 (TYPE FIX)>
+ <RETURN ()>
+PHRASE6
+ <VEQUAL? N4 1 - PHRASE10 (TYPE FIX)>
+ <CONS 'ANY () = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE10
+ <PUSH N4>
+ <DEAD N4>
+ <PUSH 'ANY>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP9>
+ <CONS TEMP9 () = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aANY-PAT>
+" TYPE-OK? are two type patterns compatible. If the patterns
+ don't parse, send user a message."
+
+#WORD *34163567202*
+<GFCN \1aTYPE-OK? ("VALUE" ANY ANY ANY) P14 P25>
+ <TEMP TEMP10>
+ <INTGO>
+ <EQUAL? P14 'NO-RETURN + BOOL9>
+ <EQUAL? P25 'NO-RETURN - PHRASE8>
+BOOL9
+ <RETURN 'NO-RETURN>
+PHRASE8
+ <FRAME '\1aTYPE-AND>
+ <PUSH P14>
+ <PUSH P25>
+ <CALL '\1aTYPE-AND 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE11>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE11
+ <EMPL? TEMP10 - PHRASE13 (TYPE FALSE)>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE13
+ <FRAME '\1aCOMPILE-ERROR>
+ <NTHL TEMP10 1 = STACK>
+ <DEAD TEMP10>
+ <PUSH P14>
+ <DEAD P14>
+ <PUSH P25>
+ <DEAD P25>
+ <CALL '\1aCOMPILE-ERROR 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aTYPE-OK?>
+" TYPE-ATOM-OK? does an atom's initial value agree with its DECL?"
+
+#WORD *4017240130*
+<GFCN \1aTYPE-ATOM-OK? ("VALUE" ANY ANY ANY ATOM) P14 P25 ATM6>
+ <TEMP TEMP8>
+ <INTGO>
+ <FRAME '\1aTYPE-OK?>
+ <PUSH P14>
+ <DEAD P14>
+ <PUSH P25>
+ <DEAD P25>
+ <CALL '\1aTYPE-OK? 2 = TEMP8>
+ <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
+ <FRAME '\1aCOMPILE-ERROR>
+ <PUSH "Atom's intial value disagrees with DECL">
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <CALL '\1aCOMPILE-ERROR 2 = TEMP8>
+PHRASE10
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aTYPE-ATOM-OK?>
+" Merge a group of type specs into an OR."
+
+"\f"
+
+#WORD *14261474361*
+<GFCN
\1aTYPE-MERGE ("VALUE" ANY "TUPLE" <PRIMTYPE VECTOR>)>
+ <MAKTUP TYPS4 ORS11 TEMP17 = TYPS4>
+ <INTGO>
+ <EMPUV? TYPS4 - PHRASE6 (TYPE TUPLE)>
+ <RETURN %<>>
+PHRASE6
+ <NTHUV TYPS4 1 = ORS11>
+ <LOOP>
+AGAIN12
+ <INTGO>
+ <RESTUV TYPS4 1 = TYPS4 (TYPE VECTOR)>
+ <CHTYPE TYPS4 <TYPE-CODE VECTOR> = TYPS4>
+ <EMPUV? TYPS4 - PHRASE14 (TYPE VECTOR)>
+ <RETURN ORS11>
+ <DEAD ORS11>
+PHRASE14
+ <NTHUV TYPS4 1 = TEMP17>
+ <EQUAL? TEMP17 'NO-RETURN + AGAIN12>
+ <DEAD TEMP17>
+ <EQUAL? ORS11 'NO-RETURN - PHRASE18>
+ <NTHUV TYPS4 1 = ORS11>
+ <JUMP + AGAIN12>
+PHRASE18
+ <FRAME '\1aTMERGE>
+ <PUSH ORS11>
+ <DEAD ORS11>
+ <NTHUV TYPS4 1 = STACK>
+ <CALL '\1aTMERGE 2 = ORS11>
+ <JUMP + AGAIN12>
+ <END \1aTYPE-MERGE>
+#WORD *7635721237*
+<GFCN
\1aPUT-IN ("VALUE" LIST <PRIMTYPE LIST> ANY) LST4 ELE5>
+ <TEMP TEMP10 TEMP12 TEMP23 L125 A33:LIST TEMP39 B34>
+ <INTGO>
+ <TYPE? ELE5 <TYPE-CODE FORM> + TAG9>
+ <TYPE? ELE5 <TYPE-CODE SEGMENT> - PHRASE7>
+TAG9
+ <EMPL? ELE5 + PHRASE7>
+ <NTHL ELE5 1 = TEMP10>
+ <EQUAL? TEMP10 'OR - PHRASE7>
+ <DEAD TEMP10>
+ <SET TEMP12 0 (TYPE FIX)>
+ <RESTL ELE5 1 = TEMP10 (TYPE LIST)>
+ <DEAD ELE5>
+ <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
+ <LOOP (TEMP10 VALUE) (TEMP12 VALUE)>
+TAG13
+ <INTGO>
+ <EMPL? TEMP10 + TAG11>
+ <NTHL TEMP10 1 = STACK>
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG13>
+TAG11
+ <LIST TEMP12 = ELE5 (TYPE LIST)>
+ <DEAD TEMP12>
+ <JUMP + PHRASE15>
+PHRASE7
+ <CONS ELE5 () = ELE5>
+PHRASE15
+ <SET TEMP23 () (TYPE LIST)>
+ <SET TEMP10 () (TYPE LIST)>
+ <CHTYPE LST4 <TYPE-CODE LIST> = TEMP12>
+ <DEAD LST4>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPL? TEMP12 + MAPAP20>
+ <NTHL TEMP12 1 = L125>
+ <EMPL? ELE5 + PHRASE30 (TYPE LIST)>
+ <SET A33 ELE5>
+ <LOOP>
+AGAIN35
+ <INTGO>
+ <FRAME '\1aTMATCH>
+ <NTHL A33 1 = STACK>
+ <PUSH L125>
+ <CALL '\1aTMATCH 2 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD TEMP39>
+ <FRAME '\1aTMERGE>
+ <NTHL A33 1 = STACK>
+ <PUSH L125>
+ <DEAD L125>
+ <CALL '\1aTMERGE 2 = L125>
+ <VEQUAL? A33 ELE5 - PHRASE42>
+ <RESTL ELE5 1 = ELE5 (TYPE LIST)>
+ <JUMP + PHRASE30>
+PHRASE42
+ <RESTL A33 1 = TEMP39 (TYPE LIST)>
+ <DEAD A33>
+ <PUTREST B34 TEMP39>
+ <DEAD TEMP39>
+ <JUMP + PHRASE30>
+PHRASE37
+ <SET B34 A33>
+ <DEAD A33>
+ <RESTL B34 1 = A33 (TYPE LIST)>
+ <EMPL? A33 - AGAIN35 (TYPE LIST)>
+PHRASE30
+ <CONS L125 () = L125 (TYPE LIST)>
+ <EMPL? TEMP23 - TAG46>
+ <SET TEMP23 L125 (TYPE LIST)>
+ <JUMP + TAG47>
+TAG46
+ <PUTREST TEMP10 L125>
+ <DEAD TEMP10>
+TAG47
+ <SET TEMP10 L125 (TYPE LIST)>
+ <DEAD L125>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <JUMP + MAP17>
+MAPAP20
+ <SET LST4 TEMP23>
+ <DEAD TEMP23>
+ <FRAME '\1aLSORT>
+ <EMPL? ELE5 - PHRASE50 (TYPE LIST)>
+ <SET TEMP12 LST4>
+ <DEAD LST4>
+ <JUMP + PHRASE51>
+PHRASE50
+ <SET L125 ELE5>
+ <LOOP (L125 VALUE)>
+TAG52
+ <RESTL L125 1 = TEMP39 (TYPE LIST)>
+ <EMPL? TEMP39 + TAG53>
+ <SET L125 TEMP39>
+ <DEAD TEMP39>
+ <JUMP + TAG52>
+TAG53
+ <PUTREST L125 LST4>
+ <DEAD L125 LST4>
+ <SET TEMP12 ELE5>
+ <DEAD ELE5>
+PHRASE51
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aLSORT 1 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aPUT-IN>
+#WORD *31130553411*
+<GFCN \1aORSORT ("VALUE" <FORM ANY ANY> <FORM ANY ANY>) F4>
+ <TEMP TEMP6:LIST>
+ <INTGO>
+ <FRAME '\1aLSORT>
+ <RESTL F4 1 = TEMP6 (TYPE LIST)>
+ <CHTYPE TEMP6 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP6>
+ <CALL '\1aLSORT 1 = TEMP6>
+ <PUTREST F4 TEMP6>
+ <DEAD TEMP6>
+ <RETURN F4>
+ <DEAD F4>
+ <END \1aORSORT>
+#WORD *12105151366*
+<GFCN \1aLSORT ("VALUE" LIST LIST) L4>
+ <TEMP (M5:LIST ()) (B6:LIST ()) (TMP7:LIST ()) (IT8 ()) (N9:FIX 0) A211 TEMP43 TEMP46 TEMP47>
+ <INTGO>
+ <LENL L4 = N9 (TYPE FIX)>
+ <LESS? N9 2 - PHRASE17 (TYPE FIX)>
+ <RETURN L4>
+ <DEAD L4>
+PHRASE17
+ <DIV N9 2 = IT8 (TYPE FIX)>
+ <DEAD N9>
+ <SUB IT8 1 = IT8 (TYPE FIX)>
+ <SET TMP7 L4>
+ <GRTR? IT8 0 - RESTL21 (TYPE FIX)>
+ <LOOP (TMP7 VALUE) (IT8 VALUE)>
+RESTL19
+ <INTGO>
+ <RESTL TMP7 1 = TMP7 (TYPE LIST)>
+ <SUB IT8 1 = IT8 (TYPE FIX)>
+ <GRTR? IT8 0 + RESTL19 (TYPE FIX)>
+RESTL21
+ <RESTL TMP7 1 = B6 (TYPE LIST)>
+ <PUTREST TMP7 ()>
+ <DEAD TMP7>
+ <FRAME '\1aLSORT>
+ <PUSH L4>
+ <DEAD L4>
+ <CALL '\1aLSORT 1 = L4>
+ <FRAME '\1aLSORT>
+ <PUSH B6>
+ <DEAD B6>
+ <CALL '\1aLSORT 1 = B6>
+ <SET TMP7 () (TYPE LIST)>
+ <LOOP>
+AGAIN25
+ <INTGO>
+ <EMPL? L4 - PHRASE30 (TYPE LIST)>
+ <EMPL? TMP7 - PHRASE29 (TYPE LIST)>
+ <RETURN B6>
+ <DEAD B6>
+PHRASE29
+ <PUTREST TMP7 B6>
+ <DEAD TMP7 B6>
+ <RETURN M5>
+ <DEAD M5>
+PHRASE30
+ <EMPL? B6 - PHRASE34 (TYPE LIST)>
+ <EMPL? TMP7 - PHRASE33 (TYPE LIST)>
+ <RETURN L4>
+ <DEAD L4>
+PHRASE33
+ <PUTREST TMP7 L4>
+ <DEAD TMP7 L4>
+ <RETURN M5>
+ <DEAD M5>
+PHRASE34
+ <NTHL L4 1 = IT8>
+ <NTHL B6 1 = A211>
+ <TYPE? IT8 <TYPE-CODE ATOM> - PHRASE39>
+ <TYPE? A211 <TYPE-CODE ATOM> - PHRASE39>
+ <NTHR IT8 3 = IT8 (RECORD-TYPE ATOM)>
+ <NTHR A211 3 = A211 (RECORD-TYPE ATOM)>
+ <IFCAN "STRCOMP">
+ <STRCOMP IT8 A211 = TEMP43>
+ <ENDIF "STRCOMP">
+ <IFCANNOT "STRCOMP">
+ <LENUS IT8 = TEMP43 (TYPE FIX)>
+ <LENUS A211 = N9 (TYPE FIX)>
+ <LOOP (IT8 VALUE LENGTH) (A211 VALUE LENGTH) (TEMP43 VALUE) (N9 VALUE)>
+TAG48
+ <NTHUS IT8 1 = TEMP46>
+ <NTHUS A211 1 = TEMP47>
+ <VEQUAL? TEMP46 TEMP47 - TAG42>
+ <RESTUS IT8 1 = IT8 (TYPE STRING)>
+ <RESTUS A211 1 = A211 (TYPE STRING)>
+ <SUB N9 1 = N9 (TYPE FIX)>
+ <GRTR? N9 0 - TAG49 (TYPE FIX)>
+ <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
+ <GRTR? TEMP43 0 + TAG48 (TYPE FIX)>
+ <SET TEMP43 1 (TYPE FIX)>
+ <JUMP + TAG50>
+TAG49
+ <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
+ <VEQUAL TEMP43 0 - TAG51>
+ <DEAD TEMP43>
+ <SET TEMP43 0 (TYPE FIX)>
+ <JUMP + TAG50>
+TAG51
+ <SET TEMP43 -1 (TYPE FIX)>
+ <JUMP + TAG50>
+TAG42
+ <GRTR? TEMP46 TEMP47 - TAG51>
+ <DEAD TEMP46 TEMP47>
+ <SET TEMP43 1 (TYPE FIX)>
+TAG50
+ <ENDIF "STRCOMP">
+ <LESS? TEMP43 0 - PHRASE37 (TYPE FIX)>
+ <JUMP + COND38>
+PHRASE39
+ <TYPE? IT8 <TYPE-CODE ATOM> + COND38>
+ <TYPE? A211 <TYPE-CODE ATOM> + PHRASE37>
+ <FRAME '\1aFCOMPARE>
+ <PUSH IT8>
+ <DEAD IT8>
+ <PUSH A211>
+ <DEAD A211>
+ <CALL '\1aFCOMPARE 2 = A211>
+ <LESS? A211 0 - PHRASE37 (TYPE FIX)>
+ <DEAD A211>
+COND38
+ <SET IT8 L4>
+ <DEAD L4>
+ <RESTL IT8 1 = L4 (TYPE LIST)>
+ <JUMP + PHRASE59>
+PHRASE37
+ <SET IT8 B6>
+ <DEAD B6>
+ <RESTL IT8 1 = B6 (TYPE LIST)>
+PHRASE59
+ <PUTREST IT8 ()>
+ <EMPL? M5 - PHRASE61 (TYPE LIST)>
+ <SET TMP7 IT8>
+ <DEAD IT8>
+ <SET M5 TMP7>
+ <JUMP + AGAIN25>
+PHRASE61
+ <PUTREST TMP7 IT8>
+ <DEAD TMP7>
+ <SET TMP7 IT8>
+ <DEAD IT8>
+ <JUMP + AGAIN25>
+ <END \1aLSORT>
+"\f"
+
+#WORD *25501672133*
+<GFCN
\1aFCOMPARE ("VALUE" FIX <PRIMTYPE LIST> <PRIMTYPE LIST>) F14 F25>
+ <TEMP L18:FIX L29 TEMP24 TEMP20 TEMP21 E126 E227>
+ <INTGO>
+ <LENL F14 = L18 (TYPE FIX)>
+ <LENL F25 = L29 (TYPE FIX)>
+ <VEQUAL? L18 L29 - PHRASE11 (TYPE FIX)>
+ <TYPE F14 = L18>
+ <TYPE F25 = L29>
+ <VEQUAL? L18 L29 - PHRASE13 (TYPE FIX)>
+ <SET TEMP24 %<> (TYPE FALSE)>
+ <CHTYPE F14 <TYPE-CODE LIST> = TEMP20>
+ <DEAD F14>
+ <CHTYPE F25 <TYPE-CODE LIST> = TEMP21>
+ <DEAD F25>
+ <LOOP>
+MAP15
+ <INTGO>
+ <EMPL? TEMP20 + MAPAP18>
+ <EMPL? TEMP21 + MAPAP18>
+ <NTHL TEMP20 1 = E126>
+ <NTHL TEMP21 1 = E227>
+ <EQUAL? E126 E227 + PHRASE29>
+ <TYPE E126 = L18>
+ <TYPE E227 = L29>
+ <VEQUAL? L18 L29 + PHRASE31 (TYPE FIX)>
+ <LESS? L18 L29 - PHRASE33 (TYPE FIX)>
+ <DEAD L18 L29>
+ <SET TEMP24 -1 (TYPE FIX)>
+ <JUMP + PHRASE53>
+PHRASE33
+ <RETURN 1>
+PHRASE31
+ <TYPE? E126 <TYPE-CODE ATOM> - PHRASE36>
+ <NTHR E126 3 = L29 (RECORD-TYPE ATOM)>
+ <DEAD E126>
+ <NTHR E227 3 = TEMP20 (RECORD-TYPE ATOM)>
+ <DEAD E227>
+ <IFCAN "STRCOMP">
+ <STRCOMP L29 TEMP20 = TEMP24>
+ <ENDIF "STRCOMP">
+ <IFCANNOT "STRCOMP">
+ <LENUS L29 = TEMP24 (TYPE FIX)>
+ <LENUS TEMP20 = L18 (TYPE FIX)>
+ <LOOP (L29 VALUE LENGTH) (TEMP20 VALUE LENGTH) (TEMP24 VALUE) (L18 VALUE)>
+TAG45
+ <NTHUS L29 1 = TEMP21>
+ <NTHUS TEMP20 1 = E126>
+ <VEQUAL? TEMP21 E126 - TAG40>
+ <RESTUS L29 1 = L29 (TYPE STRING)>
+ <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
+ <SUB L18 1 = L18 (TYPE FIX)>
+ <GRTR? L18 0 - TAG46 (TYPE FIX)>
+ <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
+ <GRTR? TEMP24 0 + TAG45 (TYPE FIX)>
+ <SET TEMP24 1 (TYPE FIX)>
+ <JUMP + TAG47>
+TAG46
+ <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
+ <VEQUAL TEMP24 0 - TAG48>
+ <DEAD TEMP24>
+ <SET TEMP24 0 (TYPE FIX)>
+ <JUMP + TAG47>
+TAG48
+ <SET TEMP24 -1 (TYPE FIX)>
+ <JUMP + TAG47>
+TAG40
+ <GRTR? TEMP21 E126 - TAG48>
+ <DEAD TEMP21 E126>
+ <SET TEMP24 1 (TYPE FIX)>
+TAG47
+ <ENDIF "STRCOMP">
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE36
+ <TYPE? E126 <TYPE-CODE VECTOR> - PHRASE49>
+ <FRAME '\1aVCOMP>
+ <PUSH E126>
+ <DEAD E126>
+ <PUSH E227>
+ <DEAD E227>
+ <CALL '\1aVCOMP 2 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE49
+ <FRAME '\1aFCOMPARE>
+ <PUSH E126>
+ <DEAD E126>
+ <PUSH E227>
+ <DEAD E227>
+ <CALL '\1aFCOMPARE 2 = TEMP24>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE29
+ <SET TEMP24 0 (TYPE FIX)>
+PHRASE53
+ <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <JUMP + MAP15>
+MAPAP18
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE13
+ <LESS? L18 L29 - PHRASE54 (TYPE FIX)>
+ <DEAD L18 L29>
+ <RETURN -1>
+PHRASE54
+ <RETURN 1>
+PHRASE11
+ <LESS? L18 L29 - PHRASE56 (TYPE FIX)>
+ <DEAD L18 L29>
+ <RETURN -1>
+PHRASE56
+ <RETURN 1>
+ <END \1aFCOMPARE>
+#WORD *23604411244*
+<GFCN \1aVCOMP ("VALUE" FIX <VECTOR ANY> <VECTOR ANY>) V14 V25>
+ <TEMP L16 L27 TEMP12 E18 E29 TEMP25:STRING>
+ <INTGO>
+ <LENUV V14 = L16 (TYPE FIX)>
+ <LENUV V25 = L27 (TYPE FIX)>
+ <GRTR? L16 L27 - PHRASE11 (TYPE FIX)>
+ <RETURN 1>
+PHRASE11
+ <LESS? L16 L27 - PHRASE13 (TYPE FIX)>
+ <DEAD L16 L27>
+ <RETURN -1>
+PHRASE13
+ <NTHUV V14 1 = E18>
+ <NTHUV V25 1 = E29>
+ <EQUAL? E18 E29 + PHRASE14>
+ <TYPE? E18 <TYPE-CODE FIX> - PHRASE16>
+ <TYPE? E29 <TYPE-CODE FIX> - PHRASE16>
+ <GRTR? E18 E29 - PHRASE19 (TYPE FIX)>
+ <DEAD E18 E29>
+ <RETURN 1>
+PHRASE19
+ <RETURN -1>
+PHRASE16
+ <TYPE? E18 <TYPE-CODE FIX> - PHRASE21>
+ <RETURN 1>
+PHRASE21
+ <TYPE? E29 <TYPE-CODE FIX> - PHRASE22>
+ <RETURN -1>
+PHRASE22
+ <NTHR E18 3 = L27 (RECORD-TYPE ATOM)>
+ <DEAD E18>
+ <NTHR E29 3 = TEMP25 (RECORD-TYPE ATOM)>
+ <DEAD E29>
+ <IFCAN "STRCOMP">
+ <STRCOMP L27 TEMP25 = TEMP12>
+ <ENDIF "STRCOMP">
+ <IFCANNOT "STRCOMP">
+ <LENUS L27 = TEMP12 (TYPE FIX)>
+ <LENUS TEMP25 = L16 (TYPE FIX)>
+ <LOOP (L27 VALUE LENGTH) (TEMP25 VALUE LENGTH) (TEMP12 VALUE) (L16 VALUE)>
+TAG31
+ <NTHUS L27 1 = E18>
+ <NTHUS TEMP25 1 = E29>
+ <VEQUAL? E18 E29 - TAG26>
+ <RESTUS L27 1 = L27 (TYPE STRING)>
+ <RESTUS TEMP25 1 = TEMP25 (TYPE STRING)>
+ <SUB L16 1 = L16 (TYPE FIX)>
+ <GRTR? L16 0 - TAG32 (TYPE FIX)>
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <GRTR? TEMP12 0 + TAG31 (TYPE FIX)>
+ <SET TEMP12 1 (TYPE FIX)>
+ <JUMP + TAG33>
+TAG32
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <VEQUAL TEMP12 0 - TAG34>
+ <DEAD TEMP12>
+ <SET TEMP12 0 (TYPE FIX)>
+ <JUMP + TAG33>
+TAG34
+ <SET TEMP12 -1 (TYPE FIX)>
+ <JUMP + TAG33>
+TAG26
+ <GRTR? E18 E29 - TAG34>
+ <DEAD E18 E29>
+ <SET TEMP12 1 (TYPE FIX)>
+TAG33
+ <ENDIF "STRCOMP">
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE14
+ <SET E18 %<> (TYPE FALSE)>
+ <RESTUV V14 1 = L16 (TYPE VECTOR)>
+ <DEAD V14>
+ <RESTUV V25 1 = L27 (TYPE VECTOR)>
+ <DEAD V25>
+ <LOOP>
+MAP37
+ <INTGO>
+ <EMPUV? L16 + MAPAP40>
+ <EMPUV? L27 + MAPAP40>
+ <NTHUV L16 1 = E18>
+ <NTHUV L27 1 = E29>
+ <EQUAL? E18 E29 - PHRASE51>
+ <SET E18 0 (TYPE FIX)>
+ <JUMP + PHRASE70>
+PHRASE51
+ <TYPE E18 = L16>
+ <TYPE E29 = L27>
+ <VEQUAL? L16 L27 - PHRASE67 (TYPE FIX)>
+ <TYPE? E18 <TYPE-CODE ATOM> - PHRASE54>
+ <NTHR E18 3 = L27 (RECORD-TYPE ATOM)>
+ <DEAD E18>
+ <NTHR E29 3 = TEMP25 (RECORD-TYPE ATOM)>
+ <DEAD E29>
+ <IFCAN "STRCOMP">
+ <STRCOMP L27 TEMP25 = TEMP12>
+ <ENDIF "STRCOMP">
+ <IFCANNOT "STRCOMP">
+ <LENUS L27 = TEMP12 (TYPE FIX)>
+ <LENUS TEMP25 = L16 (TYPE FIX)>
+ <LOOP (L27 VALUE LENGTH) (TEMP25 VALUE LENGTH) (TEMP12 VALUE) (L16 VALUE)>
+TAG63
+ <NTHUS L27 1 = E18>
+ <NTHUS TEMP25 1 = E29>
+ <VEQUAL? E18 E29 - TAG58>
+ <RESTUS L27 1 = L27 (TYPE STRING)>
+ <RESTUS TEMP25 1 = TEMP25 (TYPE STRING)>
+ <SUB L16 1 = L16 (TYPE FIX)>
+ <GRTR? L16 0 - TAG64 (TYPE FIX)>
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <GRTR? TEMP12 0 + TAG63 (TYPE FIX)>
+ <SET TEMP12 1 (TYPE FIX)>
+ <JUMP + TAG65>
+TAG64
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <VEQUAL TEMP12 0 - TAG66>
+ <DEAD TEMP12>
+ <SET TEMP12 0 (TYPE FIX)>
+ <JUMP + TAG65>
+TAG66
+ <SET TEMP12 -1 (TYPE FIX)>
+ <JUMP + TAG65>
+TAG58
+ <GRTR? E18 E29 - TAG66>
+ <DEAD E18 E29>
+ <SET TEMP12 1 (TYPE FIX)>
+TAG65
+ <ENDIF "STRCOMP">
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE54
+ <FRAME '\1aFCOMPARE>
+ <PUSH E18>
+ <DEAD E18>
+ <PUSH E29>
+ <DEAD E29>
+ <CALL '\1aFCOMPARE 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE67
+ <GRTR? L16 L27 - PHRASE69 (TYPE FIX)>
+ <DEAD L16 L27>
+ <RETURN 1>
+PHRASE69
+ <RETURN -1>
+PHRASE70
+ <RESTUV L16 1 = L16 (TYPE VECTOR)>
+ <RESTUV L27 1 = L27 (TYPE VECTOR)>
+ <JUMP + MAP37>
+MAPAP40
+ <RETURN E18>
+ <DEAD E18>
+ <END \1aVCOMP>
+#WORD *24270115767*
+<GFCN \1aCANONICAL-DECL ("VALUE" ANY ANY) D4>
+ <TEMP TEMP12 TEMP15 TEMP20 TEMP22:LIST TEMP24>
+ <INTGO>
+ <FRAME '\1aVTS>
+ <PUSH D4>
+ <DEAD D4>
+ <CALL '\1aVTS 1 = D4>
+ <TYPE? D4 <TYPE-CODE FORM> + TAG9>
+ <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE7>
+TAG9
+ <EMPL? D4 + PHRASE7>
+ <NTHL D4 1 = TEMP12>
+ <EQUAL? TEMP12 'OR - PHRASE11>
+ <DEAD TEMP12>
+ <FRAME '\1aORSORT>
+ <FRAME '\1aFORM>
+ <PUSH 'OR>
+ <SET TEMP15 1 (TYPE FIX)>
+ <SET TEMP12 () (TYPE LIST)>
+ <SET TEMP20 () (TYPE LIST)>
+ <RESTL D4 1 = TEMP22 (TYPE LIST)>
+ <DEAD D4>
+ <CHTYPE TEMP22 <TYPE-CODE LIST> = TEMP22>
+ <LOOP>
+MAP17
+ <INTGO>
+ <EMPL? TEMP22 + MAP16>
+ <FRAME '\1aCANONICAL-DECL>
+ <NTHL TEMP22 1 = STACK>
+ <CALL '\1aCANONICAL-DECL 1 = TEMP24>
+ <CONS TEMP24 () = TEMP24 (TYPE LIST)>
+ <EMPL? TEMP12 - TAG25>
+ <SET TEMP12 TEMP24 (TYPE LIST)>
+ <JUMP + TAG26>
+TAG25
+ <PUTREST TEMP20 TEMP24>
+ <DEAD TEMP20>
+TAG26
+ <SET TEMP20 TEMP24 (TYPE LIST)>
+ <DEAD TEMP24>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <JUMP + MAP17>
+MAP16
+ <LOOP (TEMP12 VALUE) (TEMP15 VALUE)>
+TAG27
+ <INTGO>
+ <EMPL? TEMP12 + TAG14>
+ <NTHL TEMP12 1 = STACK>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG27>
+TAG14
+ <CALL '\1aFORM TEMP15 = STACK>
+ <DEAD TEMP15>
+ <CALL '\1aORSORT 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE11
+ <NTHL D4 1 = TEMP12>
+ <EQUAL? TEMP12 'QUOTE - PHRASE29>
+ <DEAD TEMP12>
+ <FRAME '\1aCANONICAL-DECL>
+ <FRAME '\1aGEN-DECL>
+ <RESTL D4 1 = TEMP22 (TYPE LIST)>
+ <DEAD D4>
+ <NTHL TEMP22 1 = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aGEN-DECL 1 = STACK>
+ <CALL '\1aCANONICAL-DECL 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE29
+ <FRAME '\1aCAN-ELE>
+ <PUSH D4>
+ <DEAD D4>
+ <CALL '\1aCAN-ELE 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE7
+ <RETURN D4>
+ <DEAD D4>
+ <END \1aCANONICAL-DECL>
+#WORD *12602075243*
+<GFCN
\1aCAN-ELE ("VALUE" ANY <PRIMTYPE LIST>) L4>
+ <TEMP (SAME5 %<>) TEMP14 X9 Y10 TEMP25 EL41 ELE42 LAST43 TT7 SAMCNT6 TEMP118:VECTOR X120:VECTOR>
+ <INTGO>
+ <NTHL L4 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - PHRASE12>
+ <DEAD TEMP14>
+ <NTHL L4 1 = TEMP14 (TYPE ATOM)>
+ <NTHR TEMP14 5 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE12)>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP14>
+ <FRAME '\1aDECL-GET>
+ <NTHL L4 1 = STACK (TYPE ATOM)>
+ <CALL '\1aDECL-GET 1 = X9>
+ <TYPE? X9 <TYPE-CODE FALSE> + PHRASE12>
+ <TYPE? X9 <TYPE-CODE FORM> + TAG17>
+ <TYPE? X9 <TYPE-CODE SEGMENT> - PHRASE12>
+TAG17
+ <EMPL? X9 + PHRASE12>
+ <RESTL X9 1 = TEMP14 (TYPE LIST)>
+ <EMPL? TEMP14 + PHRASE12>
+ <DEAD TEMP14>
+ <FRAME '\1a=?>
+ <RESTL X9 1 = TEMP14 (TYPE LIST)>
+ <CHTYPE TEMP14 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP14>
+ <RESTL L4 1 = TEMP14 (TYPE LIST)>
+ <CHTYPE TEMP14 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP14>
+ <CALL '\1a=? 2 = TEMP14>
+ <VEQUAL? TEMP14 0 - BOOL18>
+ <DEAD TEMP14>
+ <FRAME '\1a=?>
+ <FRAME '\1aCANONICAL-DECL>
+ <FRAME '\1aFORM>
+ <PUSH 'PRIMTYPE>
+ <FRAME '\1aMTYPR>
+ <NTHL L4 1 = STACK (TYPE ATOM)>
+ <CALL '\1aMTYPR 1 = STACK>
+ <CALL '\1aFORM 2 = Y10>
+ <CONS Y10 () = TEMP14>
+ <RESTL L4 1 = TEMP25 (TYPE LIST)>
+ <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
+ <PUTREST TEMP14 TEMP25>
+ <DEAD TEMP25>
+ <CHTYPE TEMP14 <TYPE-CODE FORM> = STACK>
+ <DEAD TEMP14>
+ <CALL '\1aCANONICAL-DECL 1 = STACK>
+ <FRAME '\1aCANONICAL-DECL>
+ <RESTL X9 1 = TEMP14 (TYPE LIST)>
+ <DEAD X9>
+ <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
+ <CONS Y10 TEMP14 = TEMP25>
+ <DEAD Y10 TEMP14>
+ <CHTYPE TEMP25 <TYPE-CODE FORM> = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aCANONICAL-DECL 1 = STACK>
+ <CALL '\1a=? 2 = TEMP25>
+ <VEQUAL? TEMP25 0 + PHRASE12>
+ <DEAD TEMP25>
+BOOL18
+ <NTHL L4 1 = TEMP25>
+ <DEAD L4>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+PHRASE12
+ <FRAME '\1aCANONICAL-DECL>
+ <NTHL L4 1 = STACK>
+ <CALL '\1aCANONICAL-DECL 1 = TEMP14>
+ <CONS TEMP14 () = TEMP14>
+ <SET X9 () (TYPE LIST)>
+ <SET TEMP25 () (TYPE LIST)>
+ <RESTL L4 1 = Y10 (TYPE LIST)>
+ <DEAD L4>
+ <CHTYPE Y10 <TYPE-CODE LIST> = Y10>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPL? Y10 + MAPAP33>
+ <SET EL41 Y10>
+ <NTHL EL41 1 = ELE42>
+ <RESTL EL41 1 = EL41 (TYPE LIST)>
+ <EMPL? EL41 - TAG44 (TYPE LIST)>
+ <DEAD EL41>
+ <SET LAST43 'T (TYPE ATOM)>
+ <JUMP + TAG46>
+TAG44
+ <SET LAST43 %<> (TYPE FALSE)>
+TAG46
+ <TYPE? ELE42 <TYPE-CODE VECTOR> - PHRASE48>
+ <LENUV ELE42 = EL41 (TYPE FIX)>
+ <VEQUAL? EL41 2 - PHRASE50 (TYPE FIX)>
+ <DEAD EL41>
+ <NTHUV ELE42 1 = EL41>
+ <TYPE? EL41 <TYPE-CODE FIX> - PHRASE50>
+ <DEAD EL41>
+ <FRAME '\1aCANONICAL-DECL>
+ <NTHUV ELE42 2 = STACK>
+ <CALL '\1aCANONICAL-DECL 1 = TT7>
+ <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE54>
+ <FRAME '\1a=?>
+ <PUSH SAME5>
+ <PUSH TT7>
+ <CALL '\1a=? 2 = EL41>
+ <VEQUAL? EL41 0 + PHRASE54>
+ <DEAD EL41>
+ <NTHUV ELE42 1 = EL41 (TYPE FIX)>
+ <DEAD ELE42>
+ <ADD EL41 SAMCNT6 = SAMCNT6 (TYPE FIX)>
+ <DEAD EL41>
+ <VEQUAL? LAST43 0 + MAP31>
+ <DEAD LAST43>
+ <PUSH SAMCNT6>
+ <PUSH TT7>
+ <DEAD TT7>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = EL41>
+ <JUMP + PHRASE165>
+PHRASE54
+ <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE64>
+ <FRAME '\1aGR-RET>
+ <PUSH SAME5>
+ <DEAD SAME5>
+ <PUSH SAMCNT6>
+ <DEAD SAMCNT6>
+ <CALL '\1aGR-RET 2 = EL41>
+ <JUMP + PHRASE66>
+PHRASE64
+ <SET EL41 %<> (TYPE FALSE)>
+PHRASE66
+ <SET SAME5 TT7>
+ <NTHUV ELE42 1 = SAMCNT6 (TYPE FIX)>
+ <DEAD ELE42>
+ <VEQUAL? LAST43 0 + PHRASE68>
+ <DEAD LAST43>
+ <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE70>
+ <CONS EL41 () = LAST43 (TYPE LIST)>
+ <DEAD EL41>
+ <EMPL? X9 - TAG73>
+ <SET X9 LAST43 (TYPE LIST)>
+ <JUMP + TAG74>
+TAG73
+ <PUTREST TEMP25 LAST43>
+ <DEAD TEMP25>
+TAG74
+ <SET TEMP25 LAST43 (TYPE LIST)>
+ <DEAD LAST43>
+ <FRAME '\1aGR-RET>
+ <PUSH TT7>
+ <DEAD TT7>
+ <PUSH SAMCNT6>
+ <CALL '\1aGR-RET 2 = LAST43>
+ <CONS LAST43 () = LAST43 (TYPE LIST)>
+ <EMPL? X9 - TAG76>
+ <SET X9 LAST43 (TYPE LIST)>
+ <JUMP + TAG77>
+TAG76
+ <PUTREST TEMP25 LAST43>
+ <DEAD TEMP25>
+TAG77
+ <SET TEMP25 LAST43 (TYPE LIST)>
+ <DEAD LAST43>
+ <JUMP + MAP31>
+PHRASE70
+ <FRAME '\1aGR-RET>
+ <PUSH TT7>
+ <DEAD TT7>
+ <PUSH SAMCNT6>
+ <CALL '\1aGR-RET 2 = EL41>
+ <JUMP + PHRASE165>
+PHRASE68
+ <TYPE? EL41 <TYPE-CODE FALSE> - PHRASE165>
+ <JUMP + MAP31>
+PHRASE50
+ <NTHUV ELE42 1 = LAST43>
+ <EQUAL? LAST43 'REST - PHRASE90>
+ <DEAD LAST43>
+ <LENUV ELE42 = LAST43 (TYPE FIX)>
+ <VEQUAL? LAST43 2 - PHRASE90 (TYPE FIX)>
+ <DEAD LAST43>
+ <NTHUV ELE42 2 = LAST43>
+ <EQUAL? LAST43 'ANY - PHRASE90>
+ <DEAD LAST43>
+ <TYPE? SAME5 <TYPE-CODE FALSE> + MAP31>
+ <FRAME '\1aGR-RET>
+ <PUSH SAME5>
+ <DEAD SAME5>
+ <PUSH SAMCNT6>
+ <CALL '\1aGR-RET 2 = EL41>
+ <SET SAME5 %<> (TYPE FALSE)>
+ <CONS EL41 () = LAST43 (TYPE LIST)>
+ <DEAD EL41>
+ <EMPL? X9 - TAG88>
+ <SET X9 LAST43 (TYPE LIST)>
+ <JUMP + TAG89>
+TAG88
+ <PUTREST TEMP25 LAST43>
+ <DEAD TEMP25>
+TAG89
+ <SET TEMP25 LAST43 (TYPE LIST)>
+ <DEAD LAST43>
+ <JUMP + MAP31>
+PHRASE90
+ <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE94>
+ <FRAME '\1aGR-RET>
+ <PUSH SAME5>
+ <DEAD SAME5>
+ <PUSH SAMCNT6>
+ <CALL '\1aGR-RET 2 = EL41>
+ <JUMP + PHRASE96>
+PHRASE94
+ <SET EL41 %<> (TYPE FALSE)>
+PHRASE96
+ <LENUV ELE42 = LAST43 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE VECTOR> LAST43 = TT7 (TYPE VECTOR)>
+ <DEAD LAST43>
+ <NTHUV ELE42 1 = LAST43>
+ <EQUAL? LAST43 'OPT - PHRASE98>
+ <DEAD LAST43>
+ <SET LAST43 'OPTIONAL (TYPE ATOM)>
+ <JUMP + PHRASE99>
+PHRASE98
+ <NTHUV ELE42 1 = LAST43>
+PHRASE99
+ <PUTUV TT7 1 LAST43>
+ <DEAD LAST43>
+ <LENUV ELE42 = LAST43 (TYPE FIX)>
+ <LESS? LAST43 2 + PHRASE101 (TYPE FIX)>
+ <DEAD LAST43>
+ <NTHUV ELE42 1 = LAST43>
+ <EQUAL? LAST43 'REST - PHRASE101>
+ <DEAD LAST43>
+ <FRAME '\1aCANONICAL-DECL>
+ <NTHUV ELE42 2 = STACK>
+ <CALL '\1aCANONICAL-DECL 1 = SAME5>
+ <PUTUV TT7 2 SAME5>
+ <JUMP + PHRASE104>
+PHRASE101
+ <SET SAME5 %<> (TYPE FALSE)>
+PHRASE104
+ <LENUV ELE42 = LAST43 (TYPE FIX)>
+ <LESS? LAST43 3 + PHRASE129 (TYPE FIX)>
+ <DEAD LAST43>
+ <RESTUV TT7 2 = TEMP118 (TYPE VECTOR)>
+ <RESTUV ELE42 2 = ELE42 (TYPE VECTOR)>
+ <LOOP>
+MAP108
+ <INTGO>
+ <EMPUV? TEMP118 + MAPAP111>
+ <EMPUV? ELE42 + MAPAP111>
+ <SET X120 TEMP118>
+ <SET LAST43 ELE42>
+ <FRAME '\1aCANONICAL-DECL>
+ <NTHUV LAST43 1 = STACK>
+ <DEAD LAST43>
+ <CALL '\1aCANONICAL-DECL 1 = LAST43>
+ <PUTUV X120 1 LAST43>
+ <DEAD X120>
+ <FRAME '\1aN=?>
+ <PUSH LAST43>
+ <DEAD LAST43>
+ <PUSH SAME5>
+ <CALL '\1aN=? 2 = LAST43>
+ <VEQUAL? LAST43 0 + PHRASE125>
+ <DEAD LAST43>
+ <SET SAME5 %<> (TYPE FALSE)>
+PHRASE125
+ <RESTUV TEMP118 1 = TEMP118 (TYPE VECTOR)>
+ <RESTUV ELE42 1 = ELE42 (TYPE VECTOR)>
+ <JUMP + MAP108>
+MAPAP111
+ <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE129>
+ <DEAD SAME5>
+ <NTHUV TT7 1 = STACK>
+ <NTHUV TT7 2 = STACK>
+ <DEAD TT7>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TT7>
+PHRASE129
+ <SET SAME5 %<> (TYPE FALSE)>
+ <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE132>
+ <CONS EL41 () = ELE42 (TYPE LIST)>
+ <DEAD EL41>
+ <EMPL? X9 - TAG134>
+ <SET X9 ELE42 (TYPE LIST)>
+ <JUMP + TAG135>
+TAG134
+ <PUTREST TEMP25 ELE42>
+ <DEAD TEMP25>
+TAG135
+ <SET TEMP25 ELE42 (TYPE LIST)>
+ <DEAD ELE42>
+ <CONS TT7 () = ELE42 (TYPE LIST)>
+ <DEAD TT7>
+ <EMPL? X9 - TAG136>
+ <SET X9 ELE42 (TYPE LIST)>
+ <JUMP + TAG137>
+TAG136
+ <PUTREST TEMP25 ELE42>
+ <DEAD TEMP25>
+TAG137
+ <SET TEMP25 ELE42 (TYPE LIST)>
+ <DEAD ELE42>
+ <JUMP + MAP31>
+PHRASE132
+ <SET EL41 TT7>
+ <DEAD TT7>
+ <JUMP + PHRASE165>
+PHRASE48
+ <FRAME '\1aCANONICAL-DECL>
+ <PUSH ELE42>
+ <DEAD ELE42>
+ <CALL '\1aCANONICAL-DECL 1 = ELE42>
+ <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE142>
+ <FRAME '\1a=?>
+ <PUSH SAME5>
+ <PUSH ELE42>
+ <CALL '\1a=? 2 = EL41>
+ <VEQUAL? EL41 0 + PHRASE142>
+ <DEAD EL41>
+ <ADD SAMCNT6 1 = SAMCNT6 (TYPE FIX)>
+ <VEQUAL? LAST43 0 + MAP31>
+ <DEAD LAST43>
+ <FRAME '\1aGR-RET>
+ <PUSH ELE42>
+ <DEAD ELE42>
+ <PUSH SAMCNT6>
+ <CALL '\1aGR-RET 2 = EL41>
+ <JUMP + PHRASE165>
+PHRASE142
+ <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE152>
+ <FRAME '\1aGR-RET>
+ <PUSH SAME5>
+ <DEAD SAME5>
+ <PUSH SAMCNT6>
+ <DEAD SAMCNT6>
+ <CALL '\1aGR-RET 2 = EL41>
+ <JUMP + PHRASE154>
+PHRASE152
+ <SET EL41 %<> (TYPE FALSE)>
+PHRASE154
+ <SET SAME5 ELE42>
+ <SET SAMCNT6 1 (TYPE FIX)>
+ <VEQUAL? LAST43 0 + PHRASE156>
+ <DEAD LAST43>
+ <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE158>
+ <CONS EL41 () = EL41 (TYPE LIST)>
+ <EMPL? X9 - TAG160>
+ <SET X9 EL41 (TYPE LIST)>
+ <JUMP + TAG161>
+TAG160
+ <PUTREST TEMP25 EL41>
+ <DEAD TEMP25>
+TAG161
+ <SET TEMP25 EL41 (TYPE LIST)>
+ <DEAD EL41>
+ <CONS ELE42 () = EL41 (TYPE LIST)>
+ <DEAD ELE42>
+ <EMPL? X9 - TAG162>
+ <SET X9 EL41 (TYPE LIST)>
+ <JUMP + TAG163>
+TAG162
+ <PUTREST TEMP25 EL41>
+ <DEAD TEMP25>
+TAG163
+ <SET TEMP25 EL41 (TYPE LIST)>
+ <DEAD EL41>
+ <JUMP + MAP31>
+PHRASE158
+ <SET EL41 ELE42>
+ <DEAD ELE42>
+ <JUMP + PHRASE165>
+PHRASE156
+ <TYPE? EL41 <TYPE-CODE FALSE> + MAP31>
+PHRASE165
+ <CONS EL41 () = EL41 (TYPE LIST)>
+ <EMPL? X9 - TAG167>
+ <SET X9 EL41 (TYPE LIST)>
+ <JUMP + TAG168>
+TAG167
+ <PUTREST TEMP25 EL41>
+ <DEAD TEMP25>
+TAG168
+ <SET TEMP25 EL41 (TYPE LIST)>
+ <DEAD EL41>
+MAP31
+ <RESTL Y10 1 = Y10 (TYPE LIST)>
+ <JUMP + MAP30>
+MAPAP33
+ <PUTREST TEMP14 X9>
+ <DEAD X9>
+ <CHTYPE TEMP14 <TYPE-CODE FORM> = TEMP25>
+ <DEAD TEMP14>
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+ <END \1aCAN-ELE>
+#WORD *32056100731*
+<GFCN \1aGR-RET ("VALUE" ANY ANY FIX) X4 N5>
+ <TEMP TEMP10>
+ <INTGO>
+ <VEQUAL? N5 1 - PHRASE7 (TYPE FIX)>
+ <RETURN X4>
+ <DEAD X4>
+PHRASE7
+ <PUSH N5>
+ <DEAD N5>
+ <PUSH X4>
+ <DEAD X4>
+ <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aGR-RET>
+#WORD *20147621066*
+<GFCN \1aDECL-GET ("VALUE" ANY ANY "OPTIONAL" ANY) DCL6 DEF7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP11 TEMP18:FRAME>
+ <INTGO>
+ <GVAL 'MIM = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE10>
+ <DEAD TEMP11>
+ <FRAME '\1aGET-DECL>
+ <PUSH DCL6>
+ <CALL '\1aGET-DECL 1 = TEMP11>
+ <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE13>
+ <VEQUAL? TEMP11 'ANY + PHRASE13>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE13
+ <FRAME '\1aGETPROP>
+ <PUSH DCL6>
+ <DEAD DCL6>
+ <PUSH 'ALT-DECL>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEMP11>
+ <CFRAME = TEMP18 (TYPE FRAME)>
+ <EQUAL? TEMP18 TEMP11 - TAG22>
+ <DEAD TEMP18>
+ <FRAME '\1aEVAL>
+ <PUSH DEF7>
+ <DEAD DEF7>
+ <CALL '\1aEVAL 1 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE10
+ <FRAME '\1aGETPROP>
+ <PUSH DCL6>
+ <DEAD DCL6>
+ <PUSH 'DECL>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = TEMP11>
+ <CFRAME = TEMP18 (TYPE FRAME)>
+ <EQUAL? TEMP18 TEMP11 - TAG22>
+ <DEAD TEMP18>
+ <FRAME '\1aEVAL>
+ <PUSH DEF7>
+ <DEAD DEF7>
+ <CALL '\1aEVAL 1 = TEMP11>
+TAG22
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aDECL-GET>
+#WORD *24112761530*
+<GFCN \1aMTYPR ("VALUE" ANY ANY) X4>
+ <TEMP TEMP10 TEMP11>
+ <INTGO>
+ <SET TEMP10 [OBLIST LVAL GVAL] (TYPE VECTOR)>
+ <TYPE? X4 <TYPE-CODE ATOM> - PHRASE6>
+ <LOOP (X4 VALUE) (TEMP10 LENGTH VALUE)>
+TAG8
+ <NTHUV TEMP10 1 = TEMP11>
+ <VEQUAL? TEMP11 X4 + TAG7>
+ <DEAD TEMP11>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <EMPUV? TEMP10 - TAG8>
+ <JUMP + PHRASE6>
+TAG7
+ <RETURN 'ATOM>
+PHRASE6
+ <FRAME '\1aTYPEPRIM>
+ <PUSH X4>
+ <DEAD X4>
+ <CALL '\1aTYPEPRIM 1 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aMTYPR>
+#WORD *4500652265*
+<GFCN \1aGC-PRIMTYPE ("VALUE" ATOM ANY) ARG4>
+ <TEMP TYP6 TEMP7:VECTOR>
+ <INTGO>
+ <LSH ARG4 -6 = TYP6 (TYPE FIX)>
+ <DEAD ARG4>
+ <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP7>
+ <ADD TYP6 1 = TYP6 (TYPE FIX)>
+ <NTHUV TEMP7 TYP6 = TYP6 (TYPE TYPE-ENTRY)>
+ <DEAD TEMP7>
+ <NTHUV TYP6 2 = TYP6 (TYPE ATOM)>
+ <RETURN TYP6>
+ <DEAD TYP6>
+ <END \1aGC-PRIMTYPE>
+<ENDPACKAG
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff