X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fstack.lisp;h=00dd5a6e30860a1ffa412cc5586c48d9a76ed791;hb=012fbee7176df4472ef4add1a7df558d762bc4f6;hp=508b6ef6830b9430b2f48f7a135ed8c994b0907f;hpb=d147d512602d761a2dcdfded506dd1a8f9a140dc;p=sbcl.git

diff --git a/src/compiler/stack.lisp b/src/compiler/stack.lisp
index 508b6ef..00dd5a6 100644
--- a/src/compiler/stack.lisp
+++ b/src/compiler/stack.lisp
@@ -100,7 +100,7 @@
 	(dolist (pred (block-pred block))
 	  (if (eq pred (component-head (block-component block)))
 	      (aver (find block
-			  (environment-nlx-info (block-environment block))
+			  (physenv-nlx-info (block-physenv block))
 			  :key #'nlx-info-target))
 	      (let ((pred-stack (ir2-block-end-stack (block-info pred))))
 		(unless (tailp new-stack pred-stack)