) 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) (TUPCNT TT NSTR) FIX (MPSTRS L-V D-V) (R?) > (STATE) (SEGFX) > (MNOD) (OV) SYMTAB (FRET FSTOP MRTYP RETYPS) (VALSPCD) (ASSU L-D) LIST (SBRL) ) > ANY >> > >> > ) (ELSE )> >)> 2>> 2>> > > 1> )>> > > ,MFCN-CODE> > >> >> <==? .R TEMPLATE>>> )>> >> > ) (KK .K) (LL .LIFE) (OVV .VERBOSE)) #DECL ((HTMPS TMPS) (VARTBL) (KK) ) ()>)> > > ) (B )) #DECL ((B) (CNT) FIX) > 0> )> ,CODE-SYM 3> ,USED-AT-ALL T> >> <+ .NSTR 1>>)) > > )> >> <1 .BNDS> > <1 .K>)>> >> >>> ()>)> > >> > > >> > >>) (ELSE >)>) ( NO-RETURN> >)> > > > >> >>> .ITRNOD> > >) (ELSE >>)>)> ) (ELSE )>> > )> !)>)> ,QUOTE-CODE> <==? #FALSE ()>> ) (ELSE .MRTYP>)> .MRTYP>) ( ]> .RETYPS> .MRTYP>) (ELSE .MRTYP>)>) ( ,GVAL-CODE> '![VECTOR UVECTOR!]>> [REST .TEM]>> .MRTYP>) (ELSE .RETYPS> .MRTYP>)>) (ELSE >)> >> >> <==? .R TEMPLATE>>> )>> >> > ANY >> >)>) (ELSE )> >> > >) (ELSE >>)>)> )> ,QUOTE-CODE> <==? #FALSE ()>> ) ( .MRTYP>) (ELSE )>) ( ,GVAL-CODE> '![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)>> ) ) (ELSE )> T> ) )> T> ) TEM COD N) #DECL ((SYM) SYMTAB (STRUC) (VARTBL) (MNOD N) NODE) > ;"Tell VARANA to allocate me." ALL .R?> <1 >>> >> >>)> >> )> ) (ELSE )> T> )) #DECL ((SYM) SYMTAB (VARTBL) (STRUC) ) > ) (ELSE )> T> >> )> T> \ ) (ATYP > >>)) > <==? >) (ELSE ALL> .ATYP> >>)> <>) (ELSE T)>> "Additional SUBR analyzers associated with MAP hackers." ) (LN ) TEM) #DECL ((N) NODE (K) (LN) FIX) )>>)> .MRTYP MAPLEAVE>> > ) (ELSE )>> > > ) (ELSE )> NO-RETURN> \ >> >> >> > ,SEGMENT-CODE> <==? ,SEG-CODE>> > ']>) (ELSE STRUCTURED)> SEGMENT>> ) (ELSE )> >> ) (ELSE > ') (ELSE ANY)> >>>)>> > > ,MAPRET> ) (ELSE )>> ) (ELSE >)>> >) (ELSE ) (ELSE )>> > >)> > ,ACCUM-TYPE >> .TYP>> > > NO-RETURN> > ,FGVAL-CODE> <==? .COD ,GVAL-CODE> <==? .COD ,MFIRST-CODE>> <==? >>> ,QUOTE-CODE> >> .TT>>