anchor.diff:          (and nofile (push :nofile config)) 
           (and notime (push :notime config))
           (and time (push :time config))
  +        (and pretty (push :pretty config))
  +        (and nopretty (push :nopretty config))
  +        (and thread (push :thread config))
  +        (and ndc (push :ndc config))
           (when (and (null level)
                      (logger-log-level logger))
             (push (aref +log-level-to-keyword+
  
positive.code:                                  :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)))))
        (if sane
            ;; Only remove all appenders if :clear was also given,
            ;; otherwise don't touch file appenders
  
negative.code:         immediate-flush
          properties watch
          this-console
          pretty nopretty
          thread ndc
          stream)
      (declare (type (or null stream) stream))
      (cond ((logger-p (car args))
  