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