anchor.diff:    (let ((package-name (string (package-name (find-package package-keyword)))))
       (setf (getf *config* (intern package-name :keyword)) level-name)))
   
  -(defun timestamp ()
  -  "Get unix timestamp."
  -  (let ((diff 2208988800))  ; (encode-universal-time 0 0 0 1 1 1970 0)
  -    (- (get-universal-time) diff)))
  +(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 args)
     "The given data to the current *log-stream* stream."
  -  (declare (optimize (speed 3) (safety 0)
  -                     (debug 0) (space 0))
  +  (declare (optimize (speed 3) (safety 0) (debug 0))
              (type keyword level-name package-keyword)
              (type integer log-level)
              (type string format-str)
  
positive.code:          (package-level-value (getf *levels* package-level 0)))
      (when (<= log-level package-level-value)
        (let* ((level-str (string level-name))
               (timestamp (timestamp))
               (format-str (concatenate 'string "~a<~a> [~a] ~a - " format-str "~%")))
          (apply 'format
                 (append (list
  
negative.code:                          (make-string (- *max-level-name-length* (length level-str))
                                        :initial-element #\space)
                           level-str
                           (pretty-time)
                           (string-downcase (string package-keyword)))
                         args))))))
  
  