anchor.diff:          #:sb-sys
           #:sb-bsd-sockets)
     (:export #:aio-error
  +           #:aio-error-afd
  +           #:aio-error-code
  +           #:aio-error-where
              #:aio-fd
  +           #:aio-fd-fd
  +           #:aio-fd-socket
  +           #:aio-fd-write-buffer
  +           #:aio-fd-read-handle
  +           #:aio-fd-write-handle
  +           #:aio-fd-read-cb
  +           #:aio-fd-write-cb
  +           #:aio-fd-error-cb
              #:aio-fd-write
              #:aio-fd-close
              #:aio-fd-enable-read-handle
  
positive.code: 
  (defgeneric aio-fd-disable-read-handle (afd &key clear-cb)
    (:method ((afd aio-fd) &key (clear-cb nil))
      (with-slots (read-handle read-cb) afd
        (when clear-cb
          (setf read-cb nil))
  
negative.code:                                  (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)
  