anchor.diff:             #:*log-stream*
              #:*log-hook*
              #:*config*
  +           #:*time-formatter*
              #:*log-formatter*
              
              #:emerg
  
positive.code:                        (make-string (- *max-level-name-length* (length level-str))
                                      :initial-element #\space)
                         level-str
                         (pretty-time)
                         (string-downcase (string package-keyword)))
                       args))))
    "A function that takes a format string (user-supplied), a level string (eg
  
negative.code:                                           (package-name name)
                                            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."
  