anchor.diff:  
   (defun lambda-export (fi x)
     (with (exported-name (lambda-export-make-exported-name)
  -         fi-exported (lambda-make-funinfo (lambda-args x) fi))
  +         fi-exported   (lambda-make-funinfo (lambda-args x) fi))
       (funinfo-make-ghost fi-exported)
       (lambda-expand-tree fi-exported (lambda-body x))
       (let argdef (funinfo-args fi-exported)
  
positive.code: ;;;; PASSTHROUGH
  
  (defun lambda-expand-tree-unexported-lambda (fi x)
    (with (new-fi (| (& (lambda-funinfo x) (get-lambda-funinfo x))
  				   (lambda-make-funinfo (lambda-args x) fi))
  		 body (lambda-expand-tree-0 new-fi (lambda-body x)))
  	(copy-lambda x :info new-fi :body body)))
  
  
  
negative.code: 
  (defun lambda-make-funinfo (args parent)
    (with (argnames (argument-expand-names 'lambda-expand args)
           fi       (make-funinfo :argdef     args
                                  :args       argnames
                                  :parent     parent
                                  :transpiler *transpiler*))
      (funinfo-var-add fi '~%ret)
      (& (transpiler-copy-arguments-to-stack? *transpiler*)
         (funinfo-var-add-many fi argnames))
  