anchor.diff:                  #:format
                   #:identity
                   #:get-universal-time
  +                #:get-decoded-time
                   #:string #:string-downcase #:make-string #:concatenate
                   #:intern
                   #:setf #:getf
  
positive.code:   (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 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))
             (type keyword level-name package-keyword)
             (type integer log-level)
             (type string format-str)
  
negative.code:          (package-level-value (getf *levels* package-level 0)))
      (when (<= log-level package-level-value)
        (let* ((level-str (string level-name))
               (format-str (concatenate 'string "~a<~a> [~a] ~a - " format-str "~%")))
          (apply 'format
                 (append (list
  