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.