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