r8820: add debugging output for reconnection

[irc-logger.git] / logger.lisp

diff --git a/logger.lisp b/logger.lisp
index c686d4197aac13213bc99af7b8c16b6a3c463615..a05d19e2b496b6b948898dcc003c1bc879396f28 100644 (file)
--- a/logger.lisp
+++ b/logger.lisp
@@ -85,7 +85,7 @@
   (string-left-trim '(#\#) name))
 
 (defun find-channel-with-name (logger name)
-  (find name (the list (channels logger)) :test #'string-equal :key #'name))
+  (find name (the list (channels logger)) :test #'string-equal :key #'c-name))
   
 (defun make-output-name (name year month day)
     (format nil "~A-~4,'0D.~2,'0D.~2,'0D" (canonicalize-channel-name name)
@@ -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))
@@ -659,7 +661,7 @@
           (setf (get-stream channel i) nil)))
        (setf (channels logger) (delete channel-name (channels logger)
                                       :test #'string-equal
-                                      :key #'name))
+                                      :key #'c-name))
        (setf (channel-names logger) (delete channel-name (channel-names logger)
                                            :test #'string-equal))
        t)
@@ -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."