X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fxref.lisp;h=a358784cee98bb37324d63069bee6d10974458e6;hb=d25e3478acccec70402ff32554669a982be8e281;hp=ac1dad8d9ed8d07caf2ad229e938c5d2e10fc057;hpb=6075b05401346ac20ec9a647fe192a2a959f3882;p=sbcl.git

diff --git a/src/compiler/xref.lisp b/src/compiler/xref.lisp
index ac1dad8..a358784 100644
--- a/src/compiler/xref.lisp
+++ b/src/compiler/xref.lisp
@@ -152,12 +152,17 @@
          (member (symbol-package what)
                  (load-time-value (list* (find-package "COMMON-LISP")
                                          (find-package "KEYWORD")
+                                         #+sb-xc-host (find-package "SB-XC")
                                          (remove-if-not
                                           (lambda (package)
                                             (= (mismatch "SB!"
                                                          (package-name package))
                                                3))
-                                          (list-all-packages)))))))
+                                          (list-all-packages)))))
+         #+sb-xc-host ; again, special case like in genesis and dump
+         (multiple-value-bind (cl-symbol cl-status)
+             (find-symbol (symbol-name what) sb!int:*cl-package*)
+           (and (eq what cl-symbol) (eq cl-status :external)))))
     (t t)))
 
 (defun record-xref (kind what context node path)