anchor.diff:    remote-name
     remote-port
     (read-buffer (make-array buffer-size :element-type '(unsigned-byte 8)))
  -  (write-buffer (make-array buffer-size :element-type '(unsigned-byte 8))))
  +  (write-queue (make-queue))
  +  write-buffer
  +  write-buffer-offset)
   
   (defclass tcp-server ()
     ((driver :initarg :driver)))
  
positive.code: (defevent on-client-error (driver client error))
  (defevent on-drain (driver client))
  
  (defparameter *max-buffer-size* 16384)
  (defstruct (tcp-client
               (:constructor make-client (socket remote-name remote-port
  
negative.code:                                                (setf (gethash (cons name port) connections)
                                                       client)
                                                 (on-connect driver client)
                                                 (start-reads driver event-base client)
                                                 (start-writes driver event-base client))))))
             (handler-case
                 (iolib:event-dispatch event-base)
               ((or iolib:socket-connection-reset-error iolib:hangup end-of-file) (e)
  