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: (forward-logging-macro log:c log4cl-impl:log-config)
  (forward-logging-macro log:s log4cl-impl:log-sexp)
  
  
negative.code:                        #:logger-parent
                         #:log-sexp-with-level))
                    (:import-from :cl #:in-package)
                    ,@(shadow-and-export
                       `(#:sexp #:expr #:config #:make ,@+log-level-symbols+ ,@(level-expr-syms)
                                #:with-hierarchy
                                #:with-package-hierarchy
                                #:in-package-hierarchy
                                #:in-hierarchy
                                #:with-indent))
                    ;; 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)))))
  