anchor.diff:                 :accessor-function #'symbol-name))
   
   (define-command execute-command ()
  -  "Execute a command by name"
  +  "Execute a command by name."
     (with-result (command (read-from-minibuffer
                            (minibuffer *interface*)
                            :input-prompt "Execute command:"
  
positive.code:                   (rest body)
                    body)))
      `(progn
         (defmethod ,name ,(cons `(,mode ,mode) arglist)
           ,documentation
           (when *interface*
  
negative.code:         append (ignore-errors
                  (closer-mop:generic-function-methods (symbol-function sym)))))
  
  (defun list-commands (&optional mode)
    "List commands.
  A command is a mode method that has a non-nil COMMANDP symbol property.
  When MODE is a mode symbol, list only the commands that apply in this mode.
  Otherwise list all commands."
    (loop for m in (package-methods)
          for first-specializer = (first (closer-mop:method-specializers m))
          when (and (member (closer-mop:generic-function-name (closer-mop:method-generic-function m))
                            %%command-list)
                    (closer-mop:subclassp first-specializer (find-class 'root-mode))
                    (or (not mode)
                        (closer-mop:subclassp (find-class mode) first-specializer)))
            collect m))
  
  (defun command-symbol (command)
    "Return the symbol of a command."
  