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:   (defconstant +error+   4)
    (defconstant +fatal+   5)
  
    (deflookup-table logger))
  
  ;;;; ** Log Categories
  
  
negative.code: 
  ;;;; ** Log Levels
  
  (eval-always
    (defconstant +dribble+ 0)
    (defconstant +debug+   1)
    (defconstant +info+    2)
  