anchor.diff:                   (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)))))))
  +                     (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 (arguments handler) :command (identifier handler)))
  +                           (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))))
  +                   T))))))
   (set-handler-function :command-dispatcher 'events:command-event #'dispatch-command)
   
   (defun no-command-matched (event &rest args)
  
positive.code:     (setf module-name (get-current-module-name)))
    (let ((funcsym (gensym "FUNCTION")))
      (flet ((mksymb (list)
               (let ((name (format NIL "~{~a^ ~}" list)))
                 (or (find-symbol name) (intern name)))))
        `(let ((,funcsym #'(lambda (,eventvar ,@args)
                              ,@(when authorization
  
negative.code:                                  `(progn ,@body)))))
           ,(if (listp name)
                (let ((group (car name))
                      (name (mksymb 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))))))
  