anchor.diff:  	    (effective-log-level (logger-parent logger))))))
   
   (defun have-appenders-for-level (logger level)
  -  "Return non-NIL if logging with LEVEL will actually
  -reach any appenders"
  +  "Return non-NIL if logging with LEVEL will actually reach any
  +appenders"
     (declare (type logger logger) (type fixnum level))
     ;; Note: below code actually walk parent chain twice but since its
     ;; cached anyway, don't optimize unless becomes a problem
  
positive.code:   (log-level-from-object arg *package*))
  
  (defun effective-log-level (logger)
    "Return logger's own log level (if set) or the one it
  had inherited from parent"
    (declare (type (or null logger) logger))
    (if (null logger) +log-level-off+
        (let* ((state (current-state logger))
  
negative.code:                                           (write-string cat-sep s))
                                          (write-string (aref names i) s)))
                                      'simple-string)
                              :category-separator (coerce cat-sep 'simple-string)
                              :parent logger
                              :name-start-pos
                              (if first 0 (+ (length (logger-category logger))
  