X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=b8f469757466acf37883a6c42ba3f416053ccb3c;hb=7fd2eb4b1bc68e8aaec233c4a39bdfc40225bda2;hp=410fdfd151f52c3c0a8a2323798450851db68ca5;hpb=667ec9d494530079bef28e8589dd0d3274b935ec;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 410fdfd..b8f4697 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -742,15 +742,15 @@
   (depart-from-tail-set fun)
 
   (let* ((home (node-home-lambda call))
-	 (home-env (lambda-environment home)))
+	 (home-env (lambda-physenv home)))
     (push fun (lambda-lets home))
     (setf (lambda-home fun) home)
-    (setf (lambda-environment fun) home-env)
+    (setf (lambda-physenv fun) home-env)
 
     (let ((lets (lambda-lets fun)))
       (dolist (let lets)
 	(setf (lambda-home let) home)
-	(setf (lambda-environment let) home-env))
+	(setf (lambda-physenv let) home-env))
 
       (setf (lambda-lets home) (nconc lets (lambda-lets home)))
       (setf (lambda-lets fun) ()))