anchor.diff:    (defvar *available-multiplexers* nil)
     (defvar *best-available-multiplexer* nil))
   
  +(defvar *default-event-loop-timeout* 1
  +  "Timeout(in seconds) to use if the events in a base have none.")
  +
   ;;;
   ;;; Event-Base
   ;;;
  
positive.code: 
  
  (defgeneric exit-event-loop (event-base &key delay)
    (:method ((event-base event-base) &key delay)
      (setf (main-timeout-of event-base)
            (add-timeout event-base
                         #'(lambda (fd event-type)
  
negative.code: (defmacro with-fd-handler ((event-base fd event-type function
                              &optional timeout)
                             &body body)
    (once-only (event-base)
      (with-gensyms (event)
        `(let (,event)
           (unwind-protect
                (progn
                  (setf ,event (add-fd ,event-base ,fd ,event-type ,function
                                       :persistent t
                                       :timeout ,timeout))
                  ,@body)
             (when ,event
               (remove-event ,event-base ,event)))))))
  
  
  (defmethod event-dispatch :around ((event-base event-base) &key timeout only-once)
  