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