X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Ftarget-core.lisp;h=c07f5e55ec934490faa776ece0a1991e6ae30ef3;hb=a83d979b12102a512f8b040fa2f9329db5ecf28e;hp=6b76b1807e2ed6d3b5273e48c87b833074671b86;hpb=f1ffbf976aaa50b7b22f126b97e34afe06a91210;p=sbcl.git

diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp
index 6b76b18..c07f5e5 100644
--- a/src/compiler/generic/target-core.lisp
+++ b/src/compiler/generic/target-core.lisp
@@ -30,6 +30,7 @@
       (setf (%simple-fun-name res) (entry-info-name entry-info))
       (setf (%simple-fun-arglist res) (entry-info-arguments entry-info))
       (setf (%simple-fun-type res) (entry-info-type entry-info))
+      (setf (%simple-fun-xrefs res) (entry-info-xref entry-info))
 
       (note-fun entry-info res object))))