anchor.diff:  (defvar *maximum-event-loop-timeout* 1.0d0)
   
   (defmethod event-dispatch :around ((event-base event-base)
  -                                   &key timeout one-shot)
  -  (declare (ignore one-shot))
  +                                   &key timeout one-shot
  +                                   min-timeout max-timeout)
  +  (declare (ignore one-shot min-timeout max-timeout))
     (setf (exit-p event-base) nil)
     (when timeout
       (exit-event-loop event-base :delay timeout))
  
positive.code: 
  (defmethod add-timer :before
      ((event-base event-base) function timeout &key one-shot)
    (check-type function (or symbol function))
    ;; FIXME: check the type of the timeout
    (check-type one-shot boolean))
  
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))
  