anchor.diff:  
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3, start_link/0]).
   
  +% API methods
   -export([has/3, for/3, cache_dump/0, reset/0]).
   
   -record(cstate, {re, table, storage}).
  
positive.code: 	find_failed ->
  	    Default(Commit, State)
      end.
  
  generic_find(Kind, Name, Commit, CommitObj, State) ->
      generic_find(Kind, Name, Commit, CommitObj, State, []).
  
  generic_find(Kind, Name, Commit, CommitObj, State, Default) ->
      case cache_find(Kind, Name, Commit, State) of
  
negative.code: strip_prefixes(Ls, RE, SSP) ->
      [{K, strip_prefix(V, RE, SSP)} || {K,V} <- Ls].
  
  apply_to(BaseConfig, NewConfig, SSPrepend, #cstate{re=RE}) ->
      strip_prefixes(orddict:merge(apply_val_factory(RE, SSPrepend), BaseConfig, NewConfig), RE, SSPrepend).
  
  apply_factory(SSPrepend, State) ->
  