anchor.diff:      (when properties
         (configure (make-instance 'property-configurator) properties
                    :auto-reload watch))
  +    ;; When pattern options are specified, but not the option to add
  +    ;; new appender, we assume user wants to change layout for
  +    ;; existing console appenders
  +    (when (and pattern-specified-p (not appender-specified-p))
  +      (dolist (a (logger-appenders logger))
  +        ;; Only change global console appenders, or specific console
  +        ;; appender that log to console at log site
  +        (when (and (typep a 'console-appender)
  +                   (or (not (typep a 'this-console-appender))
  +                       (eq (appender-stream a) *debug-io*)))
  +          ;; Assumes slot assignments atomic, but so is everything
  +          ;; else in log4cl
  +          (setf (appender-layout a) layout))))
       (when self
         ;; This is special adhoc case of configuring the LOG4CL-iMPL:SELF.  We need
         ;; special processing, because we want self-logging to survive
  
positive.code:         this-console
          pretty nopretty
          thread ndc
          stream)
      (declare (type (or null stream) stream))
      (cond ((logger-p (car args))
             (setq logger (pop args)))
  
negative.code:                       (log4cl-error "Invalid LOG-CONFIG keyword ~s" arg))
                       (t (log4cl-error
                           "Don't know what do with argument ~S" arg))))))))
      (setq
       pattern-specified-p (or pattern oneline twoline thread
                               ndc file file2 time notime
                               pretty nopretty)
       appender-specified-p (or daily sane console))
      
      (or logger (setq logger *root-logger*))
      (or level sane clear daily properties own noown console pattern-specified-p
          (log4cl-error "Bad combination of options"))
      (or (not properties)
          (not (or sane daily console level pattern-specified-p))
          (log4cl-error ":PROPERTIES can't be used with other options"))
      (if (and pattern
               (or twoline oneline file file2 nofile time notime
                   thread ndc pretty nopretty))
          (error ":PATTERN isn't  compatible with built-in pattern selection flags"))
      ;; ZZZ
      ;; Then if specified daily/console/sane/etc, create new appender
      ;; otherwise go change layout on existing appenders, or self
      (when (or appender-specified-p pattern-specified-p)
        (setq layout (make-instance 'pattern-layout
                      :conversion-pattern
                      (or pattern (figure-out-pattern
                                   :oneline (if (or oneline twoline) oneline t)
                                   :twoline (if (or oneline twoline) twoline nil)
                                   :time (if (or time notime) time t)
                                   :file (if (or file file2 nofile) file t)
                                   :file2 (if (or file file2 nofile) file2 nil)
                                   :pretty pretty
                                   :nopretty nopretty
                                   :thread thread
                                   :ndc ndc)))))
      (when (and own (eq logger *root-logger*))
        (error "Can't set root logger non-additive"))
      (when level
  