) P TEM X) #DECL ((PARENT) (OBJ)

(VALUE) NODE) 3> > FORM> <==? 2> <==? <1 .X> GVAL> > '![==? TYPE? PRIMTYPE?!]>>) (ELSE >)> 1> > ) (> > >) ( >> >> > >>) (ELSE >)>) (> OR> <==? 2> <==? <1 .TEM> QUOTE> >>>>> >> >) (ELSE > >>) (ELSE >)>)>> .TEM>) (ELSE >)>) (ELSE >)> T> > > WORD> <==? .P ==?>> <==? .TYP ATOM>>>>> >)> CASE ()>> .PARENT> .PARENT> ! (TT) NODE) )> > <> ()>> ,PREDIC > SEGMENT> >>) ( >) (ELSE )> .TT>> > >> > .TT) (ELSE )>> >)>) (ELSE )>) (ELSE )>> <==? WORD>> .TEM> <==? 2> QUOTE> <2 .TEM>> GVAL> > ,<2 .TEM>> ASCII> CHARACTER FIX> >>> <==? 3> <==? <1 .TEM> CHTYPE> ATOM> FORM LIST VECTOR UVECTOR SEGMENT>> > > > ATOM> >>>> ) TEM) )> > ) (ELSE " ">)>> 100> ) ()>> VECTOR> )> ) (ELSE > <1 .TEM>)>> ) (ELSE .W)>>  ) (P >>>) (N1 <2 .K>) (SKIP-CH <>) (RW .W) (LNT 0) (DF <>) DN (DFT ) MI MX RNGS W1 (TAGS (X)) (TBL ) (ET ) NOW DAC TG TT W2 (FIRST T) S1 (S2 ()) TNUM) #DECL ((N DN N1) NODE (P) ATOM (S1) SAVED-STATE (S2) (RNGS) UVECTOR) > FLUSHED) (ELSE )>> >>> ) (ELSE DONT-CARE)>>> )) #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)>>>>> )> > >) (<==? .P TYPE?> >> !>>) (ELSE >> !>> 1>> TYPVEC!-MUDDLE 1 `(TVP) >> [)>]>>)> .DFT>>) (<==? .MI 1> .DFT>>) (ELSE > )> .DFT>>) (<==? .MX -1> .DFT>>) (ELSE > )> []>> ()>> > >> NO-RETURN> )> )> >) (ELSE > >> )> > )> > )> 1>> > >) (ELSE .K>>> > >)>> ) (TG <3 .L>)) >) (ELSE >)> >> >>) (ELSE T) (ELSE >)>> >>)> !.S2)>> > .K>) (ELSE > )> >> .DAC >> >>> > >>) (ELSE >>)> !.S2)>> > > > > >>) (ELSE > >>)> !.S2)>>)> NO-RETURN>> > AC> >> .W1>> AC> .W2 .W1>> AC> .W2 .W1>>)> > ATOM>]>) > >)>> .L>> (DAC) AC (ATM) ATOM) 2> >)> > ) (> >> > ) (ELSE >> >> )> >>> >>