anchor.diff:          (le:evbuffer-drain bev-output 9999999)))))
   
   (defmethod stream-force-output ((stream async-output-stream))
  +  "Force an output stream to send its dat to the underlying fd."
     (when (open-stream-p stream)
       (let* ((socket (stream-socket stream))
              (bev (socket-c socket))
  
positive.code:         (le:evbuffer-drain bev-input 9999999)))))
  
  (defmethod stream-read-byte ((stream async-input-stream))
    (let ((byte (as::read-bytes-from-socket (stream-socket stream) 1)))
      (if byte
          (aref byte 0)
          :eof)))
  
  (defmethod stream-read-sequence ((stream async-input-stream) sequence start end &key)
    (let ((seq (as::read-bytes-from-socket (stream-socket stream) (- end start))))
      (if seq
          (progn
  
negative.code:       (le:evbuffer-write bev-output fd))))
  
  (defmethod stream-finish-output ((stream async-output-stream))
    "Really, since we're async, same as force-output."
    (stream-force-output stream))
  
  (defmethod stream-write-byte ((stream async-output-stream) byte)
    "Write one byte to the underlying socket."
    (when (open-stream-p stream)
      (write-socket-data (stream-socket stream) (vector byte))))
    
  (defmethod stream-write-sequence ((stream async-stream) sequence start end &key)
    "Write a sequence of bytes to the underlying socket."
    (when (open-stream-p stream)
      (let ((seq (subseq sequence start end)))
        (format t "seq: ~a~%" seq)
  