anchor.diff:                          S
                   end, undefined, ProcList).
   
  +
  +%% @doc Returns a process by the pid
  +%%
  +-spec(find_by_pid(list(), pid()) ->
  +             tuple()).
   find_by_pid(ProcList, Pid0) ->
       lists:foldl(fun({Pid1, ProcInfo}, undefined) when Pid0 == Pid1 ->
                           ProcInfo;
  
positive.code:     end.
  
  
  is_exists_proc(ProcList, Node) ->
      lists:foldl(fun({_K, {_, N,_,_}},_S) when Node == N ->
                          true;
  
negative.code:                         S
                  end, false, ProcList).
  
  
  %% @doc Retrieve a process by the node-alias
  %%
  -spec(find_by_node_alias(list(), atom()) ->
               {pid(), reference()}).
  find_by_node_alias(ProcList, Node) ->
      lists:foldl(fun({ Pid, {_, N,_, MonitorRef}},_S) when Node == N ->
                          {Pid, MonitorRef};
  