anchor.diff:                                   (t (c)
                                      (handle-condition c)
                                      0))))
  +                         (vom:debug ">>>>>>>>> ~s: bytes-to-write: ~s, bytes-written: ~s"
  +                                    fd (length data) bytes-written)
                            (if (< bytes-written (length data))
                              (progn
                                (push (subseq data bytes-written) write-buffer)
  
positive.code:                            (write-buffered)))
                         t)))
                   (handle-condition (c)
                     (aio-fd-disable-write-handle afd)
                     (when error-cb
                       (funcall error-cb afd c)))
  
negative.code: (defun socket-connect-cb (fd)
    (let ((afd (gethash fd *fd-map*)))
      (when afd
        (with-slots (read-cb write-cb write-buffer) afd
          (vom:debug "fd ~s: Connected" fd)
          (aio-fd-disable-write-handle afd)
          (when read-cb
            (aio-fd-enable-read-handle afd))
          (when (or write-cb write-buffer)
            (aio-fd-enable-write-handle afd))))))
  
  
  