anchor.diff:  start_link(MyName, All_list, Seed, MyFLUPid) ->
       gen_server:start_link(?MODULE, {MyName, All_list, Seed, MyFLUPid}, []).
   
  +stop(Pid) ->
  +    gen_server:call(Pid, {stop}, infinity).
  +
   calculate_projection_internal_old(Pid, OldThreshold, NoPartitionThreshold) ->
       gen_server:call(Pid, {calculate_projection_internal_old, OldThreshold, NoPartitionThreshold}, infinity).
   
  -stop(Pid) ->
  -    gen_server:call(Pid, {stop}, infinity).
  +cl_write_current_projection(Pid) ->
  +    gen_server:call(Pid, {cl_write_current_projection}, infinity).
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
  
positive.code: 
  %% API
  -export([start_link/4, stop/1,
           calculate_projection_internal_old/3]).
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
           terminate/2, code_change/3]).
  
  
negative.code:         [begin
               Proj = ?MGR:calculate_projection_internal_old(M0, 50, 50),
               io:format(user, "~p\n", [?MGR:make_projection_summary(Proj)])
           end || _ <- lists:seq(1,5)],
          ?D(cl_write_current_projection(M0))
      after
          ok = ?MGR:stop(M0)
      end.
  
  smoke1_test() ->
      {ok, FLUa} = machi_flu0:start_link(a),
      {ok, M0} = ?MGR:start_link(a, [a,b,c], {1,2,3}, FLUa),
      try
          ok = cl_write_current_projection(M0)
      after
          ok = ?MGR:stop(M0)
      end.
  
  -endif.
  