From 8bf6b9117ea815aefde26267abc197c5932b3f67 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 2 Aug 2008 17:22:22 +0200 Subject: [PATCH] Improved computation of closures --- src/cmp/cmpflet.lsp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/cmp/cmpflet.lsp b/src/cmp/cmpflet.lsp index 0794f7597..da3b9ff7f 100644 --- a/src/cmp/cmpflet.lsp +++ b/src/cmp/cmpflet.lsp @@ -107,10 +107,9 @@ ;; ...or if it directly calls a function (dolist (f funs) ;; .. which has a full closure - (when (not (child-p f fun)) - (case (fun-closure fun) - (CLOSURE (setf closure 'CLOSURE)) - (LEXICAL (unless closure (setf closure 'LEXICAL)))))) + (case (fun-closure f) + (CLOSURE (setf closure 'CLOSURE)) + (LEXICAL (unless closure (setf closure 'LEXICAL))))) ;; ...or the function itself is referred across CB (when closure (when (or (fun-ref-ccb fun)