) (FLG T) N CD (ONO .NO-KILL) (NO-KILL .ONO) (2RET <>)) #DECL ((NOD N) NODE (K) (ST1 ST2) DATUM (NO-KILL) (ONO) LIST) ,REST> > > )> ;"Really > ,QUOTE-CODE> <==? > ()>> >>) (>> >> > ,SNODES>> >> ,LVAL-CODE> >> 2> <2 .CD>) (ELSE T)> > ) > >> .NO-KILL>> ) !.NO-KILL)>> .WHERE>) (ELSE )>>> )>>> ) (ELSE .2RET> DONT-CARE) (ELSE .WHERE)>>>> >>)> >>> AC> > |CERR2 >>) (ELSE >> )>> > AC> >> AC>> ( AC>>)>>) (ELSE AC>> `@ !>>)> >) (ELSE AC>>)>>) (ELSE >>)>)> .WHERE>> > .SYMT> ) () (SACR .ACR)) )> .SYMT> > )> > >>)>)>> <>) (ELSE .ACR)>>> ,ALLACS>> ) (BRANCH <>) (DIR <>) "AUX" (K <1 >) (K2 <2 >) REGT REGT2 (S >) TRANSFORM ATYP ATYP2 B2 (SDIR .DIR) (RW .WHERE) TRANS1 (FLS <==? .RW FLUSHED>) TEM (ONO .NO-KILL) (NO-KILL .ONO) "ACT" TA) #DECL ((NOD K K2) NODE (REGT) DATUM (TRANSFORM) (TRANS1) TRANS (NO-KILL) ) FLUSHED) (ELSE )>> ,QUOTE-CODE> ,SNODES>> > ,SNODES>>> ,LVAL-CODE> >> 2> <2 .TEM>) (ELSE T)> > .TEM> >> .NO-KILL>>> <>) !.NO-KILL)>)> >> >>)> >> >> ANY-AC>> ,QUOTE-CODE> >> DONT-CARE) (.ATYP2 ) (ELSE )>> ,QUOTE-CODE> <==? .ATYP2 FLOAT>>) (ELSE > .S>> 6 1> 7 0>)> > >)> AC> > AC> >> )> ) (ELSE )>) (ELSE >)>) (ELSE <0? > <1? >> > .S>>)> 2 1> 3 >>)> ) (ELSE > )> > .TRANSFORM>) (ELSE )> >>>>> .TA>)> >>> >> > .ATYP2 .ATYP .REGT2 .REGT )> >)>> .WHERE> .RW>> .RW)>) (ELSE > .ATYP2 .ATYP .REGT2 .REGT .NOTF >> .WHERE> >> > .WHERE> )>>