anchor.diff:          {ok, Socket} ->
               unlink(Parent),
               start_acceptor([Parent, Port, ListenSocket, Opts]),
  -            loop(Socket, Port, Opts);
  +            loop(Parent, Socket, Port, Opts);
           {error, closed} ->
               unlink(Parent),
               exit(normal);
  
positive.code:                      true -> ?MEMCACHE_ADDQ;
                       false -> ?MEMCACHE_ADD
                   end,
              case get_key(Port, Key) of
                  undefined ->
                      put_key(Port, Key, Bytes, undefined),
                      case Quiet of
                          true -> <<>>;
                          false -> canned_responses(Kind, Index, Key, Op, stored)
  
negative.code:     timer:sleep(1),
      send(Sock, Rest).
  
  
  flush_all(Parent, Port) ->
      gen_server:call(Parent, {flush_all, Port}).
  
  get_key(Parent, Port, Key) ->
      {ok, Result} = gen_server:call(Parent, {get_key, Port, Key}),
      Result.
  
  put_key(Parent, Port, Key, Value, CAS) ->
      gen_server:call(Parent, {put_key, Port, Key, Value, CAS}).
  put_key(Parent, Port, Key, Value) ->
      put_key(Parent, Port, Key, Value, undefined).
  
  
  parse(<<16#80:8, _Rest/binary>> = Request) ->
      ct:log("About to parse request: ~p", [Request]),
  