From edf3fd0a027a686cd9f2ea478c4f109571dd6731 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 16 Apr 1990 10:32:21 +0000
Subject: [PATCH] Merged non-descriptor changes: revision 1.2.1.1 date:
 90/04/13 12:04:26;  author: ram;  state: Exp;  lines added/del: 1/1 Changed
 to use LEAF-TYPE instead of DEFINITION-TYPE to get function type, since the
 DEFINITION-TYPE can be trashed by deletion of RETURN nodes due to TR calls.

---
 compiler/entry.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/entry.lisp b/compiler/entry.lisp
index 92204f1f3..fad52a8a7 100644
--- a/compiler/entry.lisp
+++ b/compiler/entry.lisp
@@ -70,4 +70,4 @@
 	     (or name
 		 (component-name (block-component block))))
      :arguments (make-arg-names internal-fun)
-     :type (type-specifier (definition-type internal-fun)))))
+     :type (type-specifier (leaf-type internal-fun)))))
-- 
GitLab