r8755: Automated commit for Debian build of irc-logger upstream-version-0.8.2

[irc-logger.git] / logger.lisp

diff --git a/logger.lisp b/logger.lisp
index feb6dd5732dbff1e5674e80dec179224aa13eef3..14294517eca26b1827a6f374aad079c33c88d02d 100644 (file)
--- a/logger.lisp
+++ b/logger.lisp
@@ -4,7 +4,7 @@
 ;;;; Purpose: A IRC logging bot 
 ;;;; Author:  Kevin Rosenberg
 
-(in-package irc-logger)
+(in-package #:irc-logger)
 
 (defvar *daemon-monitor-process* nil "Process of background monitor.")
 
@@ -788,13 +788,13 @@
 (defun daemon-monitor ()
   "This function runs in the background and monitors the connection of the logger."
   ;; run forever
-  (do ()
-      ()
-    (block main-loop
-      (dolist (logger *loggers*)
-       (do ((warning-time (warning-message-utime logger) (warning-message-utime logger)))
-           ((or (is-connected logger) (null warning-time)))
-         (cond
+  (loop
+   do
+   (block main-loop
+     (dolist (logger *loggers*)
+       (do ((warning-time (warning-message-utime logger) (warning-message-utime logger)))
+          ((or (is-connected logger) (null warning-time)))
+        (cond
           ((and warning-time (> (- (get-universal-time) warning-time) 180))
            ;;give up frequent checking because no disconnection despite waiting
            (setf (warning-message-utime logger) nil))
@@ -807,9 +807,9 @@
            (return-from main-loop))
           (t
            (daemon-sleep 30)))))
-      (do ((i 0 (1+ i)))
-         ((or (>= i 20) (some (lambda (logger) (warning-message-utime logger)) *loggers*))) 
-       (daemon-sleep 15)))))
+     (do ((i 0 (1+ i)))
+        ((or (>= i 20) (some (lambda (logger) (warning-message-utime logger)) *loggers*))) 
+       (daemon-sleep 15)))))