"GETORDER FUNCTIONS" >>> 1>>> ) ) (>> .TEM> >) (ELSE .TEM> >)>)> >>> )> > > >> ]> (VALUE) ]> (TEM) ) >) (> !.RES)> >) (ELSE >)> >) (ELSE > .FLIST>> !.RES2)> >) (ELSE >)>)> >> >> ) (> >)> > > 1>>>) (ELSE >>)>)> ) (ELSE )>> )>>> ATOM]>) >> > > >>> ATOM]> (RES) LIST) ) > ) <1 .LS> .LST>> >> ) FIX>) (TL 0) (LST .LST)) #DECL ((SHORT TL) FIX (LST) ) > >> .SHORT> )> >> >> <1 <1 .PNT>>) (ELSE <1 .PNT>)> !.RES)> > <1 .PNT>> > >) (ELSE >)>) (ELSE )>> >> > (MLST) ATOM]>) ) (ELSE ) .ATM> >> >> .MLST>>)>> .LST> .LATM> (FUNCL) >) >> )) #DECL ((FM) FORM) ) ( >>>> ATOM> >> FUNCTION> >> MACRO> >> >> ;"Analyze expansion of MACRO call" ,MAPF> <==? ,<1 .FM> ,MAPR>> > FORM> >> T> FORM> >>>>) (> ,FINDREC <1 .OBJ>>)> >) (ELSE ,FINDREC >)>) (ELSE ,FINDREC .OBJ>)>> ) TEM) )> > ) (ELSE )>> 100>> ) ()>> VECTOR> )> ) (ELSE > <1 .TEM>)>> 2> ATOM> <==? ,<1 .FM> ,GVAL> ATOM> > FUNCTION> MACRO> >> > FUNCTION>>> >>> (FUNCL) > (VALUE) ) .FUNCL> ATOM>) > > <1 .ATM> !.TD)> >>)) #DECL ((ATM) < [REST ATOM]> (TOPDO) ATOM>) )) #DECL ((TODO) LIST (CURDO) ) >> ) (ELSE > )>) ( .TOPDO>) (ELSE 1>> (> <1 .CURDO>)>)> >>> ) >> >) (ELSE )>>