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