anchor.diff:      (lambda? x)
   	  (if export-lambdas?
             (lambda-export fi x)
  -		  (lambda-w/-missing-funinfo x (make-funinfo :args (lambda-args x)
  -												    :parent fi)))
  +		  (lambda-w/-missing-funinfo x (lambda-make-funinfo (lambda-args x) fi)))
   	x))
   
   (defun lambda-expand-tree-0 (fi body export-lambdas?)
  
positive.code: 			       (lambda-args x))
           imported	(get-lambda-funinfo x)
           fi			(or imported
  						(make-funinfo :parent *global-funinfo*
  									  :args forms)))
      (values
  	    `(function ,@(awhen function-name
  					   (setf (funinfo-name fi) !)
  
negative.code: 
  (defun lambda-export-make-exported (fi x)
    (with-gensym exported-name
      (let fi-child (lambda-make-funinfo (lambda-args x) fi)
  	  (when (transpiler-stack-locals? *current-transpiler*)
  		(funinfo-make-ghost fi-child))
  	  (lambda-expand-tree fi-child (lambda-body x) t)
  