anchor.diff:  		  (progn
   		    (setf (values (whole result) positions)
   			  (parse-whole lambda-list positions))
  -		    (if (eq (cadddr lambda-list) '&environment)
  +		    (if (eq (caddr lambda-list) '&environment)
   			(progn
   			  (setf (values (environment result) positions)
   				(parse-environment lambda-list positions))
  
positive.code: 		  (progn
  		    (setf (values (whole result) positions)
  			  (parse-whole lambda-list positions))
  		    (if (eq (cadddr lambda-list) '&environment)
  			(progn
  			  (setf (values (environment result) positions)
  				(parse-environment lambda-list positions))
  
negative.code: 		  (progn
  		    (setf (values (whole result) positions)
  			  (parse-whole lambda-list positions))
  		    (if (eq (caddr lambda-list) '&environment)
  			(progn
  			  (setf (values (environment result) positions)
  				(parse-environment lambda-list positions))
  