anchor.diff:           fi			(or imported
   						(lambda-make-funinfo forms *global-funinfo*)))
       (copy-lambda x
  -	    :name lambda-name
  -		:info fi
  -		:body (lambda-expand-tree fi (lambda-body x) export-lambdas?))))
  +	             :name lambda-name
  +		         :info fi
  +		         :body (lambda-expand-tree fi (lambda-body x) export-lambdas?))))
   
   (defun lambda-expand (x export-lambdas?)
     (with (lambda-exp-r
  
positive.code: 												args vals)))
  	  (funinfo-env-add-many fi a)
  	  (lambda-expand-tree fi
            (lambda-expand-make-inline-body a v body)
  		  export-lambdas?))))
  
  ;;; Export
  
  (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)
        (let argdef (append (awhen (funinfo-ghost fi-child)
  						    (list !))
  
negative.code: ;;;;; TRE compiler
  ;;;;; Copyright (c) 2005-2010 Sven Klose <pixel@copei.de>
  
  (defun lambda-make-funinfo (args parent)
    (with (argnames (argument-expand-names 'lambda-expand args)
           fi (make-funinfo :args argnames
  					      :parent parent))
  	(when (transpiler-stack-locals? *current-transpiler*)
        (funinfo-env-add-many fi argnames))
  	(funinfo-env-add fi '~%ret)
  	fi))
  
  