anchor.diff:                        (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)))))
  +                              collect (make-symbol (format nil "~a-~a" '#:sexp sym))))
  +                      (shadow-and-export (syms)
  +                        `((:shadow ,@syms)
  +                          (:export ,@syms))))
                  `(defpackage #:log4cl
                     (:use)
                     (:nicknames #:log)
  
positive.code:                        #:logger-parent
                         #:log-sexp-with-level))
                    (:import-from :cl #:in-package)
                    (:shadow #:sexp #:expr #:config #:make ,@+log-level-symbols+ ,@(level-expr-syms))
                    (:export #:sexp #:expr #:config #:make ,@+log-level-symbols+ ,@(level-expr-syms))
                    ;; one letter logging macro forwarders
                    (:shadow #:f #:e #:w #:i #:d #:u1 #:u2 #:u3 #:u4 #:t #:u5 #:u6 #:u7 #:u8 #:u9 #:c #:s)
                    (:export #:f #:e #:w #:i #:d #:u1 #:u2 #:u3 #:u4 #:t #:u5 #:u6 #:u7 #:u8 #:u9 #:c #:s)))))
  
negative.code:                        #:property-configurator
                         #:simple-layout
                         #:pattern-layout
                         #:clear-logging-configuration
                         #:reset-logging-configuration
                         ;; utility stuff
  