anchor.diff:  
     (:method ((module module))))
   
  -(defmacro with-module-thread (module &body thread-body)
  +(defmacro with-module-thread ((module) &body thread-body)
     (let ((uidgens (gensym "UUID"))
           (modgens (gensym "MODULE"))
           (modnamegens (gensym "MODULE-NAME")))
  
positive.code:                           :initial-bindings `((*current-server* . ,*current-server*)
                                                (*servers* . ,*servers*))))
         ,uidgens)))
  
  (defgeneric to-module-name (name-object)
    (:documentation "Attempts to transform the given object into the keyword name for a module.")
  
negative.code: 
  (defclass module ()
    ((%active :initform NIL :accessor active :allocation :class)
     (%threads :initform (make-hash-table :test 'equalp) :accessor threads :allocation :class)
     (%lock :initform (bordeaux-threads:make-lock) :accessor lock :allocation :class))
    (:documentation "Base module class."))
  
  (defmacro generalize-module-accessor (name)
  