anchor.diff:    (>= level (log.compile-time-level cat)))
   
   (defmethod log.compile-time-level ((cat log-category))
  -  (with-slots (compile-time-level) cat
  -    (or compile-time-level
  -        (if (ancestors cat)
  -            (loop for ancestor in (ancestors cat)
  -                  minimize (log.compile-time-level ancestor))
  -            (error "Can't determine compile time level for ~S" cat)))))
  +  (or (compile-time-level cat)
  +      (if (ancestors cat)
  +          (loop for ancestor in (ancestors cat)
  +                minimize (log.compile-time-level ancestor))
  +          (error "Can't determine compile time level for ~S" cat))))
   
   (defmethod log.compile-time-level ((cat-name symbol))
     (log.compile-time-level (get-logger cat-name)))
  
positive.code:   (>= level (log.level cat)))
  
  (defmethod log.level ((cat log-category))
    (with-slots (level) cat
      (or level
          (if (ancestors cat)
              (loop for ancestor in (ancestors cat)
                    minimize (log.level ancestor))
              (error "Can't determine level for ~S" cat)))))
  
  (defmethod log.level ((cat-name symbol))
    (log.level (get-logger cat-name)))
  
negative.code:          (eval-when (:load-toplevel :execute)
             (setf (get-logger ',name) (make-instance 'log-category
                                                      :name ',name
                                                      ,@(cond (level
                                                               `(:level ,level))
                                                              ((not ancestors)
                                                               `(:level +debug+))
                                                              (t '()))
                                                      ,@(when compile-time-level
                                                          `(:compile-time-level ,compile-time-level))
                                                      :appenders (list ,@appenders)
  