(add-private-log-entry (find-logger-with-nick nick)
"Closing previously active connection [add-logger].")
(ignore-errors (remove-logger nick)))
+ (format t "Calling create-logger [add-logger].~%")
(let ((logger (create-logger nick server :channels channels :output output
:logging-stream logging-stream :password password
:realname realname :username username
:unknown-log unknown-log
:formats formats
:async async)))
+ (format t "Pushing newly created logger ~A [add-logger].~%" logger)
(push logger *loggers*)
(start-logger logger async)
logger))
(sleep 5)
(when (is-connected new-logger)
(log-reconnection new-logger)))))
-
- )
+ ) ;; end closure
(defun daemon-monitor ()
"This function runs in the background and monitors the connection of the logger."