anchor.diff:    (make-function-epilogue fi
         (lambda-expand-transform fi body export-lambdas)))
   
  -(defun lambda-embed-or-export (fi body export-lambdas)
  -  (when export-lambdas
  -    (lambda-expand-tree fi body export-lambdas))
  -  (lambda-embed-or-export-transform fi body export-lambdas))
  -
   (defun lambda-expand-0 (x export-lambdas)
     (with (forms (argument-expand-names
   			       'transpiler-lambda-expand
  
positive.code:   (with-gensym name
      (let fi-child (make-funinfo :parent fi
  								:args (lambda-args x))
  	  (lambda-export-rename fi fi-child)
  	  (lambda-expand-add-closure
            `((defun ,name ,(append (make-lambda-funinfo fi-child)
  							      (lambda-args x))
  
negative.code: 	        (funinfo-env fi))))
  
  (defun make-copiers-to-lexicals (fi)
    (let-when lexicals (funinfo-lexicals fi)
  	(let lex-sym (print (place-expand fi (print (funinfo-lexical fi))))
        `((%setq ,lex-sym (make-array ,(length lexicals)))
          ,@(mapcan (fn (awhen (funinfo-lexical-pos fi _)
  				  	    `((%set-vec ,lex-sym ,! ,_))))
  				  (append (list (funinfo-lexical fi))
  						  (funinfo-args fi)))))))
  
  (defun make-function-epilogue (fi body)
    `(,@(when (atom body.) ; Preserve first atom.
  