From 4b3617f6b493b1a0c0cd1ceb460f7a4ae36e8f8e Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Thu, 28 Jul 2011 16:08:51 +0400 Subject: [PATCH] Fix xref for (setf name) names. Use EQUAL instead of EQL when comparing names. --- contrib/sb-introspect/introspect.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4