anchor.diff:                            [named_table, ordered_set, public, {read_concurrency, true}]),
               catch ets:new(?ETS_INFO_TABLE,
                             [named_table, set, public, {read_concurrency, true}]),
  +            catch ets:new(?ETS_COMPACTION_STATUS_TABLE,
  +                          [named_table, set, public, {read_concurrency, true}]),
               ok;
           {error, {already_started, Module}} ->
               ok;
  
positive.code:         ]).
  
  
  -define(ETS_CONTAINERS_TABLE, 'leo_object_storage_containers').
  -define(ETS_INFO_TABLE,       'leo_object_storage_info').
  -define(SERVER_MODULE,        'leo_object_storage_server').
  -define(DEVICE_ID_INTERVALS,  10000).
  
  -define(STATE_COMPACTING,  'compacting'). %% running
  -define(STATE_ACTIVE,      'active').     %% idle
  
negative.code: %% @private
  -spec(get_pid_status(pid()) -> storage_status()).
  get_pid_status(Pid) ->
  %    case application:get_env(?APP_NAME, Pid) of
      case ets:lookup(?ETS_COMPACTION_STATUS_TABLE, Pid) of
          [{_,Status}|_] ->
              Status;
          _ ->
              ?STATE_ACTIVE
      end.
  
  
  