anchor.diff:    (mapcar (fn (funcall (expex-argument-filter ex) _)) x))
   
   ;;;; UTILS
  +
  +(defun expex-make-%setq (ex plc val)
  +  (expex-guest-filter-setter ex `(%setq ,plc ,(peel-identity val))))
   
   (defun expex-funinfo-env-add ()
     (let s (expex-sym)
  
positive.code:       (when (lambda-expression-needing-cps? x)
          (transpiler-add-cps-function *current-transpiler* s))
        (cons (append moved
  		    		(if (expex-returnable? ex new-expr.)
  		        		(expex-guest-filter-setter ex `(%setq ,s ,@new-expr))
  			    		new-expr))
    	        s)))
  
  (defun expex-move-arg-atom (ex x)
    (let s (expex-funinfo-env-add)
      (cons (expex-guest-filter-setter ex `((%setq ,s ,x)))
            s)))
  
  (defun expex-move-arg (ex x)
    (?
  
negative.code: 
  (defun expex-expr-setq (ex x)
    (with ((moved new-expr) (expex-move-args ex ..x))
  	(values moved (expex-make-%setq ex .x. new-expr.))))
  
  (defun expex-lambda (ex x)
    (with-temporary *expex-funinfo* (get-lambda-funinfo x)
  