) (LN ) TPS) #DECL ((NOD) NODE (K) (LN) FIX) ) (ELSE )>>) (ELSE )> STRUCTURED BACK>> FIX BACK>> >> <==? .TPS TUPLE> <==? .TPS VECTOR> <==? .TPS STRING> <==? .TPS TEMPLATE> <==? .TPS UVECTOR>>> )> <==? .TPS STRING> <==? .TPS TEMPLATE>> .TPS) (ELSE > ,QUOTE-CODE> >> .TPS>) (ELSE .TPS)>)> .RTYP>)>> ) TS TPS) #DECL ((N) NODE (K) ) ) (ELSE 1 TOP> STRUCTURED TOP>> > > ) (<==? .TPS LIST> ) (ELSE >)>)>> "ROUTINE TO ANALYZE SUBSTRUCS" ,SUBSTRUC-CODE>) TEM) #DECL ((FRST-ARG RNODE NOD) NODE (K) (FLG) (NUM) FIX) ) (ELSE > >> )> > STRUCTURED SUBSTRUC>> <==? > ,REST-CODE>> >>> >>> > )>>)> FIX SUBSTRUC>> FIX SUBSTRUC>> STRUCTURED SUBSTRUC>> > VECTOR> <==? .TPS UVECTOR> <==? .TPS TUPLE>> ) ( ) ( > >>)>> <2 .K> .NOD>> > >>) ()> <==? > ,QUOTE-CODE>> >> >) (ELSE .TS)>> > ,QUOTE-CODE> ) (ELSE > > .X)>>>) SEGMENT>>) (ELSE )>)>) (ELSE .TPS)>> > > OR> ) FORM>) ( ) SEGMENT>) (ELSE .TPS)>> >) FORM>) ( ) FORM>) (ELSE ) SEGMENT>)>) (ELSE .TPS)>>)> ) (ELSE )>)>> "BUILD A REST NODE" > "SPICE IN A REST NODE" (NNODE) NODE) >> "SUB-CASE-1 LOOKS FOR .N1 .N2 .X> AND SIMILAR CASES WHERE BLTS ARE ALWAYS POSSIBLE. STRNOD== NODE OF STRUCTURE CPYNOD== NODE OF STRUCTURE TO COPY INTO" ) (DATAC )) #DECL ((STRNOD CPYNOD) NODE (DATAC DATA) ) <1 .DATAC>> FIX> > FIX> <2 .DATAC>>>>>> ) (DATAC )) #DECL ((STRNOD CPYNOD) NODE (DATAC DATA) ) <1 .DATAC>> FIX> > FIX> <2 .DATAC>>>>>> )) #DECL ((NOD TNOD) NODE (SYM) SYMTAB (NTYP) FIX) <==? .NTYP ,SET-CODE>> ( 0)) ( >>>> ,LVAL-CODE> <==? .NTYP ,SET-CODE>> >)>> (.SYM >>))>>