anchor.diff:          (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))
  +          (: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))
  
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:     ;; 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*
  
  