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:            (type integer log-level)
             (type string format-str)
             (type list args))
    (let* ((package-level-value (find-package-level package-keyword)))
      (when (<= log-level package-level-value)
        (let* ((level-str (string level-name))
               (logline (funcall *log-formatter* format-str level-str package-keyword args))
               (log-streams (multiple-value-list
                              (funcall *log-hook*
                                       log-level
                                       package-keyword
                                       package-level-value))))
          (dolist (stream log-streams)
            (write-sequence logline (if (eq stream t)
                                        cl:*standard-output*
  