#WORD *35254067162*
		    <GFCN INIT-RECORD-DEFS ("VALUE" <LIST [REST RECORD-DESCRIPTOR]>)>
		    <TEMP>
		    <INTGO>
		    <SETG 'RECORD-TABLE ()>
		    <RETURN ()>
		    <END INIT-RECORD-DEFS>

#WORD *12453261556*
		    <GFCN DEFINE-RECORD ("VALUE" <LIST [REST RECORD-DESCRIPTOR]> ANY ANY "TUPLE" ANY) TYP4 STACK5>
		    <MAKTUP ELEMENTS6 TEMP11 = ELEMENTS6>
		    <INTGO>
		    <SET TEMP11 0 (TYPE FIX)>
		    <LOOP (ELEMENTS6 VALUE LENGTH) (TEMP11 VALUE)>
TAG12
		    <INTGO>
		    <EMPUV? ELEMENTS6 + TAG9>
		    <NTHUV ELEMENTS6 1 = STACK>
		    <RESTUV ELEMENTS6 1 = ELEMENTS6 (TYPE VECTOR)>
		    <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
		    <JUMP + TAG12>
TAG9
		    <LIST TEMP11 = ELEMENTS6 (TYPE LIST)>
		    <DEAD TEMP11>
		    <PUSH TYP4>
		    <DEAD TYP4>
		    <PUSH ELEMENTS6>
		    <DEAD ELEMENTS6>
		    <PUSH STACK5>
		    <DEAD STACK5>
		    <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP11 (TYPE VECTOR)>
		    <CHTYPE TEMP11 <TYPE-CODE RECORD-DESCRIPTOR> = ELEMENTS6>
		    <DEAD TEMP11>
		    <GVAL 'RECORD-TABLE = TEMP11>
		    <CONS ELEMENTS6 TEMP11 = TEMP11>
		    <DEAD ELEMENTS6>
		    <SETG 'RECORD-TABLE TEMP11>
		    <RETURN TEMP11>
		    <DEAD TEMP11>
		    <END DEFINE-RECORD>

#WORD *12232172037*
		    <GFCN PARSE-RED ("VALUE" RECORD-ELEMENT-DESCRIPTOR ATOM FIX "OPTIONAL" FIX <OR FALSE FIX> BOOLEAN) TYP8 OFFSET9 ALTOFF10 LEN?11 SBOOL?12>
		    <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
OPT4
		    <PUSH 0>
OPT5
		    <PUSH %<>>
OPT6
		    <PUSH %<>>
OPT7
		    <TEMP RES13:VECTOR TEMP26 TEMP31 TEMP32>
		    <INTGO>
		    <VEQUAL? TYP8 'ANY - PHRASE15>
		    <PUSH OFFSET9>
		    <DEAD OFFSET9>
		    <PUSH ALTOFF10>
		    <DEAD ALTOFF10>
		    <PUSH 'ANY>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
		    <JUMP + PHRASE34>
PHRASE15
		    <VEQUAL? TYP8 'BYTE + BOOL18>
		    <VEQUAL? TYP8 'SMALL-INT + BOOL18>
		    <VEQUAL? TYP8 'SMALL-POS-INT + BOOL18>
		    <VEQUAL? TYP8 'SMALL-FR-OFFSET - PHRASE17>
BOOL18
		    <PUSH OFFSET9>
		    <DEAD OFFSET9>
		    <PUSH 0>
		    <PUSH TYP8>
		    <DEAD TYP8>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
		    <JUMP + PHRASE34>
PHRASE17
		    <VEQUAL? TYP8 'BOOLEAN - PHRASE20>
		    <PUSH OFFSET9>
		    <DEAD OFFSET9>
		    <PUSH 0>
		    <PUSH 'BOOLEAN>
		    <PUSH ALTOFF10>
		    <DEAD ALTOFF10>
		    <PUSH %<>>
		    <PUSH %<>>
		    <PUSH %<>>
		    <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
		    <JUMP + PHRASE34>
