anchor.diff:            (required-arguments (nth-value 0 (alex:parse-ordinary-lambda-list
                                               argument-list)))
             (optional-arguments (nth-value 1 (alex:parse-ordinary-lambda-list
  -                                            argument-list))))
  +                                            argument-list)))
  +          (key-arguments (nth-value 3 (alex:parse-ordinary-lambda-list
  +                                       argument-list))))
        (apply command-symbol
               (append
                (when required-arguments
  
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:       (run-async command))))
  
  (define-command execute-extended-command ()
     "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
  