From d57191f08f7d6f2616d7a5bcdf1963bb628fa9b4 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 31 Dec 2007 04:58:03 +0100 Subject: [PATCH] Small fix in WITH-EVENT-BASE. Signed-off-by: Stelian Ionescu --- 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 145624e..3b4627f 100644 --- a/io-multiplex/event-loop.lisp +++ b/io-multiplex/event-loop.lisp @@ -53,7 +53,7 @@ within the extent of BODY. Closes VAR." `(let ((,var (make-instance 'event-base ,@initargs))) (unwind-protect (locally ,@body) - (close ,var)))) + (when ,var (close ,var))))) (defmethod print-object ((base event-base) stream) (print-unreadable-object (base stream :type nil :identity t) -- 2.11.4.GIT