From 2ec920e0163f5733db35c42abddb132b462be1b4 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Jul 1990 13:37:07 +0000
Subject: [PATCH] Deleted function-does-not-return test, since that is now done
 in environment analysis.

---
 compiler/ir1final.lisp | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp
index 2d1a5917d..2e12e3bb1 100644
--- a/compiler/ir1final.lisp
+++ b/compiler/ir1final.lisp
@@ -72,8 +72,7 @@
     (functional
      (let* ((where (info function where-from name))
 	    (dtype (leaf-type leaf))
-	    (node (lambda-bind (main-entry leaf)))
-	    (*compiler-error-context* node))
+	    (*compiler-error-context* (lambda-bind (main-entry leaf))))
        (note-name-defined name :function)
 
        (when (function-type-p dtype)
@@ -85,10 +84,6 @@
 	   ((:declared :defined)
 	    ))
 	 
-	 (when (and (eq (function-type-returns dtype) *empty-type*)
-		    (policy node (>= safety brevity)))
-	   (compiler-note "Function does not return."))
-	 
 	 (setf (info function type name) dtype)
 	 (clear-info function assumed-type name))
 
-- 
GitLab