) TT ITRNOD FAP T TF (MPSTRS ()) (R? <==? ,MAPR>) (TUPCNT 1) (RETYPS NO-RETURN) TEM ASSU L-D L-V D-V VALSPCD SBR (SBRL <>) (SEGFX ()) FINTYPE STATE (FRET T) (FSTOP T) (OV .VARTBL) NSTR (CHF <>)) #DECL ((FAP ITRNOD) NODE (K) (TT NSTR) FIX (MPSTRS L-V D-V) (R?) > (STATE TUPCNT) (SEGFX) > (MNOD) (OV) (FRET FSTOP MRTYP RETYPS) (VALSPCD) (ASSU L-D) LIST (SBRL) ) > ANY >> > >> > ) (ELSE )> >)> > > 1> )>> > > ,MFCN-CODE> > ,SEGMENT-CODE> <==? ,SEG-CODE>> > STRUCTURED >> > > )>) (ELSE >>)> >> <==? .R TEMPLATE>>> )>> >> > ) (KK .K) (LL .LIFE) (OVV .VERBOSE)) #DECL ((HTMPS TMPS) (VARTBL) (KK) ) ()>)> > > ) (TUPF <>) (LAST-SEG <>) (SKIPF <>)) >> )> )> > ,ARGL-TUPLE> )> > > ,SEG-CODE> <==? > ,SEGMENT-CODE>>> > )> > )>)> > <1 .K>)> .SKIPF .LAST-SEG> .TUPF> >)> > >> )> >)> >> >)>> ()>)> > >> > > >> > >>) (ELSE >)>) ( NO-RETURN> >)> > > > >> >>> .ITRNOD> > >) (ELSE >>)>)> ) (ELSE )>> > )> )> ,QUOTE-CODE> <==? #FALSE ()>> ) (ELSE .MRTYP>)> .MRTYP>) ( ]> .RETYPS> .MRTYP>) (ELSE .MRTYP>)>) ( ,GVAL-CODE> '[TUPLE VECTOR UVECTOR]>> [REST .TEM]>> .MRTYP>) (ELSE .RETYPS> .MRTYP>)>) (ELSE >)> ,SEGMENT-CODE> <==? ,SEG-CODE>> > STRUCTURED >> >) (ELSE >>)> >> <==? .R TEMPLATE>>> )>> >> > ANY >> >)>) (ELSE )> >> > >) (ELSE >>)>)> )> ,QUOTE-CODE> <==? #FALSE ()>> ) ( .MRTYP>) (ELSE )>) ( ,GVAL-CODE> '[TUPLE VECTOR UVECTOR]>> [REST .TEM]>> .MRTYP>) (ELSE .MRTYP>)>)>> \ ,SEG-CODES>)) #DECL ((STATE TT) FIX (N) NODE) 1) (<==? .TEM FLOAT> 2) (> >) (ELSE FIX)>> 1) (> >) (ELSE FLOAT)>> 2) (ELSE 3)>> .TT>>> ) > .SEGS>> )) #DECL ((N) NODE (NN) FIX (MK) ) > ALL .R?> .R>> >) (ELSE .R)>> (MNOD) NODE) > >>) (ELSE )> T> (MNOD) NODE) > >>)> )>> > T> ) TEM COD N TYP) #DECL ((SYM) SYMTAB (STRUC) (VARTBL) (MNOD N) NODE) > > STRUCTURED MAPF/R> .LAST-SEG>>) (ELSE >)> >>> " " .STRUC>)> >>)> > )> ) ( )> T> )) #DECL ((SYM) SYMTAB (VARTBL) (STRUC) ) > )> .SKIPF .LAST-SEG> )> T> >> )> T> \ ) TYP (ATYP >)>>) TEM) #DECL ((VARTBL) (TUPCNT) FIX) > > STRUCTURED MAPF/R>> <==? > >) (ELSE > <==? >)>> .MNOD>)>) (.LAST-SEG > STRUCTURED MAPF/R>> ALL> .ATYP>> .MNOD>)>) ( ) ( ALL> .ATYP>> .MNOD>)>)> <>) (ELSE T)>> )) ) (,ARGL-IAUX ) (,ARGL-AUX ) (,ARGL-TUPLE ) (,ARGL-ARGS ) (,ARGL-QIOPT ) (,ARGL-IOPT ) (,ARGL-QOPT ) (,ARGL-OPT ) (,ARGL-CALL ) (,ARGL-BIND ) (,ARGL-QUOTE ) (,ARGL-ARG )>> "Additional SUBR analyzers associated with MAP hackers." ) (LN ) TEM) #DECL ((N) NODE (K) (LN) FIX) )>>)> .MRTYP MAPLEAVE>> > ) (ELSE )>> > > ) (ELSE )> NO-RETURN> \ >> >> ,ACTIVATED T> ;"So frame will be built" >>> )> ,SEGMENT-CODE> <==? ,SEG-CODE>> > ']>) (ELSE STRUCTURED)> SEGMENT>> >> ) (ELSE > ') (ELSE ANY)> >>>)>> > > ,MAPRET> ) (ELSE )>> ) (ELSE >)>> >) (ELSE ) (ELSE )>> > >)> > ,ACCUM-TYPE >> .TYP>> > NO-RETURN> )> > ,FGVAL-CODE> <==? .COD ,GVAL-CODE> <==? .COD ,MFIRST-CODE>> <==? >>> ,QUOTE-CODE> >> .TT>>