anchor.diff:  					     ,@args)
   					   args)))))))
   
  -(defun make-key-acceptors (stream keyword-args)
  +(defun make-key-acceptors (stream keyword-args key-results)
     ;; We don't use the name as a variable, and we do want a symbol in the
     ;; keyword package.
     (when (null keyword-args)
  
positive.code: 							    arg))
  				(eat-delimiter-or-activator))))
  			 required-args)
  	       (setq ,key-results ,(make-key-acceptors stream-var
  						       keyword-args)))))
  	 (list* ,@required-arg-names ,key-results)))))
  
  (defun make-command-translators (command-name command-table args)
  
negative.code: 			  keyword-args))))
  	       (setq ,key-results (list* ,key-result
  					 ,val-result
  					 ,key-results)))	     
  	     (eat-delimiter-or-activator))))
         
         ,key-results)))
  
  (defun make-argument-accept-fun (name required-args keyword-args)
  