anchor.diff:  (defun expex-filter-and-move-args (x)
     (expex-import-variables x)
     (with ((moved new-expr) (assoc-splice (@ #'expex-move (expex-guest-filter-arguments x))))
  -    (values (apply #'+ moved) new-expr)))
  +    (values (apply #'append moved) new-expr)))
   
   (defun expex-move-slot-value (x)
     (with ((moved new-expr) (expex-filter-and-move-args (list .x.)))
  
positive.code: (defun expex-make-%= (plc val)
    (when (atom val)
      (= val (funcall (expex-argument-filter *expex*) val)))
    (+ (? (%=? val)
          (expex-guest-filter-setter val))
       (expex-guest-filter-setter `(%= ,plc ,(? (%=? val)
                                                (%=-place val)
                                                val)))))
  
  (defun expex-funinfo-var-add ()
    (aprog1 (expex-sym)
  
negative.code: (defun expex-move-std (x)
    (with (s                (expex-funinfo-var-add)
           (moved new-expr) (expex-expr x))
      (. (append moved
                 (? (has-return-value? new-expr.)
                    (expex-make-%= s new-expr.)
                    new-expr))
         s)))
  
  (defun expex-inlinable? (x)
  