From 3577270466f3e29b3bff16923e96377d1ed1d218 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 30 Mar 2004 03:48:22 +0000 Subject: [PATCH] r8786: updates --- logger.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.34.1