projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.28.65: fix compiling with *PROFILE-HASH-CACHE* set to T
[sbcl.git]
/
src
/
compiler
/
xref.lisp
diff --git
a/src/compiler/xref.lisp
b/src/compiler/xref.lisp
index
ac1dad8
..
a358784
100644
(file)
--- 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")
(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))
(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)
(t t)))
(defun record-xref (kind what context node path)