anchor.diff:  					(if (eq s (second last.))
   				        (list (expex-guest-filter-setter ex last.))
   						(expex-make-setq-copy ex last s))
  -				    (list (expex-guest-filter-setter ex
  -							  `(%setq ,s ,@(or last
  -									  		   '(nil)))))))
  +				    (list (expex-guest-filter-setter ex `(%setq ,s ,@(or last '(nil)))))))
   		x)))
   
   (defun expex-save-atoms (x)
  
positive.code:         (transpiler-add-cps-function *current-transpiler* s))
        (cons (append moved
  		    		(if (expex-returnable? ex new-expr.)
  		        		(list (expex-guest-filter-setter ex
  								  `(%setq ,s ,@new-expr)))
  			    		new-expr))
    	        s)))
  
  
negative.code: (defun expex-expr-setq (ex x)
    (with ((moved new-expr) (expex-move-args ex (peel-%inline ..x)))
  	(values moved
  			(list (expex-guest-filter-setter ex `(%setq ,.x. ,@new-expr))))))
  
  ;; Expand LAMBDA
  ;;
  