diff --git a/compiler/entry.lisp b/compiler/entry.lisp index f9b772acd21f5f264457b43dabfc0dbfd0fe154c..92204f1f378bf2bce6e22d0f0e9f7614273c103b 100644 --- a/compiler/entry.lisp +++ b/compiler/entry.lisp @@ -65,7 +65,7 @@ (internal-fun (functional-entry-function fun))) (make-entry-info :closure-p (not (null (environment-closure (lambda-environment fun)))) - :offset (block-label block) + :offset (gen-label) :name (let ((name (leaf-name internal-fun))) (or name (component-name (block-component block))))