anchor.diff:                         #:property-configurator
                          #:simple-layout
                          #:pattern-layout
  -                       #:with-log-hierarchy
  -                       #:with-package-log-hierarchy
                          #:clear-logging-configuration
                          #:reset-logging-configuration
                          ;; utility stuff
  
positive.code: (forward-logging-macro log:c log4cl-impl:log-config)
  (forward-logging-macro log:s log4cl-impl:log-sexp)
  
  
negative.code:                       (level-expr-syms ()
                          ;; make SEXP-<LEVEL> symbols for all debug levels
                          (loop for sym in +log-level-macro-symbols+
                                collect (make-symbol (format nil "~a-~a" '#:sexp sym))))
                        (shadow-and-export (syms)
                          `((:shadow ,@syms)
                            (:export ,@syms))))
                 `(defpackage #:log4cl
                    (:use)
                    (:nicknames #:log)
  