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

[Marco Baringer]

Update of /project/log4cl/cvsroot/log4cl
In directory common-lisp.net:/tmp/cvs-serv3485

Modified Files:
	logger.lisp 
Log Message:
Give the current-appender an initform to avoid unbound-slot errors.

Date: Thu Mar  4 06:36:31 2004
Author: mbaringer

Index: log4cl/logger.lisp
diff -u log4cl/logger.lisp:1.2 log4cl/logger.lisp:1.3
--- log4cl/logger.lisp:1.2	Mon Mar  1 13:14:17 2004
+++ log4cl/logger.lisp	Thu Mar  4 06:36:31 2004
@@ -36,6 +36,7 @@
    (possible-levels :initform *levels* 
 		    :reader logger-possible-levels)
    (current-appender :initarg :current-appender 
+                     :initform nil
 		     :accessor logger-current-appender)
    (parent :reader logger-parent))
   (:documentation "Logger"))