X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=fe81a456458b227d96c6f6623b3015bccebbd32a;hb=986ce2596822cc0871b609346aaf592348aca596;hp=492d1cb23294699c9f3d3392f0a59ba2f87bd7a2;hpb=416152f084604094445a758ff399871132dff2bd;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index 492d1cb..fe81a45 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -825,16 +825,16 @@
 ;;; full call passing locations.
 (defun check-environment-lifetimes (component)
   (dolist (fun (component-lambdas component))
-    (let* ((env (lambda-environment fun))
-	   (2env (environment-info env))
+    (let* ((env (lambda-physenv fun))
+	   (2env (physenv-info env))
 	   (vars (lambda-vars fun))
-	   (closure (ir2-environment-environment 2env))
-	   (pc (ir2-environment-return-pc-pass 2env))
-	   (fp (ir2-environment-old-fp 2env))
+	   (closure (ir2-physenv-environment 2env))
+	   (pc (ir2-physenv-return-pc-pass 2env))
+	   (fp (ir2-physenv-old-fp 2env))
 	   (2block (block-info
 		    (node-block
 		     (lambda-bind
-		      (environment-function env))))))
+		      (physenv-function env))))))
       (do ((conf (ir2-block-global-tns 2block)
 		 (global-conflicts-next conf)))
 	  ((null conf))
@@ -903,7 +903,7 @@
   (def-frob *tn-id* *tn-ids* *id-tns* tn-id id-tn)
   (def-frob *label-id* *id-labels* *label-ids* label-id id-label))
 
-;;; Print out a terse one-line description of a leaf.
+;;; Print a terse one-line description of LEAF.
 (defun print-leaf (leaf &optional (stream *standard-output*))
   (declare (type leaf leaf) (type stream stream))
   (etypecase leaf
@@ -919,10 +919,7 @@
     (functional
      (aver (eq (functional-kind leaf) :top-level-xep))
      (format stream "TL-XEP ~S"
-	     (let ((info (leaf-info leaf)))
-	       (etypecase info
-		 (entry-info (entry-info-name info))
-		 (byte-lambda-info :byte-compiled-entry)))))))
+	     (entry-info-name (leaf-info leaf))))))
 
 ;;; Attempt to find a block given some thing that has to do with it.
 (declaim (ftype (function (t) cblock) block-or-lose))