anchor.diff:  (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))))))
  +			(list (expex-guest-filter-setter ex `(%setq ,.x. ,@new-expr))))))
   
   ;; Expand LAMBDA
   ;;
  
positive.code: 					(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)))))))
  		x)))
  
  (defun expex-save-atoms (x)
  
negative.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)))
  
  