anchor.diff:      (remove-event event-base ev)))
   
   (defmethod event-dispatch ((event-base event-base) &key one-shot timeout
  +                           (min-timeout *minimum-event-loop-timeout*)
                              (max-timeout *maximum-event-loop-timeout*))
     (declare (ignore timeout))
     (with-accessors ((mux mux-of) (fds fds-of) (exit-p exit-p)
  
positive.code: 
  (defgeneric remove-fd (event-base fd))
  
  (defgeneric event-dispatch (event-base &key one-shot timeout &allow-other-keys))
  
  (defgeneric exit-event-loop (event-base &key delay))
  
  
negative.code:     (flet ((poll-timeout ()
               (clamp-timeout (min-timeout (time-to-next-timer timers)
                                           (time-to-next-timer fd-timers))
                              min-timeout max-timeout)))
        (do ((deletion-list () ())
             (eventsp nil nil)
             (poll-timeout (poll-timeout) (poll-timeout))
  