From 6f2c823a54092e9f1db233d0caf7f0d338543ef9 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 24 Oct 2004 21:49:06 +0000 Subject: [PATCH] r10116: do not using zerop when checking search --- logger.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/logger.lisp b/logger.lisp index 9a4b8f1..99b5bd3 100644 --- a/logger.lisp +++ b/logger.lisp @@ -718,7 +718,8 @@ (let ((text (trailing-argument msg)) (logger (find-logger-with-connection (connection msg)))) (when (and (stringp text) - (zerop (search (format nil "Closing Link: ~A" (l-nickname logger)) text))) + (eql 0 (search (format nil "Closing Link: ~A" + (l-nickname logger)) text))) (setf (warning-message-utime logger) (received-time msg))) (output-event msg :error nil (trailing-argument msg)))) -- 2.34.1