Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv4097
Modified Files: appender.lisp Log Message: Supress warnings with (declare (ignore ...))
Date: Mon Mar 1 13:35:10 2004 Author: mbaringer
Index: log4cl/appender.lisp diff -u log4cl/appender.lisp:1.2 log4cl/appender.lisp:1.3 --- log4cl/appender.lisp:1.2 Mon Mar 1 13:04:23 2004 +++ log4cl/appender.lisp Mon Mar 1 13:35:10 2004 @@ -111,6 +111,7 @@ "Log message into a file. If size of the file is greater than the max size, we create an archive of the current file, and we create a new current file for logging message" + (declare (ignore name level message)) (when (> (with-open-file (s (file-appender-file appender) :if-does-not-exist :create) (file-length s)) (rolling-file-appender-max-size appender)) @@ -137,6 +138,7 @@ (defmethod log-msg :before ((appender daily-rolling-file-appender) name level message) "Log message into a file named by the current date. If log file is a previous date, a new file is created" + (declare (ignore name level message)) (let ((pattern (make-date-pattern (daily-rolling-file-appender-pattern appender)))) (when (not (string-equal (extract-date-pattern (file-appender-file appender)) pattern))