anchor.diff:  ;;;; ** Creating Loggers
   
   (defmacro deflogger (name ancestors &key compile-time-level level appender appenders documentation)
  -  (declare (ignore documentation))
  +  (declare (ignore documentation)
  +           (type symbol name))
  +  (unless (eq (symbol-package name) *package*)
  +    (warn "When defining a logger named ~A the home package of the symbol is not *package* (not (eq ~A ~A)) "
  +          (let ((*package* (find-package "KEYWORD")))
  +            (format nil "~S" name))
  +          (symbol-package name) *package*))
     (when appender
       (setf appenders (append appenders (list appender))))
     (let ((ancestors (mapcar (lambda (ancestor-name)
  
positive.code:   (with-output-to-file (log-file (log-file appender)
  				 :if-exists :append
  				 :if-does-not-exist :create)
      (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)
  
negative.code: 	 ,(make-log-helper '#:info '+info+)
  	 ,(make-log-helper '#:warn '+warn+)
  	 ,(make-log-helper '#:error '+error+)
  	 ,(make-log-helper '#:fatal '+fatal+)
          (values)))))
  
  
  
  