anchor.diff:  (defmethod dispatch ((module module) (event event) &key)
     (let ((handler (gethash (string-downcase (class-name (class-of event))) (handlers module))))
       (when handler
  +      (v:trace (name module) "Dispatching: ~a" event)
         (with-module-thread module
           (funcall handler module event))
         NIL)))
  
positive.code:     (when group (gethash commandname group))))
  
  (defmethod get-module ((module-name string))
    (get-module (find-symbol (string-upcase module-name) :KEYWORD)))
  
  (defmethod get-module ((module-name symbol))
    (unless (keywordp module-name)
      (get-module (symbol-name module-name)))
    (gethash module-name *bot-modules*))
  
  (defun package-symbol (package)
    "Returns the symbol of a package."
  
negative.code: (defmethod dispatch ((module module) (event command-event) &key)
    (let ((handler (gethash (command event) (commands module))))
      (when handler
        (v:trace (name module) "Dispatching: ~a" event)
        (with-module-thread module
          (handler-case
              (funcall (cmd-fun handler) module event)
  