anchor.diff:                                            (package-name name)
                                             package-keyword))))
              (setf (getf *config* (intern package-name :keyword)) level-name)))))
  -
  -(defun pretty-time ()
  -  "Convert a timestamp to a HH:MM:SS time."
  -  (multiple-value-bind (second minute hour)
  -      (get-decoded-time)
  -    (format nil "~2,'0D:~2,'0D:~2,'0D" hour minute second)))
   
   (defun do-log (level-name log-level package-keyword format-str &rest args)
     "The given data to the current *log-stream* stream."
  
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:            #:*log-stream*
             #:*log-hook*
             #:*config*
             #:*time-formatter*
             #:*log-formatter*
             
             #:emerg
  