anchor.diff:     (appenders :initform '()     :accessor appenders :initarg :appenders
                 :documentation "A list of appender objects this category sholud send messages to.")
      (level     :initform +debug+ :initarg :level :accessor level
  +              :type integer
                 :documentation "This category's log level.")
      (compile-time-level
                 :initform +dribble+ :initarg :compile-time-level :accessor compile-time-level
  +              :type integer
                 :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:   (dolist (anc ancestors)
      (pushnew l (childer anc) :test (lambda (a b)
  				     (eql (name a) (name b))))))
  
  ;;; Runtime levels
  (defmethod enabled-p ((cat log-category) level)
  
negative.code: 
  ;;;; ** Log Levels
  
  (eval-always
    (defconstant +dribble+ 0)
    (defconstant +debug+   1)
    (defconstant +info+    2)
  