anchor.diff:  ;;;; PASSTHROUGH
   
   (defun lambda-expand-tree-unexported-lambda (fi x)
  -  (with (new-fi (| (& (lambda-funinfo x) (get-lambda-funinfo 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)))
  +		 body   (lambda-expand-tree-0 new-fi (lambda-body x)))
   	(copy-lambda x :info new-fi :body body)))
   
   
  
positive.code: (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))))
  
  (defun lambda-call-embed (fi lambda-call)
    (with-lambda-call (args vals body lambda-call)
  
negative.code:      (lambda? ..x.)
       (funinfo-add-local-function-args fi .x. (lambda-args ..x.)))
    (?
      (lambda-call? x) (lambda-call-embed fi x)
      (lambda? x)      (? (& (transpiler-lambda-export? *transpiler*)
                             (not (eq fi (transpiler-global-funinfo *transpiler*))))
                          (lambda-export fi x)
  		                (lambda-expand-tree-unexported-lambda fi x))
  	(lambda-expand-tree-0 fi x)))
  
  (defun lambda-expand-tree-0 (fi x)
    (?
  	(atom x)  x
  	(atom x.) (cons x. (lambda-expand-tree-0 fi .x))
      (progn
        (make-default-listprop x)
  