anchor.diff:          pattern-specified-p
           appender-specified-p
           force-add
  -        clear-levels clear-appenders)
  +        clear-levels clear-appenders
  +        remove)
       (declare (type (or null stream) stream))
       (cond ((logger-p (car args))
              (setq logger (pop args)))
  
positive.code:                           ((or this-console-appender tricky-console-appender)
                             (eq (appender-stream a) global-stream))))
                        appenders)
            (format t "~%~@<Warning: No appenders reach resolved ~S: ~S~:@>~%"
                    '*standard-output* global-stream))))
      (values)))
  
  ;; do default configuration
  
negative.code:             (remove-appender-internal logger a nil)))
          (push (make-instance 'daily-file-appender
                 :name-format daily
                 :backup-name-format
                 (if had-backup backup
                     (unless (position #\% daily)
                       (format nil "~a.%Y%m%d" daily)))
                 :layout layout)
                appenders))
        ;; Add new console appender, only in these situations
  