anchor.diff:          force-add
           clear-levels clear-appenders
           remove
  -        stream-by-itself)
  +        stream-by-itself
  +        logger-specified-how)
       (declare (type (or null stream) stream))
       (cond ((logger-p (car args))
  -           (setq logger (pop 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~:@>"
  
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:                              pretty nopretty
                               package nopackage)
       appender-specified-p (or daily sane console))
  
      (or level remove sane clear daily properties own noown console pattern-specified-p
          (log4cl-error "Bad combination of options"))
      (or (not properties)
  