anchor.diff:      do_ctp({Module, '_', '_'}, [global]);
   ctpg({_Module, _Function, _Arity} = X) ->
       do_ctp(X,[global]).
  +
   do_ctp({Module, Function, Arity},[]) ->
       do_ctp({Module, Function, Arity},[global]),
       do_ctp({Module, Function, Arity},[local]);
   do_ctp({_Module, _Function, _Arity}=MFA,Flags) ->
       Nodes = req(get_nodes),
       {ok,do_tp_on_nodes(Nodes,MFA,false,Flags)}.
  +
  +ctpe(Event) when Event =:= send;
  +		 Event =:= 'receive' ->
  +    Nodes = req(get_nodes),
  +    {ok,do_tp_on_nodes(Nodes,Event,false,[])}.
   
   %%
   %% ltp() -> ok
  
positive.code:     do_tp({Module, '_', '_'}, Pattern, [local]);
  tpl({_Module, _Function, _Arity} = X, Pattern) ->
      do_tp(X,Pattern,[local]).
  do_tp({_Module, _Function, _Arity} = X, Pattern, Flags)
    when is_integer(Pattern);
         is_atom(Pattern) ->
      case ets:lookup(get_pattern_table(), Pattern) of
  
negative.code: -module(dbg).
  -export([p/1,p/2,c/3,c/4,i/0,start/0,stop/0,stop_clear/0,tracer/0,
  	 tracer/2, tracer/3, get_tracer/0, get_tracer/1, tp/2, tp/3, tp/4, 
  	 tpe/2, ctpe/1,
  	 ctp/0, ctp/1, ctp/2, ctp/3, tpl/2, tpl/3, tpl/4, ctpl/0, ctpl/1, 
  	 ctpl/2, ctpl/3, ctpg/0, ctpg/1, ctpg/2, ctpg/3, ltp/0, wtp/1, rtp/1, 
  	 dtp/0, dtp/1, n/1, cn/1, ln/0, h/0, h/1]).
  