anchor.diff:  						'()
   						`((setq ,supplied-p-temp t)))
   					  (return (,arg-op (1+ ,counter))))
  -					(incf ,counter 2)
  +					(setq ,counter (+ ,counter 2))
   					(go again)
   				      out)
   				     ,init-form)))
  
positive.code: 		(error "invalid keyword ~s" (,arg-op ,counter)))
  	      ;; Come here if the current keyword is not invalid.
  	      ;; Try the next one.
  	      (incf ,counter 2)
  	      (go again))))))))
  
  (defun check-arg-count
  
negative.code: 		      (go phase2))
  		  ;; The keyword we found is something other than
  		  ;; :allow-other-keys.  Try the next one.
  		  (progn (setq ,counter (+ ,counter 2))
  			 (go phase1)))
  	    phase2
  	      ;; Start over from the first keyword argument.
  