(SEVERITY STR "TUPLE" TEXT) ) (<==? > ATOM> >) (ELSE >)> ;"Space" > ) (<==? .SEVERITY STOP> )>> >> >> > > >> > > >> > > >>> > >>  > > >> > >> > > >> >> WORD> >> >>> > >) (ELSE > -1>> >>)>> > .PRINFLG >> > > > > 2>>> 1>>>> > > >> >> >  (NAME "OPTIONAL" (PFLG <>) "NAME" COMPILER) ATOM>> ) (> ) ( FUNCTION>> )> > ;"Recursive calls" > ;"Remove" > > > >>> LIST> > > > ATOM> ) (<==? .MODE EXTRA> ) (<==? .MODE OPTIONAL> > > ) (ELSE )>) ( LIST> <==? 2>> > > ) (<==? .MODE OPTIONAL> > > > > ) (ELSE )>) (<==? STRING> ) ( <=? .ITEM "AUX">> ) (ELSE )>) (ELSE )> > >> > > > ATOM> ;"Activation name ?" > > > > > > ;"Go do the real compilation for this object" ;"Next object in the body" >> > ) AGAIN:TAG EXIT:TAG) > > > ATOM> > > EXTRA> > > >> > > ATOM> >> > > >> > > )) ) (ELSE > > > > )>>  ;"Is there some function to compile this object ?" THIS:TYPE> ;"Is there some function for this type ?" ,REFERENCE!-SETUP> .OBJECT>> >> THIS:OBJECT >> )) < ;"Do we know how to apply this ?" APPLY:TYPE> ;"Apply this type ?" APPLY:PRIMTYPE> ;"This primtype ?" ;"Otherwise go to eval with form" >> .OBJ>>>> ;"Try again with the global value if possible" ) ( > ;"Else with local value" ) (ELSE ;"Otherwise go to EVAL with the form" )>>> > > > >>>> > ;"Get atomic name of RSUBR" > > > >>>> 2>> > > ;"Get the structure" ;"Get the indicator" >> 2> > > >> > ) (<==? 1> > ) (ELSE )>>> 2>> > >>> )) > > > >> > > > > >> > >> >> ,TEST:TRUE!-SETUP T>>> ,TEST:FALSE!-SETUP #FALSE ()>>>>