anchor.diff:  				    (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
  
positive.code: 			       accept-keys))))))
        `(defun ,name (,stream-var)
  	(let ,(mapcar #'(lambda (arg)
  			  `(,arg *unsupplied-argument-maker*))
  		      required-arg-names)
  	  (block activated
  	    (let ((gesture (read-gesture :stream ,stream-var
  
negative.code: 	(let ((command (accept `(command :command-table ,command-table)
  			       :stream stream
  			       :prompt nil)))
  	  (if (partial-command-p command)
  	    (progn
  	      (beep)
  	      (format *query-io* "~&Argument ~D not supplied.~&"
  		      (position *unsupplied-argument-marker* command))
  	      nil)
  	    command))
        ((or simple-parse-error input-not-of-required-type)  (c)
  