Fix test TIMEOUT.4
authorStelian Ionescu <sionescu@cddr.org>
Wed, 27 Feb 2013 03:13:33 +0000 (27 04:13 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Wed, 27 Feb 2013 03:13:33 +0000 (27 04:13 +0100)
tests/events.lisp

index 2b2142d..522c031 100644 (file)
@@ -44,7 +44,7 @@
    (with-event-base/for-each-mux (base)
      (let ((cb nil))
        (add-timer base (lambda () (setq cb :timeout)) 1.5)
-       (event-dispatch base :one-shot t :timeout 2)
+       (event-dispatch base :timeout 2)
        (assert (eq cb :timeout))))))
 
 (defun timeout-cb (fd event)