anchor.diff:      ets:insert(?NT_LID, {Lid, Pid, 0, sets:new()}),
       ets:insert(?NT_PID, {Pid, Lid}),
       Lid.
  +
  +%% Update the LIDs of all processes linked to process Lid.
  +put_linked(Lid, Linked) ->
  +    ets:update_element(?NT_LID, Lid, {?linked, Linked}).
   
   %% Initialize LID tables.
   %% Must be called before any other call to lid_* functions.
  
positive.code:     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, ?linkedps),
  		  NewLinked = sets:del_element(Lid, OldLinked),
  		  ets:update_element(?NT_LID, L, {?linkedps, NewLinked}),
  		  Unused
  	  end,
      sets:fold(Fun, unused, Linked).
  
negative.code: 
  %% The following definitions refer to the ?NT_LID table.
  -define(children, 3).
  -define(linked, 4).
  
  %%%----------------------------------------------------------------------
  %%% Types
  