anchor.diff:           lookup/1,
            can_write/3,
            can_write/4,
  -         write/2]).
  +         write/2,
  +         bytes_used/0,
  +         bytes_used/1]).
   
   %% gen_server callbacks
   -export([init/1,
  
positive.code:     space_in_cache(default_ets_table(), NumKeys).
  
  space_in_cache(TableID, NumKeys) ->
      WordsUsed = ets:info(TableID, memory),
      BytesUsed = words_to_bytes(WordsUsed),
      space_available(BytesUsed, NumKeys).
  
  words_to_bytes(Words) ->
  
negative.code:             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
  