From 44f12841858bfc14cb8b9f6c68a009fe8c7e6d74 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 7 Feb 1990 16:28:27 +0000
Subject: [PATCH] Oops...  In LEAF-VALUE, I was looking at the wrong closure to
 see if the environment was null.

---
 compiler/eval.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/eval.lisp b/compiler/eval.lisp
index fe4e16379..9c4b319dc 100644
--- a/compiler/eval.lisp
+++ b/compiler/eval.lisp
@@ -962,7 +962,7 @@
 	      (real-fun (c::functional-entry-function leaf))
 	      (arg-doc (c::functional-arg-documentation real-fun)))
 	 (cond ((c:lambda-eval-info-function (c::leaf-info leaf)))
-	       ((and (zerop (length closure))
+	       ((and (zerop (length calling-closure))
 		     (null (c::functional-fenv real-fun)))
 		(let* ((res (make-interpreted-function
 			     (c::functional-inline-expansion real-fun)))
-- 
GitLab