anchor.diff:  
   ;;;; LAMBDA EXPANSION
   
  +; XXX remove this
  +(defvar *is-imported-funinfo* nil)
  +
   (defun transpiler-lambda-expand-one (tr x)
     (with (forms (argument-expand-names
   			       'transpiler-lambda-expand
   			       (lambda-args x.))
  -         imported	(transpiler-current-funinfo tr)
  +         imported	(unless *is-imported-funinfo* ; XXX
  +					  (transpiler-current-funinfo tr))
            fi			(or imported
   						(make-funinfo :env forms
   							  		  :args forms)))
  
positive.code: 				   fi
                     (lambda-body x.)
                     (transpiler-lambda-export? tr)))
            (dolist (e (funinfo-closures fi))
              (transpiler-add-exported-closure tr e. .e)
              (transpiler-add-wanted-function tr e.)))))
  
  (defun transpiler-lambda-expand (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))))
  
  (defun transpiler-expression-expand (tr x)
    (expression-expand (transpiler-expex tr) x))
  
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 _)
  
  