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:
d0bdcfd
)
r8786: updates
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 30 Mar 2004 03:48:22 +0000
(
03:48
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 30 Mar 2004 03:48:22 +0000
(
03:48
+0000)
logger.lisp
patch
|
blob
|
history
diff --git
a/logger.lisp
b/logger.lisp
index c686d4197aac13213bc99af7b8c16b6a3c463615..86604b365b342a18771abb4233cb9b05f93e6e7c 100644
(file)
--- a/
logger.lisp
+++ b/
logger.lisp
@@
-85,7
+85,7
@@
(string-left-trim '(#\#) name))
(defun find-channel-with-name (logger name)
(string-left-trim '(#\#) name))
(defun find-channel-with-name (logger name)
- (find name (the list (channels logger)) :test #'string-equal :key #'name))
+ (find name (the list (channels logger)) :test #'string-equal :key #'
c-
name))
(defun make-output-name (name year month day)
(format nil "~A-~4,'0D.~2,'0D.~2,'0D" (canonicalize-channel-name name)
(defun make-output-name (name year month day)
(format nil "~A-~4,'0D.~2,'0D.~2,'0D" (canonicalize-channel-name name)
@@
-659,7
+659,7
@@
(setf (get-stream channel i) nil)))
(setf (channels logger) (delete channel-name (channels logger)
:test #'string-equal
(setf (get-stream channel i) nil)))
(setf (channels logger) (delete channel-name (channels logger)
:test #'string-equal
- :key #'name))
+ :key #'
c-
name))
(setf (channel-names logger) (delete channel-name (channel-names logger)
:test #'string-equal))
t)
(setf (channel-names logger) (delete channel-name (channel-names logger)
:test #'string-equal))
t)