anchor.diff:          (format t "Received unexpected EOF from client.~%")
           (finish-output)
           (disconnect client :close)))))
  -
  -(defun make-reader-function (client)
  -  (lambda (&rest _)
  -    (declare (ignore _))
  -    (on-read client)))
   
   (defun output-buffer-full-p (client)
     (with-slots (output-buffer-start output-buffer-end)
  
positive.code:     (iolib:set-io-handler (event-base server)
                            (iolib:socket-os-fd socket)
                            :read
                            (make-listener-function server))
      (setf (socket server) socket)))
  
  (defmethod teardown ((server tcp-service-provider))
  
negative.code:           (iolib:set-io-handler (event-base server)
                                   (iolib:socket-os-fd client-socket)
                                   :read
                                   (lambda (&rest rest)
                                     (declare (ignore rest))
                                     (on-read client)))
            (iolib:set-io-handler (event-base server)
                                   (iolib:socket-os-fd client-socket)
                                   :write
                                   (lambda (&rest rest)
                                     (declare (ignore rest))
                                     (on-write client))))))))
  
  (defgeneric on-read (client)
    (:method ((client client))
  