anchor.diff:  %% @private
   -spec(get_pid_status(pid()) -> storage_status()).
   get_pid_status(Pid) ->
  -    case application:get_env(?APP_NAME, Pid) of
  -        undefined ->
  -            ?STATE_ACTIVE;
  -        {ok, Status} ->
  -            Status
  +%    case application:get_env(?APP_NAME, Pid) of
  +    case ets:lookup(?ETS_COMPACTION_STATUS_TABLE, Pid) of
  +        [{_,Status}|_] ->
  +            Status;
  +        _ ->
  +            ?STATE_ACTIVE
       end.
   
   
  
positive.code:                           [named_table, ordered_set, public, {read_concurrency, true}]),
              catch ets:new(?ETS_INFO_TABLE,
                            [named_table, set, public, {read_concurrency, true}]),
              ok;
          {error, {already_started, Module}} ->
              ok;
  
negative.code: loop_child(From, FunHasChargeOfNode) ->
      receive
          {compact, Id} ->
              true = ets:insert(?ETS_COMPACTION_STATUS_TABLE, {Id, ?STATE_COMPACTING}),
              ?SERVER_MODULE:compact(Id, FunHasChargeOfNode),
              true = ets:insert(?ETS_COMPACTION_STATUS_TABLE, {Id, ?STATE_ACTIVE}),
              erlang:send(From, {done, self()}),
              loop_child(From, FunHasChargeOfNode);
          stop ->
  