anchor.diff:      (setf module-name (get-current-module-name)))
     (let ((funcsym (gensym "FUNCTION")))
       (flet ((mksymb (list)
  -             (let ((name (format NIL "~{~a^ ~}" list)))
  +             (let ((name (format NIL "~{~a~^ ~}" list)))
                  (or (find-symbol name) (intern name)))))
         `(let ((,funcsym #'(lambda (,eventvar ,@args)
                               ,@(when authorization
  
positive.code:                                  `(progn ,@body)))))
           ,(if (listp name)
                (let ((group (car name))
                      (name (mksymb (cdr name))))
                  `(progn
                     ,(if (command-handler group)
                          `(pushnew ',name (subcommands (command-handler ',group)))
                          `(progn (warn 'implicit-group-definition :group ',group)
                                  (define-group ',group :subcommands (list ',name))))
                     (set-command-function ',name ,pattern ,funcsym :arguments ',args :priority ,priority :docstring ,documentation)))
                `(set-command-function ',name ,pattern ,funcsym :arguments ',args :priority ,priority :docstring ,documentation))))))
  
negative.code:                  (multiple-value-bind (match groups) (cl-ppcre:scan-to-strings (scanner handler) (message event))
                     (when match
                       (v:trace :command "Event ~a matched ~a." event handler)
                       (let ((args (split-sequence #\Space (string-trim " " (aref groups (1- (length groups)))) :remove-empty-subseqs T)))
                         (with-repeating-restart (recheck-command "Try checking the arguments again.")
                           (unless (arguments-match-p (arguments handler) args)
                             (error 'invalid-arguments :argslist args :expected (arguments handler) :command (identifier handler)))
                           (with-repeating-restart (retry-command "Retry dispatching to ~a" handler)
                             (v:debug :command "Dispatching ~a to ~a." event handler)
                             (setf (cancelled event) T) ; Cancel by default
                             (apply (handler-function handler) event args)
                             (setf (handled event) T)
                             T))))
                     T))))))
  (set-handler-function :command-dispatcher 'events:command-event #'dispatch-command)
  
  (defun no-command-matched (event &rest args)
  