anchor.diff:  	 ,(make-log-helper '#:error '+error+)
   	 ,(make-log-helper '#:fatal '+fatal+)))))
   
  +
  +
   ;; Copyright (c) 2002-2006, Edward Marco Baringer
   ;; All rights reserved. 
   ;; 
  
positive.code:   (when recursive
      (dolist (child (childer cat))
        (setf (log.level child) new-level))))
  
  ;;;; ** Handling Messages
  
  
negative.code:                   minimize (log.level ancestor))
              (error "Can't determine level for ~S" cat)))))
  
  (defmethod log.level ((cat-name symbol))
    (log.level (get-logger cat-name)))
  
  (defmethod (setf log.level) (new-level (cat log-category)
                               &optional (recursive t))
    "Change the log level of CAT to NEW-LEVEL. If RECUSIVE is T the
  