X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvop.lisp;h=f61ed9b371c1210d21eb6ee48e59711a2c8384b6;hb=3a2c2a2217f77e0d1a44a581c83e0311ebc2594a;hp=bf743c206e821b88f828770b180b82f84a253b54;hpb=bffa99d35c7d50ac46b9eb7dbe25d1ab1a0e6145;p=sbcl.git

diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp
index bf743c2..f61ed9b 100644
--- a/src/compiler/vop.lisp
+++ b/src/compiler/vop.lisp
@@ -319,8 +319,9 @@
 ;;; this case the slots aren't actually initialized until entry
 ;;; analysis runs.
 (defstruct (entry-info (:copier nil))
-  ;; Does this function have a non-null closure environment?
-  (closure-p nil :type boolean)
+  ;; TN, containing closure (if needed) for this function in the home
+  ;; environment.
+  (closure-tn nil :type (or null tn))
   ;; a label pointing to the entry vector for this function, or NIL
   ;; before ENTRY-ANALYZE runs
   (offset nil :type (or label null))
@@ -422,8 +423,7 @@
   save-sp
   dynamic-state)
 
-(defstruct (cloop (:print-function print-cloop)
-		  (:conc-name loop-)
+(defstruct (cloop (:conc-name loop-)
 		  (:predicate loop-p)
 		  (:constructor make-loop)
 		  (:copier copy-loop))
@@ -456,7 +456,7 @@
   ;; on INFERIORS to find all the blocks.
   (blocks nil :type (or null cblock)))
 
-(defprinter (cloop :conc-name LOOP-)
+(defprinter (cloop :conc-name loop-)
   kind
   head
   tail