From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 30 Mar 2004 03:48:22 +0000 (+0000)
Subject: r8786: updates
X-Git-Tag: v0.9.3~17
X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=commitdiff_plain;h=3577270466f3e29b3bff16923e96377d1ed1d218

r8786: updates
---

diff --git a/logger.lisp b/logger.lisp
index c686d41..86604b3 100644
--- a/logger.lisp
+++ b/logger.lisp
@@ -85,7 +85,7 @@
   (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)
@@ -659,7 +659,7 @@
 	   (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)