anchor.diff:  							  ".~A-ARG~D."
   							  command-name
   							  arg-index)
  -						  (symbol-package name))))
  +						  (symbol-package command-name))))
   		     (multiple-value-bind (gesture translator-options)
   			 (if (listp gesture)
   			     (values (car gesture) (cdr gesture))
  
positive.code: 	      (accept 'form :stream stream :view view :prompt nil :history 'command-or-form)))
        (t
         (funcall (cdar *input-context*) object type event options)))))
  
  
negative.code: 		      :initarg :argument-unparser)
     (required-args :accessor required-args :initarg :required-args)
     (keyword-args :accessor keyword-args :initarg :keyword-args))
  
    (:documentation "A container for a command's parsing functions and
    data for unparsing"))
  
  