0.8.18.20:

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

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index 248d83e..5f955ee 100644 (file)
--- 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))