anchor.diff:  		       again
   			 (when (= n ,first-count)
   			   (go out))
  -			 (decf n)
  -			 (push (,arg-op n) temp)
  +			 (setq n (1- n))
  +			 (setq temp (cons (,arg-op n) temp))
   			 (go again)
   		       out)
   		      temp)))))
  
positive.code: 						'()
  						`((setq ,supplied-p-temp t)))
  					  (return (,arg-op (1+ ,counter))))
  					(incf ,counter 2)
  					(go again)
  				      out)
  				     ,init-form)))
  
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.
  