anchor.diff:  
   (defun map-logger-children (function logger)
     "Apply the function to all of logger's children (but not their
  -descedants)"
  +descendants)"
     (let ((child-hash (logger-children logger)))
       (when child-hash
         (maphash (lambda (name logger)
  
positive.code: 	    (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"
    (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
  
negative.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))
  