anchor.diff:  (defun lambda-call-embed-0 (fi args vals body)
     (with ((a v) (assoc-splice (argument-expand 'dummy-in-lambda-call-embed args vals)))
       (funinfo-var-add-many fi a)
  -     (lambda-expand-tree fi (lambda-expand-make-inline-body a v body))))
  +    (lambda-expand-tree fi (lambda-expand-make-inline-body a v body))))
   
   (defun lambda-call-embed (fi lambda-call)
     (with-lambda-call (args vals body lambda-call)
  
positive.code: 
  (defun lambda-export (fi x)
    (with (exported-name (lambda-export-make-exported-name)
           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)
  
negative.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)))
  
  
  