anchor.diff:      ;; finally recalculate reach-ability
       (adjust-logger logger)))
   
  +
  +
  +(defun appender-extra-print-properties (a)
  +  "Make an list of extra properties when printing appender configuration.
  +Some of the properties are included only conditionally, such as last
  +error or error count"
  +  (with-slots (message-count
  +               error-count
  +               ignored-error-count
  +               last-error
  +               last-ignored-error) a 
  +    (append
  +     '((:message-count message-count nil))
  +     (when (plusp error-count) '((:error-count error-count nil)))
  +     (when (plusp ignored-error-count) '((:ignored-error-count ignored-error-count nil)))
  +     (when last-error '((:last-error last-error nil)))
  +     (when last-ignored-error '((:last-ignored-error last-ignored-error nil))))))
  +
   (defun show-logger-settings (logger)
     "Print logger settings and its children to *STANDARD-OUTPUT*
   
  
positive.code:                       (*print-pretty* t))
                   (loop
                     for (initarg slot nil) in prop-alist
                     do (pprint-logical-block (nil nil :per-line-prefix indent)
                          (pprint-indent :block 0)
                          (write initarg :case :downcase)
                          (pprint-tab :section-relative 1 (1+ name-width))
                          (pprint-newline :miser)
                          (pprint-indent :block 0)
                          (write (slot-value obj slot)))
                     do (terpri))))
               (print-one-appender (a)
                 ;; empty line for spacing
  
negative.code:         (case arg
            (:self     ; still in the arglist means 1st arg was a logger
             (log4cl-error "Specifying a logger is incompatible with :SELF"))
            (:sane (setq sane t global-console t tricky-console t))
            ((:clear :reset) (setq clear t))
            (:all (setq all t))
            ((:own :nonadditive :noadditive) (setq own t noown nil))
  