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