X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=blobdiff_plain;f=logger.lisp;h=065effa485c76bd7be8931ae2f7fa2b2bb336d36;hp=7988c55a78fabd84f3ffb5a85a885d2fc5e51861;hb=097d28989cb7d3e3c824212e1ddeeb8d6a2a3f39;hpb=3fae70815a20ec802a01eebbd3c6ed9340880fef 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)