From: stassats <sta...@us...> - 2011-07-28 12:09:18
|
The branch "master" has been updated in SBCL: via 4b3617f6b493b1a0c0cd1ceb460f7a4ae36e8f8e (commit) from 7f52216bc52c9ef90e08049f235bca0c34943690 (commit) - Log ----------------------------------------------------------------- commit 4b3617f6b493b1a0c0cd1ceb460f7a4ae36e8f8e Author: Stas Boukarev <sta...@gm...> Date: Thu Jul 28 16:08:51 2011 +0400 Fix xref for (setf name) names. Use EQUAL instead of EQL when comparing names. --- contrib/sb-introspect/introspect.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) 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 ----------------------------------------------------------------------- hooks/post-receive -- SBCL |