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