From 462cf51ef4393f89bca11a3eb1dbed3dc33d4cea Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@cddr.org>
Date: Wed, 27 Feb 2013 04:13:33 +0100
Subject: [PATCH] Fix test TIMEOUT.4

---
 tests/events.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/events.lisp b/tests/events.lisp
index 2b2142d..522c031 100644
--- a/tests/events.lisp
+++ b/tests/events.lisp
@@ -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)
-- 
2.11.4.GIT