(setf (entry-info-offset info) (gen-label))
(setf (entry-info-name info)
(leaf-debug-name 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)))