X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Ftarget-core.lisp;h=c07f5e55ec934490faa776ece0a1991e6ae30ef3;hb=45bc305be4e269d2e1a477c8e0ae9a64df1ccd1c;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))))