From af4d11afbf423a468538426f02ad4a9a49b901b0 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 7 Feb 1990 14:50:02 +0000
Subject: [PATCH] Added LAMBDA-EVAL-INFO-FUNCTION slot.

---
 compiler/eval-comp.lisp | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index 462b414a8..bd75e33ff 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -35,13 +35,8 @@
 
 (export '(compile-for-eval lambda-eval-info-frame-size
 	  lambda-eval-info-args-passed lambda-eval-info-entries
-	  entry-node-info-st-top entry-node-info-nlx-tag))
-
-;;; EVAL will pick off some special forms; for example, global variable
-;;; references, c::package-frobbers, etc.  I note this because the compilation
-;;; stuff EVAL's these forms instead of compiling code for them.
-;;;
-
+	  lambda-eval-info-function entry-node-info-st-top
+	  entry-node-info-nlx-tag))
 
 
 ;;; COMPILE-FOR-EVAL -- Public.
@@ -113,7 +108,8 @@
 					   (frame-size args-passed entries)))
   frame-size		;Number of stack locations needed to hold locals.
   args-passed		;Number of referenced arguments passed to lambda.
-  entries)		;A-list mapping entry nodes to stack locations.
+  entries		;A-list mapping entry nodes to stack locations.
+  (function nil))	;A function object corresponding to this lambda.
 
 (defun print-lambda-eval-info (obj str n)
   (declare (ignore n obj))
-- 
GitLab