PHRASE20
		    <VEQUAL? TYP8 'TYPE-C - PHRASE22>
		    <PUSH OFFSET9>
		    <DEAD OFFSET9>
		    <PUSH 0>
		    <PUSH 'TYPE-C>
		    <PUSH 0>
		    <PUSH SBOOL?12>
		    <DEAD SBOOL?12>
		    <PUSH %<>>
		    <PUSH TYP8>
		    <DEAD TYP8>
		    <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
		    <JUMP + PHRASE34>
PHRASE22
		    <NTHR TYP8 5 = TEMP26 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE24)>
		    <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE24>
		    <DEAD TEMP26>
		    <FRAME 'TYPEPRIM>
		    <PUSH TYP8>
		    <CALL 'TYPEPRIM 1 = TEMP26>
		    <SET TEMP31 [VECTOR STRING UVECTOR BYTES] (TYPE VECTOR)>
		    <TYPE? TEMP26 <TYPE-CODE ATOM> - PHRASE24>
		    <LOOP (TEMP26 VALUE) (TEMP31 LENGTH VALUE)>
TAG28
		    <NTHUV TEMP31 1 = TEMP32>
		    <VEQUAL? TEMP32 TEMP26 + TAG27>
		    <DEAD TEMP32>
		    <RESTUV TEMP31 1 = TEMP31 (TYPE VECTOR)>
		    <EMPUV? TEMP31 - TAG28>
		    <JUMP + PHRASE24>
TAG27
		    <TYPE? LEN?11 <TYPE-CODE FALSE> - PHRASE24>
		    <PUSH OFFSET9>
		    <DEAD OFFSET9>
		    <PUSH ALTOFF10>
		    <DEAD ALTOFF10>
		    <PUSH 'COUNTVWORD>
		    <PUSH 0>
		    <PUSH SBOOL?12>
		    <DEAD SBOOL?12>
		    <PUSH %<>>
		    <PUSH TYP8>
		    <DEAD TYP8>
		    <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
		    <JUMP + PHRASE34>
PHRASE24
		    <TYPE? LEN?11 <TYPE-CODE FALSE> - BOOL35>
		    <SET TEMP31 [ATOM LBIND T$MSUBR GBIND FRAME OBLIST] (TYPE VECTOR)>
		    <LOOP (TYP8 VALUE) (TEMP31 LENGTH VALUE)>
TAG37
		    <NTHUV TEMP31 1 = TEMP26>
		    <VEQUAL? TEMP26 TYP8 + BOOL35>
		    <DEAD TEMP26>
		    <RESTUV TEMP31 1 = TEMP31 (TYPE VECTOR)>
		    <EMPUV? TEMP31 - TAG37>
		    <FRAME 'TYPEPRIM>
		    <PUSH TYP8>
		    <CALL 'TYPEPRIM 1 = TEMP31>
		    <EQUAL? TEMP31 'LIST + BOOL35>
		    <DEAD TEMP31>
		    <FRAME 'TYPEPRIM>
		    <PUSH TYP8>
		    <CALL 'TYPEPRIM 1 = TEMP31>
		    <EQUAL? TEMP31 'FIX - PHRASE34>
		    <DEAD TEMP31>
BOOL35
		    <PUSH OFFSET9>
		    <DEAD OFFSET9>
		    <PUSH 0>
		    <PUSH 'VWORD1>
		    <PUSH 0>
		    <PUSH SBOOL?12>
		    <DEAD SBOOL?12>
		    <PUSH LEN?11>
		    <DEAD LEN?11>
		    <PUSH TYP8>
		    <DEAD TYP8>
		    <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
PHRASE34
		    <CHTYPE RES13 <TYPE-CODE RECORD-ELEMENT-DESCRIPTOR> = TEMP31>
		    <DEAD RES13>
		    <RETURN TEMP31>
		    <DEAD TEMP31>
		    <END PARSE-RED>

