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:                (print-properties layout)
                 (pop indents)))
        (print-one-logger logger)
        (let* ((global-stream (resolve-stream *standard-output*))
               (appenders (effective-appenders logger)))
          (unless (some (lambda (a)
                          (typecase a
  
negative.code:  
    (let ((logger nil)
          sane clear all own noown daily pattern
          backup had-backup
          file file2 nofile
          time notime
          level layout console
  