diff --git a/compiler/node.lisp b/compiler/node.lisp index f26703d1738f5863993cb14f9b26cf651239c5c7..b3a23aa8a52d6ad79151e7149b745d9bfb9c341d 100644 --- a/compiler/node.lisp +++ b/compiler/node.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/node.lisp,v 1.32 1993/09/10 19:09:18 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/node.lisp,v 1.33 1994/01/05 16:33:24 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -447,9 +447,11 @@ (lambdas () :type list) ;; ;; A list of Functional structures for functions that are newly converted, - ;; and haven't been local-call analyzed yet. Unanalyzed functions aren't in - ;; the Lambdas list. Functions are moved into the Lambdas as they are - ;; analysed. + ;; and haven't been local-call analyzed yet. Initially functions are not in + ;; the Lambdas list. LOCAL-CALL-ANALYZE moves them there (possibly as LETs, + ;; or implicitly as XEPs if an OPTIONAL-DISPATCH.) Between runs of + ;; LOCAL-CALL-ANALYZE there may be some debris of converted or even deleted + ;; functions in this list. (new-functions () :type list) ;; ;; If true, then there is stuff in this component that could benefit from