From 460aef96a391eae776da6a28929d6c4fcdc43e31 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 29 Mar 2004 18:59:33 +0000 Subject: [PATCH] r8779: fix remove-channel call for new arguments signature --- logger.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/logger.lisp b/logger.lisp index 71b0723..f186916 100644 --- a/logger.lisp +++ b/logger.lisp @@ -602,10 +602,12 @@ (ignore-errors (quit-with-timeout (connection logger) "")) (ignore-errors (stop-background-message-handler (handler logger))) (sleep 1) - (dolist (channel (channels logger)) - (let ((c (connection logger))) - (when c - (ignore-errors (remove-channel c (find-channel c (name channel))))))) + (ignore-errors + (let* ((c (connection logger)) + (user (find-user c (nickname logger)))) + (when (and c user) + (dolist (channel (channels logger)) + (remove-channel user channel))))) (ignore-errors (add-private-log-entry logger "Deleting loggers with nick of '~A' [remove-logger]." nick)) (when (private-log-stream logger) (close (private-log-stream logger))) -- 2.34.1