#WORD *21614737714*
		    <GFCN GET-RELE-DESCRIPTOR ("VALUE" <OR FALSE RECORD-ELEMENT-DESCRIPTOR> FIX <OR ATOM HINT>) NUM4 HINT5>
		    <TEMP RTYP6 TEMP20 TEMP22:LIST ELE23:RECORD-DESCRIPTOR TEMP30 TEMP31 TEMP37>
		    <INTGO>
		    <TYPE? HINT5 <TYPE-CODE ATOM> - PHRASE9>
		    <SET RTYP6 HINT5>
		    <DEAD HINT5>
		    <JUMP + COND8>
PHRASE9
		    <FRAME 'PARSE-HINT>
		    <PUSH HINT5>
		    <DEAD HINT5>
		    <PUSH 'RECORD-TYPE>
		    <CALL 'PARSE-HINT 2 = RTYP6>
COND8
		    <SET TEMP20 %<> (TYPE FALSE)>
		    <GVAL 'RECORD-TABLE = TEMP22>
		    <LOOP>
MAP12
		    <INTGO>
		    <EMPL? TEMP22 + MAPAP15>
		    <NTHL TEMP22 1 = ELE23>
		    <NTHUV ELE23 1 = TEMP20 (TYPE VECTOR)>
		    <SET TEMP30 TEMP20>
		    <TYPE? RTYP6 <TYPE-CODE ATOM> - TAG27>
		    <EMPUV? TEMP30 + TAG27>
		    <LOOP (RTYP6 VALUE) (TEMP30 LENGTH VALUE)>
TAG28
		    <NTHUV TEMP30 1 = TEMP31>
		    <VEQUAL? TEMP31 RTYP6 + TAG33>
		    <DEAD TEMP31>
		    <RESTUV TEMP30 1 = TEMP30 (TYPE VECTOR)>
		    <EMPUV? TEMP30 - TAG28>
TAG27
		    <FRAME 'CLEAN-DECL>
		    <PUSH RTYP6>
		    <CALL 'CLEAN-DECL 1 = TEMP30>
		    <TYPE TEMP30 = TEMP31>
		    <EMPUV? TEMP20 + TAG32>
		    <LOOP (TEMP30 VALUE) (TEMP31 VALUE) (TEMP20 LENGTH VALUE)>
TAG34
		    <NTHUV TEMP20 1 = TEMP37>
		    <TYPE? TEMP37 TEMP31 - TAG35>
		    <VEQUAL? TEMP37 TEMP30 + TAG33>
		    <DEAD TEMP37>
TAG35
		    <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
		    <EMPUV? TEMP20 - TAG34>
TAG32
		    <SET TEMP20 %<> (TYPE FALSE)>
		    <JUMP + PHRASE25>
TAG33
		    <NTHUV ELE23 2 = TEMP30 (TYPE LIST)>
		    <DEAD ELE23>
		    <SET TEMP37 NUM4>
		    <DEAD NUM4>
		    <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
		    <GRTR? TEMP37 0 - RESTL39 (TYPE FIX)>
		    <LOOP (TEMP30 VALUE) (TEMP37 VALUE)>
RESTL38
		    <INTGO>
		    <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
		    <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
		    <GRTR? TEMP37 0 + RESTL38 (TYPE FIX)>
RESTL39
		    <NTHL TEMP30 1 = TEMP20 (TYPE RECORD-ELEMENT-DESCRIPTOR)>
		    <DEAD TEMP30>
		    <RETURN TEMP20>
		    <DEAD TEMP20>
PHRASE25
		    <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
		    <JUMP + MAP12>
MAPAP15
		    <RETURN TEMP20>
		    <DEAD TEMP20>
		    <END GET-RELE-DESCRIPTOR>

#WORD *17770023064*
		    <GFCN GET-RSTACK? ("VALUE" <OR ATOM FALSE> <OR ATOM HINT>) HINT4>
		    <TEMP RTYP5 TEMP19 TEMP21:LIST ELE22:RECORD-DESCRIPTOR TEMP29 TEMP30 TEMP36>
		    <INTGO>
		    <TYPE? HINT4 <TYPE-CODE ATOM> - PHRASE8>
		    <SET RTYP5 HINT4>
		    <DEAD HINT4>
		    <JUMP + COND7>
