TATOM ATOM IN-PRINT ANY OUT-PRINT ANY IN-BREAK ANY OUT-BREAK ANY TPRINTER ATOM> <>) ( ATOM> ) (ELSE ,TRACE-SPEC .ARGL>)>> ) (IB <>) (TEST T)) #DECL ((ARGL) LIST (A) ATOM (VAL) ANY (APP) TAPPLICABLE) >) (ELSE )> .APP)>>) ( ATOM> > >> FORM LVAL GVAL>> >)> "BOTH"> ) (ELSE )> ) (ELSE )>) (<=? "PRINT"> ) (ELSE )>) (<=? "BREAK"> ) (ELSE )>) (ELSE TAPPLICABLE> > > ) ( .IB <> ,TRACE-PRINTER> TAPPLICABLE>>> ) (ELSE >)>) (ELSE >)>)>) (ELSE > >)> >>> ATOM>> <==? .TEST <1 .ARGL>>> >)>>> > > ,TRACE-LIST> ) (ELSE )> >> ) >)> ) (<==? .A >> >>)> > > ) ( ;"not in list" > )> ) (<==? .A >> >>)> > > ) (ELSE >)>>)> >>)>> > > > >> ) (TARGS .ARGS) TVALUE (TR ,TRACE-LEVEL)) #DECL ((APP) TAPPLICABLE (VAL) ANY (TARGS) (TFUNCT TVALUE) (TR) FIX) > (LERR!-INTERRUPTS) ) > > .A>> .TARGS>)>>)> > (LERR!-INTERRUPTS) ) .TARGS>) (ELSE >)>>)> > > > (LERR!-INTERRUPTS) ) > > "> .TVALUE> )>>)> > (LERR!-INTERRUPTS) ) .TVALUE>) (ELSE >)>>)> .TVALUE> >> > )> > ATOM> ATOM> > >> >) (ELSE ATOM>> >)>)> ATOM>> >)>)> > ATOM>> >)>)> ATOM>> >)>)>)> >> > )>