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