PHRASE8
		    <FRAME 'PARSE-HINT>
		    <PUSH HINT4>
		    <DEAD HINT4>
		    <PUSH 'RECORD-TYPE>
		    <CALL 'PARSE-HINT 2 = RTYP5>
COND7
		    <SET TEMP19 %<> (TYPE FALSE)>
		    <GVAL 'RECORD-TABLE = TEMP21>
		    <LOOP>
MAP11
		    <INTGO>
		    <EMPL? TEMP21 + MAPAP14>
		    <NTHL TEMP21 1 = ELE22>
		    <NTHUV ELE22 1 = TEMP19 (TYPE VECTOR)>
		    <SET TEMP29 TEMP19>
		    <TYPE? RTYP5 <TYPE-CODE ATOM> - TAG26>
		    <EMPUV? TEMP29 + TAG26>
		    <LOOP (RTYP5 VALUE) (TEMP29 LENGTH VALUE)>
TAG27
		    <NTHUV TEMP29 1 = TEMP30>
		    <VEQUAL? TEMP30 RTYP5 + TAG32>
		    <DEAD TEMP30>
		    <RESTUV TEMP29 1 = TEMP29 (TYPE VECTOR)>
		    <EMPUV? TEMP29 - TAG27>
TAG26
		    <FRAME 'CLEAN-DECL>
		    <PUSH RTYP5>
		    <CALL 'CLEAN-DECL 1 = TEMP29>
		    <TYPE TEMP29 = TEMP30>
		    <EMPUV? TEMP19 + TAG31>
		    <LOOP (TEMP29 VALUE) (TEMP30 VALUE) (TEMP19 LENGTH VALUE)>
TAG33
		    <NTHUV TEMP19 1 = TEMP36>
		    <TYPE? TEMP36 TEMP30 - TAG34>
		    <VEQUAL? TEMP36 TEMP29 + TAG32>
		    <DEAD TEMP36>
TAG34
		    <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
		    <EMPUV? TEMP19 - TAG33>
TAG31
		    <SET TEMP19 %<> (TYPE FALSE)>
		    <JUMP + PHRASE24>
TAG32
		    <NTHUV ELE22 3 = TEMP19>
		    <DEAD ELE22>
		    <RETURN TEMP19>
		    <DEAD TEMP19>
PHRASE24
		    <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
		    <JUMP + MAP11>
MAPAP14
		    <RETURN TEMP19>
		    <DEAD TEMP19>
		    <END GET-RSTACK?>

#WORD *3235530501*
		    <GFCN GET-RELE-BRANCH? ("VALUE" <OR FALSE <LIST [1 ANY]>> <OR FALSE HINT>) HINT24>
		    <TEMP TEMP7 CP13:LIST TEMP24>
		    <INTGO>
		    <SET TEMP7 HINT24>
		    <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
		    <NTHL HINT24 1 = TEMP7>
		    <EQUAL? TEMP7 'BRANCH-FALSE + TAG11>
		    <DEAD TEMP7>
		    <NTHL HINT24 1 = TEMP7>
		    <EQUAL? TEMP7 'BRANCH-TAG + TAG11>
		    <DEAD TEMP7>
		    <RETURN %<>>
TAG11
		    <GEN-LVAL 'CODPTR = CP13>
		    <LOOP>
AGAIN18
		    <INTGO>
		    <EMPL? CP13 + PHRASE26 (TYPE LIST)>
		    <NTHL CP13 1 = TEMP7>
		    <TYPE? TEMP7 <TYPE-CODE FORM> - PHRASE26>
		    <NTHL TEMP7 1 = TEMP24>
		    <EQUAL? TEMP24 'DEAD!-MIMOP + PHRASE23>
		    <DEAD TEMP24>
		    <FRAME 'PUTPROP>
		    <PUSH TEMP7>
		    <DEAD TEMP7>
		    <PUSH 'DONE>
		    <PUSH 'T>
		    <CALL 'PUTPROP 3>
		    <JUMP + PHRASE26>
