anchor.diff:  	        (funinfo-env fi))))
   
   (defun make-copiers-to-lexicals (fi)
  -  (let lexicals (funinfo-lexicals fi)
  -	(when lexicals
  -	  (let lex-sym (place-expand fi (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))))))))
  +  (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.
  
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:     (values
  	    `#'(,@(make-lambda-funinfo-if-missing x. fi)
  		    ,(lambda-args x.)
              ,@(lambda-embed-or-export-transform
  				       fi
                         (lambda-body x.)
  				       export-lambdas))
  