anchor.diff:  (deftest timeout.4
       (with-event-base/for-each-mux (base)
         (let ((cb nil))
  -        (add-timeout base (lambda (fd event)
  -                            (declare (ignore fd))
  -                            (setq cb event))
  -                     1.5)
  +        (add-timer base (lambda () (setq cb :timeout)) 1.5)
           (event-dispatch base :one-shot t :timeout 2)
           (assert (eq cb :timeout))))
     nil)
  
positive.code: (deftest timeout.2
      (with-event-base/for-each-mux (base)
        (let ((cb nil))
          (add-timeout base (lambda (fd event)
                              (declare (ignore fd))
                              (setq cb event))
                       30)
          (event-dispatch base :timeout 0)
          (assert (null cb))))
    nil)
  
negative.code: (deftest timeout.3
      (with-event-base/for-each-mux (base)
        (let ((cb nil))
          (add-timer base (lambda () (setq cb :timeout)) 0)
          (event-dispatch base :one-shot t)
          (assert (eq cb :timeout))))
    nil)
  