X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fentry.lisp;h=ae95297d46fed950ef6d66ecfaf5d299638c4897;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=6863e053fb92673a956d929a4ac8854a5f171c99;hpb=cb83aa22932bf4b9bc74ac6f0fcd91db1702ad33;p=sbcl.git

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index 6863e05..ae95297 100644
--- a/src/compiler/entry.lisp
+++ b/src/compiler/entry.lisp
@@ -43,8 +43,11 @@
     (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)))
+    (let ((doc (functional-documentation internal-fun))
+          (xrefs (pack-xref-data (functional-xref internal-fun))))
+      (setf (entry-info-info info) (if (and doc xrefs)
+                                       (cons doc xrefs)
+                                       (or doc xrefs))))
     (when (policy bind (>= debug 1))
       (let ((args (functional-arg-documentation internal-fun)))
         (aver (not (eq args :unspecified)))