anchor.diff:  					             x))
   					   (funcall
   						 (compose #'reduce-tags
  -								  ;#'remove-code
  -								  ;#'opt-peephole-remove-void
  +								  #'remove-code
  +								  #'opt-peephole-remove-void
   								  )
   						 x))))
   
  
positive.code:       ; Remove second of (setf x y y x).
  	  ((and (%setq? a)
  			(%setq? d.)
  			(eq .a. (third d.))
  			(eq (second d.) ..a.))
  	     (cons a (opt-peephole-remove-void .d)))
  
negative.code: 
  (defun find-all (elm x)
    (find-all-if (fn (eq elm _))
  			   x))
  
  (defun opt-peephole-has-not-jumps-to (x tag)
    (dolist (i x t)
  