anchor.diff:  	      (accept 'form :stream stream :view view :prompt nil :history 'command-or-form)))
         (t
          (funcall (cdar *input-context*) object type event options)))))
  -
  
positive.code:                           (declare (ignore foo))
                            *unsupplied-argument-marker*)
                        (required-args parser))))))
    
  ;;; XXX The spec says that GESTURE may be a gesture name, but also that the
  ;;; default test is event-matches-gesture-name-p.  Uh...
  
  
negative.code: 							  ".~A-ARG~D."
  							  command-name
  							  arg-index)
  						  (symbol-package command-name))))
  		     (multiple-value-bind (gesture translator-options)
  			 (if (listp gesture)
  			     (values (car gesture) (cdr gesture))
  