[log4cl-cvs] CVS update: log4cl/appender.lisp

[Marco Baringer]

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