mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 14:32:11 -08:00
Code Issues Projects Releases Packages Wiki Activity

Improved computation of closures

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-08-02 17:22:22 +02:00
parent 4cbc223f1a
commit 8bf6b9117e
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmpflet.lsp
View file

@ -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)