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:                             `(handle (get-logger ',',name) ,message-control ',',level)))
                      (values)))))
        `(progn
  	 (setf (get-logger ',name) (make-instance 'log-category
  						  :name ',name
  						  :level ,level
                                                    :compile-time-level ,compile-time-level
  						  :appenders (list ,@appenders)
  						  :ancestors (list ,@ancestors)))
  	 ,(make-log-helper '#:dribble '+dribble+)
  	 ,(make-log-helper '#:debug '+debug+)
  	 ,(make-log-helper '#:info '+info+)
  
negative.code:   (error "NIL does not specify a category."))
  
  ;;; Compile time levels
  (defmethod compile-time-enabled-p ((cat log-category) level)
    (>= level (log.compile-time-level cat)))
  
  (defmethod log.compile-time-level ((cat log-category))
  