anchor.diff:  		   :type-spec type-spec
   		   :end-form (cdr to)
   		   :by-form by
  -		   :termination-test (first to)))
  +		   :termination-test (car to)))
   	       'simple-var-parser
   	       'optional-type-spec-parser
   	       'by-parser
  
positive.code: 		   :start-form from
  		   :end-form (cdr to)
  		   :by-form by
  		   :termination-test (first to)))
  	       'simple-var-parser
  	       'optional-type-spec-parser
  	       (alternative 'to-parser 'downto-parser 'above-parser)
  
negative.code: 		   :type-spec type-spec
  		   :end-form (cdr to)
  		   :by-form by
  		   :termination-test (car to)))
  	       'simple-var-parser
  	       'optional-type-spec-parser
  	       (alternative 'to-parser 'upto-parser 'below-parser)
  