From 45315eb00d2f33728f126a1b46eb9c6571274741 Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@common-lisp.net>
Date: Fri, 29 Aug 2008 19:18:00 +0200
Subject: [PATCH] Fix IOMUX::REMOVE-FD.

---
 io.multiplex/event-loop.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/io.multiplex/event-loop.lisp b/io.multiplex/event-loop.lisp
index 50d8aed..649c9b3 100644
--- a/io.multiplex/event-loop.lisp
+++ b/io.multiplex/event-loop.lisp
@@ -215,7 +215,7 @@ within the extent of BODY.  Closes VAR."
                  (maybe-remove-timer eev)))
         (cond (entry
                (maybe-remove-all-timers)
-               (unmonitor-fd (mux-of event-base) fd)
+               (unmonitor-fd (mux-of event-base) entry)
                (remove-fd-entry event-base fd))
               (t (warn "Trying to remove an unmonitored FD.")))))))
 
-- 
2.11.4.GIT