diff --git a/compiler/entry.lisp b/compiler/entry.lisp index 92204f1f378bf2bce6e22d0f0e9f7614273c103b..fad52a8a7a264810d707ea60175224bfa4707d61 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)))))