anchor.diff:  
   (defgeneric remove-fd (event-base fd))
   
  -(defgeneric event-dispatch (event-base &key one-shot timeout &allow-other-keys))
  +(defgeneric event-dispatch (event-base
  +                            &key one-shot timeout min-timeout max-timeout))
   
   (defgeneric exit-event-loop (event-base &key delay))
   
  
positive.code:     (flet ((poll-timeout ()
               (clamp-timeout (min-timeout (time-to-next-timer timers)
                                           (time-to-next-timer fd-timers))
                              *minimum-event-loop-timeout*
                              *maximum-event-loop-timeout*)))
        (do ((deletion-list () ())
             (eventsp nil nil)
             (poll-timeout (poll-timeout) (poll-timeout))
  
negative.code: 
  (defmethod add-timer :before
      ((event-base event-base) function timeout &key one-shot)
    (declare (ignore timeout))
    (check-type function (or symbol function))
    ;; FIXME: check the type of the timeout
    (check-type one-shot boolean))
  