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: 			  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)
  
negative.code: 			     keyword-args))
    (let ((key-possibilities (gensym "KEY-POSSIBILITIES"))
  	(member-ptype (gensym "MEMBER-PTYPE"))
  	(key-result (gensym "KEY-RESULT"))
  	(val-result (gensym "VAL-RESULT")))
      `(let ((,key-possibilities nil))
         ,@(mapcar #'(lambda (key-arg)
  		     (destructuring-bind (name ptype
  					  &key (when t) &allow-other-keys)
  