anchor.diff:        ; Remove second of (setf x y y x).
   	  ((and (%setq? a)
   			(%setq? d.)
  +			(atomic? .a.)
   			(eq .a. (third d.))
   			(eq (second d.) ..a.))
   	     (cons a (opt-peephole-remove-void .d)))
  
positive.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)
  
negative.code: 					             x))
  					   (funcall
  						 (compose #'reduce-tags
  								  #'remove-code
  								  #'opt-peephole-remove-void
  								  )
  						 x))))
  
  