From: Kevin M. Rosenberg Date: Tue, 22 Mar 2005 02:08:45 +0000 (+0000) Subject: r10366: change name of channel class to log-channel X-Git-Tag: v0.9.3~6 X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=commitdiff_plain;h=097d28989cb7d3e3c824212e1ddeeb8d6a2a3f39 r10366: change name of channel class to log-channel --- diff --git a/logger.lisp b/logger.lisp index 7988c55..065effa 100644 --- a/logger.lisp +++ b/logger.lisp @@ -9,7 +9,7 @@ (defvar *daemon-monitor-process* nil "Process of background monitor.") (defparameter *timeout* 60) -(defclass channel () +(defclass log-channel () ((name :initarg :name :reader c-name :documentation "Name of channel.") (streams :initarg :streams :reader streams @@ -488,7 +488,7 @@ (defun make-a-channel (name formats output) - (make-instance 'channel + (make-instance 'log-channel :name name :streams (make-array (length formats) :initial-element nil) :output-root (when (and (pathnamep output)