anchor.diff:  			       (lambda-args x))
            imported	(get-lambda-funinfo x)
            fi			(or imported
  -						(make-funinfo :parent *global-funinfo*
  -									  :args forms)))
  +						(lambda-make-funinfo forms *global-funinfo*)))
       (values
   	    `(function ,@(awhen function-name
   					   (setf (funinfo-name fi) !)
  
positive.code:     (lambda? x)
  	  (if export-lambdas?
            (lambda-export fi x)
  		  (lambda-w/-missing-funinfo x (make-funinfo :args (lambda-args x)
  												    :parent fi)))
  	x))
  
  (defun lambda-expand-tree-0 (fi body export-lambdas?)
  
negative.code: ;;;; 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)
  
  