anchor.diff:            (iolib:set-io-handler (event-base server)
                                    (iolib:socket-os-fd client-socket)
                                    :read
  -                                 (make-reader-function client))
  +                                 (lambda (&rest rest)
  +                                   (declare (ignore rest))
  +                                   (on-read client)))
             (iolib:set-io-handler (event-base server)
                                    (iolib:socket-os-fd client-socket)
                                    :write
  -                                 (make-writer-function client)))))))
  -
  -(defun make-listener-function (server)
  -  (lambda (&rest _)
  -    (declare (ignore _))
  -    (on-client-connection server)))
  +                                 (lambda (&rest rest)
  +                                   (declare (ignore rest))
  +                                   (on-write client))))))))
   
   (defgeneric on-read (client)
     (:method ((client client))
  
positive.code:         (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)
  
negative.code:         (format t "Got a hangup on write.~%")
          (disconnect client :close)))))
  
  (defgeneric write-to-client (client data)
    (:method ((client client) (data string))
      (let ((array (make-array (length data) :element-type '(unsigned-byte 8))))
  