anchor.diff:                            ((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))))
  +          (format t "~%~@<Warning: No appenders can reach current ~9I~_~<~A: ~:_~A~:>~:>~%"
  +                  (list '*terminal-io* global-stream)))))
       (values)))
   
   ;; do default configuration
  
positive.code:                | clearing of non-additive loggers 
                 |
                 | Note that this option does not change the logger being acted
                 | upon, just its children. To nuke absolutely everything including
                 | root logger use (LOG4CL:CLEAR-LOGGING-CONFIGURATION)
  ---------------|---------------------------------------------------------------
   :SELF         | Configures the LOG4CL logger, which can be used to debug
                 | Log4CL itself. Normally all other LOG:CONFIG hides the
  
negative.code:                    (format t ", ~A" (log-level-to-string lvl)))
                   (terpri)
                   (when appenders
                     (loop for num from 1
                           for a in appenders
                           do (print-one-appender a num)))
                   (when (some #'interesting-logger-p children)
                     (dolist (l children)
                       (when (interesting-logger-p l)
  