From 097d28989cb7d3e3c824212e1ddeeb8d6a2a3f39 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 22 Mar 2005 02:08:45 +0000
Subject: [PATCH] r10366: change name of channel class to log-channel

---
 logger.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.34.1