0.pre7.50:

[sbcl.git] / src / compiler / envanal.lisp

diff --git a/src/compiler/envanal.lisp b/src/compiler/envanal.lisp
index 6ab14e9..0208d03 100644 (file)
--- a/src/compiler/envanal.lisp
+++ b/src/compiler/envanal.lisp
@@ -24,10 +24,7 @@
 ;;;     continuations.
 ;;;  4. Delete all non-top-level functions with no references. This
 ;;;     should only get functions with non-NULL kinds, since normal
-;;;     functions are deleted when their references go to zero. If
-;;;     *BYTE-COMPILING*, then don't delete optional entries with no
-;;;     references, since the byte interpreter wants to call entries
-;;;     that the XEP doesn't.
+;;;     functions are deleted when their references go to zero. 
 (defun environment-analyze (component)
   (declare (type component component))
   (aver (every (lambda (x)