0.8.19.30: less COMPILE-FILE verbosity

[sbcl.git] / src / compiler / vop.lisp

diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp
index bf743c2..5395e23 100644 (file)
--- 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))