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