From c2967e80dd5f8e7270b9ad62b165ff6507d32b64 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 17 Oct 1990 19:18:06 +0000
Subject: [PATCH] In IR2-CONVERT-CLOSURE, create an ENTRY-INFO to represent a
 forward reference if the function doesn't yet have any LEAF-INFO.

---
 compiler/ir2tran.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp
index a600acfb2..b8d538cc6 100644
--- a/compiler/ir2tran.lisp
+++ b/compiler/ir2tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.22 1990/09/07 15:20:58 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.23 1990/10/17 19:18:06 ram Exp $
 ;;;
 ;;;    This file contains the virtual machine independent parts of the code
 ;;; which does the actual translation of nodes to VOPs.
@@ -195,6 +195,8 @@
 (defun ir2-convert-closure (node block leaf res)
   (declare (type ref node) (type ir2-block block)
 	   (type functional leaf) (type tn res))
+  (unless (leaf-info leaf)
+    (setf (leaf-info leaf) (make-entry-info)))
   (let ((entry (make-load-time-constant-tn :entry leaf)))
     (cond ((and (lambda-p leaf)
 		(environment-closure (lambda-environment leaf)))
-- 
GitLab