anchor.diff:                                       '#:log '#:logger
                                        cats)))))
             ((member :self args)
  -           (setq logger +self-logger+ self t)
  -           (setq args (remove :self args))))
  -    (setq logger (or logger *root-logger*))
  +           (setq logger +self-logger+ self t
  +                 logger-specified-how 'self 
  +                 args (remove :self args))))
  +    (or logger (setq logger *root-logger*
  +                     logger-specified-how nil))
       (unless (setq orig-args args)
         (return-from log-config (show-logger-settings logger)))
       (loop
  
positive.code:                  thread ndc pretty nopretty
                   package nopackage))
          (error ":PATTERN isn't compatible with built-in pattern selection flags"))
      (when remove
        (let ((list (logger-appenders logger)))
          (if (<= 1 remove (length list))
  
negative.code:         force-add
          clear-levels clear-appenders
          remove
          stream-by-itself
          logger-specified-how)
      (declare (type (or null stream) stream))
      (cond ((logger-p (car args))
             (setq logger (pop args)
                   logger-specified-how 'logger))
            ((consp (car args))
             (setq logger
                   (let ((cats (pop args))) 
                     (setq logger-specified-how 'cats)
                     (or (instantiate-logger *package* cats t nil) 
                         (log4cl-error "~@<Logger named ~S not found. If you want to create it, ~
                         use (~A:~A (~A:~A ~S) ...) instead~:@>"
  