r8779: fix remove-channel call for new arguments signature

diff --git a/logger.lisp b/logger.lisp
index 71b0723f18f5d48bbf7f2f24f66c28bbda2e746b..f186916eef3175e2472aebf091072bd21a807011 100644 (file)
--- 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)
        (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)))
        (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)))