anchor.diff:  
   start_sink(Name, Module, Args) ->
       gen_server:call(?MODULE, {start_sink, Name, Module:sink_type(), Module, Args}).
  +
  +with_configuration_batching(Body) ->
  +    Old = freeze_compilations(),
  +    case Old of
  +        true ->
  +            Body();
  +        false ->
  +            try Body()
  +            after
  +                thaw_compilations()
  +            end
  +    end.
  +
  +freeze_compilations() ->
  +    gen_server:call(?MODULE, freeze_compilations, infinity).
  +
  +thaw_compilations() ->
  +    ok = gen_server:call(?MODULE, thaw_compilations, infinity).
   
   stop_sink(Name) ->
       gen_server:call(?MODULE, {stop_sink, Name}).
  
positive.code: 
  handle_call(get_sink_names, _From, State) ->
      {reply, dict:fetch_keys(State#state.sinks), State};
  
  handle_call(_Request, _From, State) ->
      {reply, ok, State}.
  
negative.code: 
  -include("ale.hrl").
  
  -record(state, {compile_frozen = false :: boolean(),
                  sinks                  :: dict(),
                  loggers                :: dict()}).
  
  -record(logger, {name      :: atom(),
                   loglevel  :: loglevel(),
  