PHRASE23
		    <RESTL CP13 1 = CP13 (TYPE LIST)>
		    <JUMP + AGAIN18>
PHRASE26
		    <RESTL HINT24 1 = TEMP7 (TYPE LIST)>
		    <DEAD HINT24>
PHRASE6
		    <RETURN TEMP7>
		    <DEAD TEMP7>
		    <END GET-RELE-BRANCH?>

#WORD *13015364121*
		    <GFCN INIT-REC-DEFS ("VALUE" <LIST [REST RECORD-DESCRIPTOR]>)>
		    <TEMP TEMP35:LIST>
		    <INTGO>
		    <FRAME 'INIT-RECORD-DEFS>
		    <CALL 'INIT-RECORD-DEFS 0>
		    <FRAME 'DEFINE-RECORD>
		    <PUSH 'ATOM>
		    <PUSH 'LINK>
		    <PUSH 'GVAL>
		    <PUSH 'LVAL>
		    <PUSH 'ATOM>
		    <PUSH 'LINK>
		    <PUSH 'GVAL>
		    <PUSH 'LVAL>
		    <UBLOCK <TYPE-CODE VECTOR> 8 = STACK>
		    <PUSH %<>>
		    <FRAME 'PARSE-RED>
		    <PUSH 'GBIND>
		    <PUSH 0>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'LBIND>
		    <PUSH 4>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'STRING>
		    <PUSH 12>
		    <PUSH 10>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'OBLIST>
		    <PUSH 16>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'TYPE-C>
		    <PUSH 8>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'PARSE-RED 5 = STACK>
		    <CALL 'DEFINE-RECORD 7>
		    <FRAME 'DEFINE-RECORD>
		    <PUSH 'FRAME>
		    <PUSH 'FRAME>
		    <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
		    <PUSH 'T>
		    <FRAME 'PARSE-RED>
		    <PUSH 'T$MSUBR>
		    <PUSH -24>
		    <PUSH 0>
		    <PUSH 4>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'FIX>
		    <PUSH -20>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'SMALL-POS-INT>
		    <PUSH -16>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'SMALL-POS-INT>
		    <PUSH -14>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'FRAME>
		    <PUSH -12>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'SMALL-POS-INT>
		    <PUSH -6>
		    <PUSH 0>
		    <PUSH 0>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'SMALL-FR-OFFSET>
		    <PUSH -8>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'FIX>
		    <PUSH -4>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <CALL 'DEFINE-RECORD 10>
		    <FRAME 'DEFINE-RECORD>
		    <PUSH 'LBIND>
		    <PUSH 'LBIND>
		    <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
		    <PUSH 'T>
		    <FRAME 'PARSE-RED>
		    <PUSH 'ANY>
		    <PUSH 4>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'ATOM>
		    <PUSH 8>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'ANY>
		    <PUSH 16>
		    <PUSH 12>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'LBIND>
		    <PUSH 20>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'LBIND>
		    <PUSH 24>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH 'T>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'FIX>
		    <PUSH 28>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <CALL 'DEFINE-RECORD 8>
		    <FRAME 'DEFINE-RECORD>
		    <PUSH 'GBIND>
		    <PUSH 'GBIND>
		    <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
		    <PUSH %<>>
		    <FRAME 'PARSE-RED>
		    <PUSH 'ANY>
		    <PUSH 4>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'ATOM>
		    <PUSH 8>
		    <PUSH 0>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <FRAME 'PARSE-RED>
		    <PUSH 'ANY>
		    <PUSH 16>
		    <PUSH 12>
		    <PUSH %<>>
		    <PUSH %<>>
		    <CALL 'PARSE-RED 5 = STACK>
		    <CALL 'DEFINE-RECORD 5 = TEMP35>
		    <RETURN TEMP35>
		    <DEAD TEMP35>
		    <END INIT-REC-DEFS>