projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix xref for (setf name) names.
[sbcl.git]
/
contrib
/
sb-introspect
/
introspect.lisp
diff --git
a/contrib/sb-introspect/introspect.lisp
b/contrib/sb-introspect/introspect.lisp
index
9a18f8a
..
d85c015
100644
(file)
--- a/
contrib/sb-introspect/introspect.lisp
+++ b/
contrib/sb-introspect/introspect.lisp
@@
-647,7
+647,7
@@
constant pool."
(loop for i from 0 below (length array) by 2
for xref-name = (aref array i)
for xref-path = (aref array (1+ i))
(loop for i from 0 below (length array) by 2
for xref-name = (aref array i)
for xref-path = (aref array (1+ i))
- do (when (eql xref-name wanted-name)
+ do (when (equal xref-name wanted-name)
(let ((source-location
(find-function-definition-source simple-fun)))
;; Use the more accurate source path from
(let ((source-location
(find-function-definition-source simple-fun)))
;; Use the more accurate source path from