anchor.diff:  (defmethod stop :around ((module module))
     (setf (active module) NIL)
     (loop for uid being the hash-keys of (threads module)
  -     for thread being the hash-values of (threads module)
  -     do (if (thread-alive-p thread)
  -            (interrupt-thread thread #'(lambda () (error 'module-stop)))
  -            (remhash uid (threads module))))
  +        for thread being the hash-values of (threads module)
  +        do (if (thread-alive-p thread)
  +               (interrupt-thread thread #'(lambda () (error 'module-stop)))
  +               (remhash uid (threads module))))
     (call-next-method)
     module)
   
  
positive.code: (defmethod active ((module-name string))
    (active (get-module module-name)))
  
  (defmethod print-object (module stream)
    (format stream "<[~a]>" (class-name (class-of module))))
  
  (defclass command ()
  
negative.code: 
  (defmethod dispatch ((module T) (event event) &key ignore-errors)
    (loop for module being the hash-values of *bot-modules*
          if (active module)
            do (when (if ignore-errors 
                         (ignore-errors (dispatch module event)) 
                         (dispatch module event))
                 (return-from dispatch))))
  
  (defmethod dispatch ((module module) (event event) &key)
    (let ((handler (gethash (string-downcase (class-name (class-of event))) (handlers module))))
  