anchor.diff:                         (make-string (- *max-level-name-length* (length level-str))
                                       :initial-element #\space)
                          level-str
  -                       (pretty-time)
  +                       (funcall *time-formatter*)
                          (string-downcase (string package-keyword)))
                        args))))
     "A function that takes a format string (user-supplied), a level string (eg
  
positive.code:    log-level for that package, returns one or more (via (values ...)) streams
     that this log will be sent to.")
  
  (defparameter *log-formatter*
    (lambda (format-str level-str package-keyword args)
      (let* ((format-str (concatenate 'string "~a<~a> [~a] ~a - " format-str "~%")))
  
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."
  