anchor.diff:    (or (eq '%%no-argexp argdef)
   	  (funcall (expex-plain-arg-fun? ex) fun)))
   
  -(defun expex-argexpand-do (ex fun args)
  +(defun expex-argexpand-0 (ex fun args)
     (funcall (expex-function-collector ex) fun args)
     (let argdef (funcall (expex-function-arguments ex) fun)
       (if (expex-expandable-args? ex fun argdef)
  
positive.code: (defun expex-args (ex x)
    (with ((moved new-expr) (assoc-splice (mapcar (fn expex-assignment ex _)
  										        x)))
      (values (apply #'append moved)
  			new-expr)))
  ;;
  
negative.code: 
  (defun expex-argexpand (ex fun args)
    (if (funcall (expex-function? ex) fun)
  	  (expex-argexpand-0 ex fun args)
  	  args))
  
  (defun expex-assignment-inline (ex x)
  