anchor.diff:    (:default-initargs
      :event-base (default-event-base)
      :on-object nil
  -   :on-error nil))
  +   :on-error nil
  +   :on-connection nil))
   
   (defun remote-client/error (client exception)
     (close client)
  
positive.code: (defgeneric remote-client/write (client state))
  
  (defmethod remote-client/read ((client remote-client) (state (eql :accepting)))
    (listen (socket client))
    (remove-fd-handlers (event-base client) (socket-os-fd client) :write t)
    (setf (state client) :connected))
  
  (defmethod remote-client/write ((client remote-client) (state (eql :accepting)))
    (listen (socket client))
    (remove-fd-handlers (event-base client) (socket-os-fd client) :write t)
    (setf (state client) :connected))
  
  (defmethod remote-client/read ((client remote-client) (state (eql :connected)))
    (labels ((process-stream (stream)
  
negative.code:    (on-error
      :initarg :on-error
      :accessor on-error)
     (on-connection
      :initarg :on-connection
      :accessor on-connection)
     
     (state
      :accessor state)
  