Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv21500
Modified Files: appender.lisp Log Message: Create a generic stream-appender, console-appender is a sub class of this.
Date: Tue Mar 2 13:37:45 2004 Author: mbaringer
Index: log4cl/appender.lisp diff -u log4cl/appender.lisp:1.3 log4cl/appender.lisp:1.4 --- log4cl/appender.lisp:1.3 Mon Mar 1 13:35:10 2004 +++ log4cl/appender.lisp Tue Mar 2 13:37:45 2004 @@ -39,17 +39,20 @@ (:documentation "Log a message with the appropriate level"))
;; ------------------------------ -;; Appender to log to the console +;; Appender to a stream ;; ------------------------------
-(defclass console-appender (appender) - () - (:documentation "Console appender, is an appender which log message -to the default exit")) +(defclass stream-appender (appender) + ((log-stream :initarg :log-stream :accessor stream-appender-log-stream)))
-(defmethod log-msg ((appender console-appender) name level message) - "Log a message to the standard output" - (format t " ~A ~%" (format-log-message (appender-layout appender) name level message))) +(defmethod log-msg ((appender stream-appender) name level message) + (format (stream-appender-log-stream appender) + " ~A ~%" + (format-log-message (appender-layout appender) name level message))) + +(defclass console-appender (stream-appender) + ((log-stream :initform *standard-output*)) + (:documentation "Console appender, is an appender which log message to the default exit"))
;; ---------------------------- ;; Appender to log into a file