anchor.diff:    end.
   
   safe_reply(handle_call,LD,{Reply,CLD}) -> {reply,Reply,LD#ld{cld=CLD}};
  -safe_reply(handle_cast,LD,CLD) -> {noreply,LD#ld{cld=CLD}};
  -safe_reply(handle_info,LD,CLD) -> {noreply,LD#ld{cld=CLD}};
  -safe_reply(_          ,LD,CLD) -> {ok,LD#ld{cld=CLD}}.
  +safe_reply(handle_call,LD,CLD)         -> {noreply,LD#ld{cld=CLD}};
  +safe_reply(handle_cast,LD,CLD)         -> {noreply,LD#ld{cld=CLD}};
  +safe_reply(handle_info,LD,CLD)         -> {noreply,LD#ld{cld=CLD}};
  +safe_reply(_          ,LD,CLD)         -> {ok,LD#ld{cld=CLD}}.
   
   safe_default(handle_call,LD) -> {reply,ok,LD};
   safe_default(handle_cast,LD) -> {noreply,LD};
  
positive.code:          , start/2
           , stop/1
           , print_state/1
           , unlink/0]).
  
  
  
negative.code:   catch exit:{noproc,_} -> ok
    end.
  
  get_state(Mod) ->
    gen_server:call(Mod,get_state).
  
  print_state(Mod) ->
    print_term(get_state(Mod)).
  
  unlink() ->
    {links,Links} = process_info(self(),links),
  