anchor.diff:      ets:delete(?NT_PID, Pid),
       %% Delete all occurrences of Lid in other process' link-sets.
       Fun = fun(L, Unused) ->
  -		  OldLinked = ets:lookup_element(?NT_LID, L, 4),
  +		  OldLinked = ets:lookup_element(?NT_LID, L, ?linkedps),
   		  NewLinked = sets:del_element(Lid, OldLinked),
  -		  ets:update_element(?NT_LID, L, {4, NewLinked}),
  +		  ets:update_element(?NT_LID, L, {?linkedps, NewLinked}),
   		  Unused
   	  end,
       sets:fold(Fun, unused, Linked).
  
positive.code:     %% Create new process' Lid
      Lid = lists:concat([ParentLid, ".", Children + 1]),
      %% Update parent info (increment children counter).
      ets:update_element(?NT_LID, ParentLid, {3, Children + 1}),
      %% Insert child, flag and linking info.
      ets:insert(?NT_LID, {Lid, Pid, 0, sets:new()}),
      ets:insert(?NT_PID, {Pid, Lid}),
  
negative.code: -spec get_linked(lid()) -> set().
  
  get_linked(Lid) ->
      ets:lookup_element(?NT_LID, Lid, ?linkedps).
  
  %% Update the linking information of the two pids.
  -spec link(lid(), lid()) -> boolean().
  
  link(Lid1, Lid2) ->
      LinkedTo1 = ets:lookup_element(?NT_LID, Lid1, ?linkedps),
      ets:update_element(?NT_LID, Lid1, {?linkedps,
                                         sets:add_element(Lid2, LinkedTo1)}),
      LinkedTo2 = ets:lookup_element(?NT_LID, Lid2, ?linkedps),
      ets:update_element(?NT_LID, Lid2, {?linkedps,
                                         sets:add_element(Lid1, LinkedTo2)}).
  
  %% "Register" a new process spawned by the process with LID `ParentLid`.
  %% Pid is the new process' erlang pid.
  