anchor.diff:             (type integer log-level)
              (type string format-str)
              (type list args))
  -  (let* ((package (find-package package-keyword))
  -         (package-name (when package
  -                         (intern (package-name package) :keyword)))
  -         (package-level (getf *config* package-name))
  -         (package-level (if package-level
  -                            package-level
  -                            (getf *config* t)))
  -         (package-level-value (getf *levels* package-level 0))
  -         (log-streams (multiple-value-list
  -                        (funcall *log-hook*
  -                                 log-level
  -                                 package-keyword
  -                                 package-level-value))))
  +  (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)))
  +             (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*
  
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
  