r8786: updates

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