anchor.diff:  		(error "invalid keyword ~s" (,arg-op ,counter)))
   	      ;; Come here if the current keyword is not invalid.
   	      ;; Try the next one.
  -	      (incf ,counter 2)
  +	      (setq ,counter (+ ,counter 2))
   	      (go again))))))))
   
   (defun check-arg-count
  
positive.code: 						'()
  						`((setq ,supplied-p-temp t)))
  					  (return (,arg-op (1+ ,counter))))
  					(incf ,counter 2)
  					(go again)
  				      out)
  				     ,init-form)))
  
negative.code: 		       again
  			 (when (= n ,first-count)
  			   (go out))
  			 (setq n (1- n))
  			 (setq temp (cons (,arg-op n) temp))
  			 (go again)
  		       out)
  		      temp)))))
  