anchor.diff:  					   (funcall
   						 (compose #'reduce-tags
   								  #'remove-code
  +								  #'remove-assignments
   								  #'opt-peephole-remove-void)
   						 x))))
   
  
positive.code: 	  								    	(opt-peephole-remove-spare-tags
  												(opt-peephole-move-vars-to-front
  												    statements)))))))
  
negative.code: 				            (or (~%ret? p)
  				  		 	    (expex-sym? p)))
  						 (remove-code d)
  ;				       (or (~%ret? p)
  ;					       (expex-sym? p))
  ;				         (cons `(%setq ~%ret ,(%setq-value a))
  ;					 	       (remove-code d))
  					   (cons a (remove-code d)))))))
  
  	   remove-assignments
  	     #'((x)
  			  (opt-peephole-fun #'remove-assignments
  			    ((and d
  					  (%setq? a)
  					  (%setq? d.)
  					  (expex-sym? (%setq-place a))
  					  (eq (%setq-place a)
  						  (%setq-value d.)))
  				  (cons `(%setq ,(%setq-place d.) ,(%setq-value a))
  					    (remove-assignments .d)))))
  
  	   reduce-tags
  		 #'((x)
  