anchor.diff:      (setf (ip-address client) ip
             (port client) port
             (input-buffer client) (make-array (max-buffer-bytes client)
  -                                            :element-type '(unsigned-byte 8))
  -          (output-buffer client) (make-array (max-buffer-bytes client)
  -                                             :element-type '(unsigned-byte 8)))))
  +                                            :element-type '(unsigned-byte 8)))))
   
   (defmethod print-object ((client client) s)
     (print-unreadable-object (client s :type t :identity t)
  
positive.code:         (format t "Unexpected EOF.~%")))))
  
  (defmethod update ((server tcp-service-provider))
    (dispatch-events server))
  
  (defclass client ()
    ((socket :accessor socket :initarg :socket
  
negative.code:       (deletef (clients (service-provider client))
                 client))))
  
  (defgeneric on-client-connection (server)
    (:method ((server tcp-service-provider))
      (let ((client-socket (iolib:accept-connection (socket server))))
        (when client-socket
          (let ((client (make-instance 'client
  