anchor.diff:  ;;;; XXX clean-up plan
   ;;;; Make this functions a layer of FUNINFO to get rid of the first
   ;;;; FI argument as well as the FUNINFO prefixes.
  +
  +(defun lambda-make-funinfo (args parent)
  +  (let fi (make-funinfo :args args
  +					    :parent parent)
  +	(funinfo-env-add fi '~%ret)
  +	fi))
   
   (defvar *lambda-exported-closures* nil)
   
  
positive.code: 
  (defun lambda-export-make-exported (fi x)
    (with-gensym exported-name
      (let fi-child (make-funinfo :parent fi
  								:args (lambda-args x))
  	  (when (transpiler-stack-locals? *current-transpiler*)
  		(funinfo-make-ghost fi-child))
  	  (lambda-expand-tree fi-child (lambda-body x) t)
  
negative.code:     (lambda? x)
  	  (if export-lambdas?
            (lambda-export fi x)
  		  (lambda-w/-missing-funinfo x (lambda-make-funinfo (lambda-args x) fi)))
  	x))
  
  (defun lambda-expand-tree-0 (fi body export-lambdas?)
  