anchor.diff:                                                 (setf (gethash (cons name port) connections)
                                                        client)
                                                  (on-connect driver client)
  -                                               (start-reads driver event-base 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)
  
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:   remote-name
    remote-port
    (read-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)))
  