+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
;;;; 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.")
(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))
(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)))))
;;;; $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