anchor.diff:  			       accept-keys))))))
         `(defun ,name (,stream-var)
   	(let ,(mapcar #'(lambda (arg)
  -			  `(,arg *unsupplied-argument-maker*))
  +			  `(,arg *unsupplied-argument-marker*))
   		      required-arg-names)
   	  (block activated
   	    (let ((gesture (read-gesture :stream ,stream-var
  
positive.code: (defparameter *command-parser-table* (make-hash-table)
    "Mapping from command names to argument parsing functions.")
  
  (defvar *unsupplied-argument-maker* (cons nil nil))
  
  (defvar *command-name-delimiters* '(command-delimiter))
  
  
negative.code: 				    (view textual-view)
  				    &key (default nil defaultp) default-type)
    (let ((command (funcall *command-parser* command-table stream)))
      #+nil
      (progn
        (format *debug-io* "~&; Command accepted: ~S.~%" command)
        (finish-output *debug-io*))
      (cond ((and (null command) defaultp)
  	   (values default default-type))
  	  ((null command)
  	   (simple-parse-error "Empty command"))
            ((partial-command-p command)
             (funcall *partial-command-parser*
              command-table stream command
              (position *unsupplied-argument-marker* command)))
  	  (t (values command type)))))
  
  (defmacro define-presentation-to-command-translator
  