anchor.diff:  				   fi
                      (lambda-body x.)
                      (transpiler-lambda-export? tr)))
  +		  ; XXX not so good....
  +		  ; Avoid prepared FUNINFO from lambda-expansion.
  +          (when imported
  +			(setf *is-imported-funinfo* t))
             (dolist (e (funinfo-closures fi))
               (transpiler-add-exported-closure tr e. .e)
               (transpiler-add-wanted-function tr e.)))))
   
  -(defun transpiler-lambda-expand (tr x)
  +(defun transpiler-lambda-expand-0 (tr x)
     "Expand top-level LAMBDA expressions."
     (if (atom x)
   	  x
   	  (cons (if (lambda? x.)
   				(transpiler-lambda-expand-one tr x)
  -				(transpiler-lambda-expand tr x.))
  -		    (transpiler-lambda-expand tr .x))))
  +				(transpiler-lambda-expand-0 tr x.))
  +		    (transpiler-lambda-expand-0 tr .x))))
  +
  +(defun transpiler-lambda-expand (tr x)
  +  (setf *is-imported-funinfo* nil)
  +  (transpiler-lambda-expand-0 tr x))
   
   (defun transpiler-expression-expand (tr x)
     (expression-expand (transpiler-expex tr) x))
  
positive.code: 
  ;;;; LAMBDA EXPANSION
  
  (defun transpiler-lambda-expand-one (tr x)
    (with (forms (argument-expand-names
  			       'transpiler-lambda-expand
  			       (lambda-args x.))
           imported	(transpiler-current-funinfo tr)
           fi			(or imported
  						(make-funinfo :env forms
  							  		  :args forms)))
  
negative.code:     ; Make (SLOT-VALUE this ...) expressions for class members.
      (fn thisify (transpiler-thisify-classes tr) _)
  
  	; Inline local functions and export constant LAMBDA expressions.
      (fn transpiler-lambda-expand tr _)
  
  