anchor.diff:    "Configure the log level for a package (or use t for the package name to set
      the default log level). The log level is given as a keyword."
     (assert (member level-name *levels*))
  +  (clear-level-cache)
     (cond ((eq package-keyword t)
            (setf (getf *config* t) level-name))
           ((symbolp package-keyword)
  
positive.code:                                           package-keyword))))
             (setf (getf *config* (intern package-name :keyword)) level-name)))))
  
  (defun do-log (level-name log-level package-keyword format-str &rest args)
    "The given data to the current *log-stream* stream."
    (declare (optimize (cl:speed 3) (cl:safety 0) (cl:debug 0))
  
negative.code:                 #:eval-when
                  #:eval
                  #:lambda #:defun #:multiple-value-list #:defmacro
                  #:return-from
                  #:defvar #:defparameter
                  #:declare #:optimize #:type #:ignore
                  #:keyword #:integer
  