) (P >>>) (N1 <2 .K>) (SKIP-CH <>) (RW .W) (LNT 0) (DF <>) DN (DFT ) MI MX RNGS (TAGS (X)) LLABS LABS (ET ) NOW (WSET <>) LOCN DAC TG TT W2 (FIRST T) S1 (S2 ()) TNUM LRT) #DECL ((N DN N1) NODE (P) ATOM (RNGS) UVECTOR) >> ANY>>> )> )) #DECL ((N) NODE) ,QUOTE-CODE> )> > )> FALSE> )> ATOM> >>> > (.N () FOO))> (.N () FOO)> >> ) (NN >)) #DECL ((N) NODE) > >>> .NN>) (ELSE >)>) (<==? .P TYPE?> FIX>> ,PMAX> )> > .NN>) (ELSE FIX>> ,PMAX> )> .NN)>) ( > FIX>>> .NN>) (ELSE FIX>>)> ) (ELSE .NN)>> .K>>>> .RNGS> > ) (> > <* .LNT ,MAX-DENSE>> )> )> > > > >> >>>> LIST> <1 .TT>) (ELSE .TT)>> .DFT <>>)>) (<==? .P TYPE?>) (ELSE)> > > )> 1>> > >) (ELSE .K>)>> > >)>> .W>> > >> )> NO-RETURN> > )>) (ELSE > .W>> > >> )>)> )> ) (TG <3 .L>)) > ) (ELSE >)> > >> .W>> > >> )>) ( T) (ELSE >)>> .W>> > >> )>)>> .K>) (ELSE )> >> .W2 >> >>>> >) ( .W>>)> > >> )> > >> NO-RETURN>> )> >> .W>>) (ELSE > .W>>)> > >> )>)> > ATOM>]>) > >)>> .L>> (ATM) ATOM) 2> >)> > ) (> - .ATM> > ) (ELSE + .TG>)> >>> >> 1>> .LOCN) (<==? .LOCN .W> .LOCN) (ELSE >>)>>