anchor.diff:        (run-async command))))
   
   (define-command execute-extended-command ()
  -   "Execute a command by name, also supply optional parameters."
  +   "Execute a command by name, also supply required, optional, and
  +keyword parameters."
      (let* ((command (prompt-minibuffer
                       :input-prompt "Execute extended command"
                       :suggestion-function (command-suggestion-filter
  
positive.code:                (loop for argument in optional-arguments
                       collect (read-from-string
                                (prompt-minibuffer
                                 :input-prompt (first argument)))))))
       (setf (access-time command) (get-internal-real-time))))
  
  (defun hook-suggestion-filter ()
  
negative.code:           (required-arguments (nth-value 0 (alex:parse-ordinary-lambda-list
                                              argument-list)))
            (optional-arguments (nth-value 1 (alex:parse-ordinary-lambda-list
                                              argument-list)))
            (key-arguments (nth-value 3 (alex:parse-ordinary-lambda-list
                                         argument-list))))
       (apply command-symbol
              (append
               (when required-arguments
  