X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fentry.lisp;h=6863e053fb92673a956d929a4ac8854a5f171c99;hb=279283bc1724b60ef9ebbf31ab4837061989be18;hp=84956980708eb390042335fbd91f34e8f1052684;hpb=c2431e2d0d0222a3cf20cfdfa48201bdcc65cd76;p=sbcl.git

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index 8495698..6863e05 100644
--- a/src/compiler/entry.lisp
+++ b/src/compiler/entry.lisp
@@ -43,6 +43,8 @@
     (setf (entry-info-offset info) (gen-label))
     (setf (entry-info-name info)
           (leaf-debug-name internal-fun))
+    (setf (entry-info-xref info)
+          (pack-xref-data (functional-xref internal-fun)))
     (when (policy bind (>= debug 1))
       (let ((args (functional-arg-documentation internal-fun)))
         (aver (not (eq args :unspecified)))