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