anchor.diff:  									(if (and (consp a)
   										 	(eq 'vm-go (first a)))
   						    			(cons a (remove-void (find-next-tag d)))
  -										; Shorten (%setq expexsym sth) (%setq %ret sth).
  -										(if (and (%setq? a) (%setqret? (car d))
  +;							(cons a (remove-void d))))))))))
  +										; Shorten (%setq expexsym sth) (%setq sth expexsym).
  +										(if (and (%setq? a) (%setq? (car d))
   												 (expex-sym? (second a))
   												 (eq (second a) (third (car d))))
  -											(cons `(%setq ~%ret ,(third a))
  +											(cons `(%setq ,(second (car d)) ,(third a))
   												   (remove-void (cdr d)))
   											(cons a (remove-void d)))))))))))
   
  
positive.code: 						; Don't set variable that will be modified anyway.
  						(if (and (%setq? a)
  							 	 (or (atom (third a))
  									 (get-slot? (third a))
  									 (%stack? (third a)))
  							 	 (will-be-set-again? d (second a)))
  							(remove-code d)
  
negative.code: 					            x))
  						(funcall
  						  (compose #'reduce-tags
  								   ;#'remove-code
  								   #'remove-void
  )
  						  x))))
  