projects
/
irc-logger.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3fae708
)
r10366: change name of channel class to log-channel
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 22 Mar 2005 02:08:45 +0000
(
02:08
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 22 Mar 2005 02:08:45 +0000
(
02:08
+0000)
logger.lisp
patch
|
blob
|
history
diff --git
a/logger.lisp
b/logger.lisp
index 7988c55a78fabd84f3ffb5a85a885d2fc5e51861..065effa485c76bd7be8931ae2f7fa2b2bb336d36 100644
(file)
--- a/
logger.lisp
+++ b/
logger.lisp
@@
-9,7
+9,7
@@
(defvar *daemon-monitor-process* nil "Process of background monitor.")
(defparameter *timeout* 60)
(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
((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)
(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)
:name name
:streams (make-array (length formats) :initial-element nil)
:output-root (when (and (pathnamep output)