anchor.diff:          (with-open-socket (active :family :ipv4
                                     :remote-port (local-port passive)
                                     :remote-host #(127 0 0 1))
  -          (add-timeout base #'timeout-cb 5)
  +          (add-timer base #'timeout-cb 5)
             (let (peer)
               (waiting-for-event (base (fd-of passive) :read)
                 (setq peer (accept-connection passive)))
  
positive.code: (deftest timeout.3
      (with-event-base/for-each-mux (base)
        (let ((cb nil))
          (add-timeout base (lambda (fd event)
                              (declare (ignore fd))
                              (setq cb event))
                       0)
          (event-dispatch base :one-shot t)
          (assert (eq cb :timeout))))
    nil)
  
negative.code: (deftest timeout.2
      (with-event-base/for-each-mux (base)
        (let ((cb nil))
          (add-timer base (lambda () (setq cb :timeout)) 30)
          (event-dispatch base :timeout 0)
          (assert (null cb))))
    nil)
  