anchor.diff:              (if write-cb
                 (call-write-cb)
                 (progn
  -                (vom:debug ">>>>>>>>> ~s: Nothing to write. Removing write-handle..." (aio-fd-fd afd))
  +                (vom:debug "~s: Nothing to write." (aio-fd-fd afd))
                   (aio-fd-disable-write-handle afd)))))))))
   
   
  
positive.code: (defun socket-output-cb (fd)
    (let ((afd (gethash fd *fd-map*)))
      (when afd
        (vom:debug ">>>>>>>>> ~s: socket-output-cb" fd)
        (with-slots (socket write-buffer write-cb error-cb) afd
          (labels ((write-buffered ()
                     (vom:debug ">>>>>>>>> ~s: write-buffered" fd)
  
negative.code:   (:method ((afd aio-fd) data)
      (with-slots (fd write-buffer write-handle) afd
        (setf write-buffer (append write-buffer (list data)))
        (aio-fd-enable-write-handle afd))))
  
  
  