anchor.diff:              lager:warning("List objects cache write failed. Reason: ~p", [Reason]),
               ok
       end.
  +
  +-spec bytes_used() -> non_neg_integer().
  +bytes_used() ->
  +    bytes_used(default_ets_table()).
  +
  +-spec bytes_used(ets:tab()) -> non_neg_integer().
  +bytes_used(TableID) ->
  +    WordsUsed = ets:info(TableID, memory),
  +    words_to_bytes(WordsUsed).
   
   %%%===================================================================
   %%% gen_server callbacks
  
positive.code:          lookup/1,
           can_write/3,
           can_write/4,
           write/2]).
  
  %% gen_server callbacks
  -export([init/1,
  
negative.code:     space_in_cache(default_ets_table(), NumKeys).
  
  space_in_cache(TableID, NumKeys) ->
      BytesUsed = bytes_used(TableID),
      space_available(BytesUsed, NumKeys).
  
  words_to_bytes(Words) ->
  