anchor.diff:  			  keyword-args))))
   	       (setq ,key-results (list* ,key-result
   					 ,val-result
  -					 ,key-results)))
  +					 ,key-results)))	     
   	     (eat-delimiter-or-activator))))
  +       
          ,key-results)))
   
   (defun make-argument-accept-fun (name required-args keyword-args)
  
positive.code: 			     keyword-args))
    (let ((key-possibilities (gensym "KEY-POSSIBILITIES"))
  	(member-ptype (gensym "MEMBER-PTYPE"))
  	(key-results (gensym "KEY-RESULTS"))
  	(key-result (gensym "KEY-RESULT"))
  	(val-result (gensym "VAL-RESULT")))
      `(let ((,key-possibilities nil)
  	   (,key-results nil))
         ,@(mapcar #'(lambda (key-arg)
  		     (destructuring-bind (name ptype
  					  &key (when t) &allow-other-keys)
  
negative.code: 					     ,@args)
  					   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)
  