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:   (values nil nil))
  
  (defun expex-%%go-nil (x)
    (with ((moved new-expr) (expex-filter-and-move-args (list ..x.)))
      (values moved `((%%go-nil ,.x. ,@new-expr)))))
  
  (defun expex-expr-%= (x)
  
negative.code: 
  ;;;; ARGUMENT EXPANSION
  
  (defun compiled-arguments (fun def vals)
    (with (f [& _ `(. ,_. ,(f ._))])
      (@ [?
           (%rest-or-%body? _)  (f ._)
  