anchor.diff:           ((%active :initform NIL :reader active :allocation :class)
             (%handlers :initform (make-hash-table :test 'equal) :reader handlers :allocation :class)
             (%commands :initform (make-hash-table :test 'equal) :reader commands :allocation :class)
  -          (%groups :initform (make-hash-table) :reader groups :allocation :class)
  +          (%groups :initform (make-hash-table :test 'equal) :reader groups :allocation :class)
             ,@direct-slots)
            ,@options)
          (let ((,instancesym (make-instance ',name))
  
positive.code:   ((%active :initform NIL :accessor active :allocation :class)
     (%handlers :initform (make-hash-table :test 'equal) :reader handlers :allocation :class)
     (%commands :initform (make-hash-table :test 'equal) :reader commands :allocation :class)
     (%groups :initform (make-hash-table) :reader groups :allocation :class)
     (%threads :initform (make-hash-table) :accessor threads))
    (:documentation "Base module class."))
  
  
negative.code: (defmethod stop ((module module)))
  
  (defmethod add-group ((module module) group)
    (let ((group (string-downcase group)))
      (unless (gethash group (groups module))
        (setf (gethash group (groups module)) (make-hash-table :test 'equal)))))
  
  (defmethod add-group-command ((module module) group command args method &optional documentation)
    (let ((command (string-downcase command))
          (group (string-downcase group)))
      (assert (not (null (gethash group (groups module)))))
      (setf (gethash command (gethash group (groups module)))
            (make-instance 'command :name command :arguments args :function method :documentation documentation))))
  
  (defmethod add-command ((module module) command args method &optional documentation)
    (let ((command (string-downcase command)))
      (setf (gethash command (commands module))
            (make-instance 'command :name command :arguments args :function method :documentation documentation))))
  
  (defmethod add-handler ((module module) eventtype method)
    (setf (gethash (string-downcase eventtype) (handlers module)) method))
  