anchor.diff:    (with-output-to-file (log-file (log-file appender)
   				 :if-exists :append
   				 :if-does-not-exist :create)
  -    (let ((*package* (find-package :it.bese.arnesi)))
  +    (let ((*package* #.(find-package :it.bese.arnesi)))
         (format log-file "(~S ~D ~S ~S)~%" level (get-universal-time) (name category) message))))
   
   (defun make-file-log-appender (file-name)
  
positive.code: ;;;; ** Creating Loggers
  
  (defmacro deflogger (name ancestors &key compile-time-level level appender appenders documentation)
    (declare (ignore documentation))
    (when appender
      (setf appenders (append appenders (list appender))))
    (let ((ancestors (mapcar (lambda (ancestor-name)
  
negative.code: 	 ,(make-log-helper '#:info '+info+)
  	 ,(make-log-helper '#:warn '+warn+)
  	 ,(make-log-helper '#:error '+error+)
  	 ,(make-log-helper '#:fatal '+fatal+)
          (values)))))
  
  
  
  