anchor.diff:     (level     :initform +debug+ :initarg :level :accessor level
                 :documentation "This category's log level.")
      (compile-time-level
  -              :initform +debug+ :initarg :compile-time-level :accessor compile-time-level
  +              :initform +dribble+ :initarg :compile-time-level :accessor compile-time-level
                 :documentation "This category's compile time log level. Any log expression below this level will macro-expand to NIL.")
      (name      :initarg :name :accessor name)))
   
  
positive.code:   (error "NIL does not specify a category."))
  
  ;;; Compile time levels
  (defmethod compiled-time-enabled-p ((cat log-category) level)
    (>= level (log.compile-time-level cat)))
  
  (defmethod log.compile-time-level ((cat log-category))
  
negative.code:     (flet ((make-log-helper (suffix level)
  	     `(defmacro ,(intern (strcat name "." suffix)) (message-control &rest message-args)
                  ;; first check at compile time
                  (if (compile-time-enabled-p (get-logger ',name) ,level)
                      ;; then check at runtime
                      `(when (enabled-p (get-logger ',',name) ,',level)
                         ,(if message-args
  