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