From 667fcab1554e8843bab52609a308137392bf8c0d Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 19 Oct 1990 17:46:49 +0000
Subject: [PATCH] Deleted some noise that must have been left over from an
 incomplete edit.

---
 compiler/dfo.lisp | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/compiler/dfo.lisp b/compiler/dfo.lisp
index f199859b1..576e0df49 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.
-- 
GitLab