From 0f9d06416786a978c616fbdfdfef871c29e310a6 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 17 Mar 2004 01:10:25 +0000
Subject: [PATCH] r8755: Automated commit for Debian build of irc-logger
 upstream-version-0.8.2

---
 debian/changelog |  6 ++++++
 logger.lisp      | 22 +++++++++++-----------
 package.lisp     |  6 +++---
 3 files changed, 20 insertions(+), 14 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 617f72d..0b71abf 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-irc-logger (0.8.2-1) unstable; urgency=low
+
+  * Fix compilation on SBCL
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 16 Mar 2004 18:07:59 -0700
+
 cl-irc-logger (0.8.1-1) unstable; urgency=low
 
   * Add timeouts to some functions which may not return when the logger
diff --git a/logger.lisp b/logger.lisp
index feb6dd5..1429451 100644
--- 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)))))
   
 
 
diff --git a/package.lisp b/package.lisp
index 6f046c9..2c20fb8 100644
--- a/package.lisp
+++ b/package.lisp
@@ -2,10 +2,10 @@
 ;;;; $Id: logger.lisp,v 1.11 2003/12/16 21:19:56 krosenberg Exp $
 ;;;;
 
-(in-package cl-user)
+(in-package #:cl-user)
 
-(defpackage irc-logger
-  (:use :common-lisp :irc :cl-ppcre)
+(defpackage #:irc-logger
+  (:use #:common-lisp #:irc #:cl-ppcre)
   (:export #:add-logger
 	   #:remove-logger
 	   #:add-channel-logger
-- 
2.34.1