anchor.diff:        (accelerator-gesture (c)
           ;; If lookup-keystroke-item below returns a partial command, invoke the
           ;; partial command parser to complete it.
  -        (let ((command                            
  +        (let ((command
                  (lookup-keystroke-command-item (accelerator-gesture-event c)
                                                 command-table)))
             (if (partial-command-p command)
  
positive.code: 			 ;; XXX What about the :menu case?
  			 (otherwise nil))))
  	  (if command
                ; Return a literal command, or create a partial command from a command-name              
  	      (substitute-numeric-argument-marker (if (symbolp command)
                                                        (partial-command-from-name command)
                                                        command)
  
negative.code: 				      &key (stream *standard-input*)
  				      (command-parser *command-parser*)
  				      (command-unparser *command-unparser*)
  				      (partial-command-parser *partial-command-parser*))
    (let ((*command-parser* command-parser)
  	(*command-unparser* command-unparser)
  	(*partial-command-parser* partial-command-parser)
  