X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=contrib%2Fsb-introspect%2Fintrospect.lisp;h=d85c01575325ecc4e7937ed9fddec887b44f1823;hb=4b3617f6b493b1a0c0cd1ceb460f7a4ae36e8f8e;hp=9a18f8a3591b6084b5b875e9a5e47f03aed07fb5;hpb=a27839c3a9c59b2ca1b4080de5a3a9dd682ac5b9;p=sbcl.git

diff --git a/contrib/sb-introspect/introspect.lisp b/contrib/sb-introspect/introspect.lisp
index 9a18f8a..d85c015 100644
--- 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))
-                  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