X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fentry.lisp;h=5f955ee78e23c49f9df5c73e50570522a3516cbd;hb=731d5dd65a7b94b5d49d1663d9b60c3a406ce38c;hp=248d83ed1cf1e9de314601a54aa0fcb0d2c9c9af;hpb=e6c4ea2ff29ce5e7ac334bdbbec222a2b27c4c7e;p=sbcl.git

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index 248d83e..5f955ee 100644
--- a/src/compiler/entry.lisp
+++ b/src/compiler/entry.lisp
@@ -36,8 +36,10 @@
   (declare (type clambda fun) (type entry-info info))
   (let ((bind (lambda-bind fun))
 	(internal-fun (functional-entry-fun fun)))
-    (setf (entry-info-closure-p info)
-	  (not (null (physenv-closure (lambda-physenv fun)))))
+    (setf (entry-info-closure-tn info)
+          (if (physenv-closure (lambda-physenv fun))
+              (make-normal-tn *backend-t-primitive-type*)
+              nil))
     (setf (entry-info-offset info) (gen-label))
     (setf (entry-info-name info)
 	  (leaf-debug-name internal-fun))