anchor.diff:                    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
  
positive.code:   (when recursive
      (dolist (child (childer cat))
        (setf (log.level child) new-level))))
  
  ;;;; ** Handling Messages
  
  
negative.code: 	 ,(make-log-helper '#:error '+error+)
  	 ,(make-log-helper '#:fatal '+fatal+)))))
  
  
  
  ;; Copyright (c) 2002-2006, Edward Marco Baringer
  ;; All rights reserved. 
  ;; 
  