anchor.diff:    (:use)
     (:import-from #:cl
                   #:t #:nil
  -                #:defpackage #:*package* #:package-name #:find-package
  +                #:defpackage #:in-package #:*package* #:package-name #:find-package
                   #:eval-when
                   #:eval
                   #:defun #:defmacro
                   #:defvar #:defparameter
  -                #:declare
  +                #:declare #:optimize #:type #:speed #:safety #:debug
  +                #:keyword #:integer
                   #:assert
                   #:member
                   #:macro-function
                   #:documentation
  -                #:let #:let* #:progn
  +                #:let #:let* #:progn #:multiple-value-bind
                   #:&rest #:&key
                   #:if #:when #:unless
                   #:loop
  
positive.code:                          (make-string (- *max-level-name-length* (length level-str))
                                        :initial-element #\space)
                           level-str
                           timestamp
                           (string-downcase (string package-keyword)))
                         args))))))
  
  
negative.code:   (let ((package-name (string (package-name (find-package 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 args)
    "The given data to the current *log-stream* stream."
    (declare (optimize (speed 3) (safety 0) (debug 0))
             (type keyword level-name package-keyword)
             (type integer log-level)
             (type string format-str)
  