anchor.diff:         (cdrlist (argument-expand fun def vals)))))
   
   (defun expex-argdef (fun)
  -  (| (funinfo-get-local-function-args *funinfo* fun)
  -     (transpiler-function-arguments *transpiler* fun)))
  +;  (| (funinfo-get-local-function-args *funinfo* fun) ; XXX Doesn't work, yet.
  +     (transpiler-function-arguments *transpiler* fun))
   
   (defun expex-argexpand (x)
     (with (new?   (%new? x)
   		 fun    (? new? .x. x.)
   		 args   (? new? ..x .x)
   	     eargs  (? (defined-function fun)
  -                   (argument-expand-values-compiled fun (expex-argdef fun) args)
  +                   (compiled-arguments fun (expex-argdef fun) args)
                      args))
   	`(,@(& new? '(%new)) ,fun ,@(expand-literal-characters eargs))))
   
  
positive.code: 
  ;;;; MOVING ARGUMENTS
  
  (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 #'append moved) new-expr)))
  
  (defun expex-move-slot-value (x)
    (with ((moved new-expr) (expex-filter-and-move-args (list .x.)))
      (values moved `(%slot-value ,new-expr. ,..x.))))
  
  (defun expex-move-args (x)
    (? (%slot-value? x)
  	 (expex-move-slot-value x)
  	 (expex-filter-and-move-args x)))
  
  
  ;;;; EXPRESSION EXPANSION
  
negative.code:   (values nil nil))
  
  (defun expex-%%go-nil (x)
    (with ((moved new-expr) (expex-move-args (list ..x.)))
      (values moved `((%%go-nil ,.x. ,@new-expr)))))
  
  (defun expex-expr-%= (x)
  