anchor.diff:                               pretty nopretty
                                package nopackage)
        appender-specified-p (or daily sane console))
  -    
  -    (or logger (setq logger *root-logger*))
  +
       (or level remove sane clear daily properties own noown console pattern-specified-p
           (log4cl-error "Bad combination of options"))
       (or (not properties)
  
positive.code:                                      '#:log '#:logger
                                       cats)))))
            ((member :self args)
             (setq logger +self-logger+ self t)
             (setq args (remove :self args))))
      (setq logger (or logger *root-logger*))
      (unless (setq orig-args args)
        (return-from log-config (show-logger-settings logger)))
      (loop
  
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~:@>"
  