anchor.diff:                 ~:[No docstring available.~;Docstring: ~:*~a~]~%~
                  Commands in this group: ~{~a~^, ~}"
             (identifier handler) (pattern handler) (docstring handler) (subcommands handler)))
  -
  -(defun escape-regex-symbols (string)
  -  (cl-ppcre:regex-replace-all "([\\\\\\^\\$\\.\\|\\?\\*\\+\\(\\)\\[\\]\\{\\}])" string '("\\" 0)))
   
   (defmacro define-group (name &key documentation pattern subcommands)
     (unless pattern
  
positive.code:                            T))))))))))
  (set-handler-function :command-dispatcher 'events:command-event #'dispatch-command)
  
  (defun no-command-matched (event)
    (respond event (fstd-message event :no-command "No such command.")))
  (set-command-function :no-command "" #'no-command-matched
                        :arguments () :priority :LAST
                        :docstring "Catchall command handler for when no command matched.")
  
  
  (defclass group-handler (command-handler)
    ((%subcommands :initarg :subcommands :initform () :accessor subcommands))
  
negative.code:      ,(when subcommands
          `(setf (subcommands (command-handler ',name)) ,subcommands))))
  
  (defmacro define-command (name (&rest args) (&key authorization documentation (eventvar 'event) module-name (modulevar 'module) pattern (priority :DEFAULT)) &body body)
    (unless pattern
      (setf pattern (if (listp name)
                        (format NIL "^~{~a~^ ~}(.*)" name)
  