(output-event msg :kick channel who-kicked)
(when (string-equal (nickname logger) who-kicked)
(add-private-log-entry
+ logger
"Logging daemon ~A has been kicked from ~A (~A)"
(nickname logger) channel (trailing-argument msg))
(daemon-sleep 1)
(t
(add-log-entry
(get-unknown-log-stream (find-logger-with-connection (connection msg)))
+ "~A"
(raw-message-string msg))))
result))