From 9d20827b0bae4055f77a3406b05c23f148f4bae6 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Thu, 7 Jun 2007 01:36:43 +0200 Subject: [PATCH] Using CLOSE instead of CLOSE-EVENT-BASE. Signed-off-by: Stelian Ionescu --- io-multiplex/common.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/io-multiplex/common.lisp b/io-multiplex/common.lisp index 2b854c5..8a605f7 100644 --- a/io-multiplex/common.lisp +++ b/io-multiplex/common.lisp @@ -50,13 +50,13 @@ (hash-table-count (fds-of base)) (mux-of base)))) -(defgeneric close-event-base (event-base) - (:method ((event-base event-base)) - (with-accessors ((mux mux-of)) event-base - (close-multiplexer mux) - (dolist (slot '(fds timeouts exit)) - (setf (slot-value event-base slot) nil)) - event-base))) +(defmethod close ((event-base event-base) &key abort) + (declare (ignore abort)) + (with-accessors ((mux mux-of)) event-base + (close mux) + (dolist (slot '(fds timeouts exit)) + (setf (slot-value event-base slot) nil)) + event-base)) (defgeneric add-fd (base fd event-type function &key timeout persistent)) -- 2.11.4.GIT