diff --git a/compiler/dfo.lisp b/compiler/dfo.lisp index f199859b1f0954dd6e16b5f86dbbecd7384f4f8a..576e0df49f08d695918af8e3df3187a1c0710aa1 100644 --- a/compiler/dfo.lisp +++ b/compiler/dfo.lisp @@ -248,15 +248,6 @@ (declare (type component res)))))))) - (not (find :external funs :key #'functional-kind)) - (not (find-if #'(lambda (x) - (let ((entries (lambda-entries x))) - (and entries - (find-if #'entry-exits - entries)))) - funs))) - - ;;; HAS-XEP-OR-NLX -- Internal ;;; ;;; Return true if Fun is either an XEP or has EXITS to some of its ENTRIES.