From 8ef59d7b3053085bc81f4a118b783f0e2ac939a1 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 5 Apr 2004 17:51:29 +0000
Subject: [PATCH] r8820: add debugging output for reconnection

---
 logger.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/logger.lisp b/logger.lisp
index 86604b3..a05d19e 100644
--- a/logger.lisp
+++ b/logger.lisp
@@ -626,6 +626,7 @@
     (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
@@ -633,6 +634,7 @@
 			       :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))
@@ -785,8 +787,7 @@
 	(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."
-- 
2.34.1