anchor.diff:        case CacheName of
             non -> ok;
           _ ->
  -          nodes:manager:clear_cache(CacheName, Keys),
  +          case Keys of
  +            Key when is_atom(Key) ->
  +              ets:delete(CacheName, Key);
  +            KList when is_list(KList) ->
  +              lists:foreach(fun(K) -> ets:delete(CacheName, K) end, KList)
  +          end,
             clear_sub_procs_caches(CacheName, {clear_cache, Keys})
         end,
         sub_proc(Name, CacheName, ProcType, SubProcDepth, MaxDepth, MaxWidth, WaitFrom, AvgWaitTime, ProcFun, MapFun);
  
positive.code: %% API
  %% ====================================================================
  -export([start_link/3, stop/1, start_sub_proc/5, start_sub_proc/6, generate_sub_proc_list/1, generate_sub_proc_list/5, generate_sub_proc_list/6]).
  -export([create_simple_cache/1, create_simple_cache/3, create_simple_cache/4, create_simple_cache/5, clear_cache/1]).
  
  %% ====================================================================
  %% Test API
  
negative.code:       Pid ! {sub_proc_management, Message};
      _ -> ok
    end,
    clear_sub_procs_caches(EtsName, ets:next(EtsName, CurrentElement)).
  
  get_cache_name(SupProcName) ->
    list_to_atom(atom_to_list(SupProcName) ++ "_cache").
  