0.pre7.49:

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

diff --git a/src/compiler/envanal.lisp b/src/compiler/envanal.lisp
index 5592641..6ab14e9 100644 (file)
--- a/src/compiler/envanal.lisp
+++ b/src/compiler/envanal.lisp
@@ -49,8 +49,7 @@
     (when (null (leaf-refs fun))
       (let ((kind (functional-kind fun)))
        (unless (or (eq kind :top-level)
-                   (functional-has-external-references-p fun)
-                   (and *byte-compiling* (eq kind :optional)))
+                   (functional-has-external-references-p fun))
          (aver (member kind '(:optional :cleanup :escape)))
          (setf (functional-kind fun) nil)
          (delete-functional fun)))))