branch: elpa/slime
commit 4cee4d3b1549aa4bc784d13ccd841b00b123a1b1
Author: Stas Boukarev <[email protected]>
Commit: Stas Boukarev <[email protected]>
%make-duplicate-symbols-filter: don't compare symbol names.
---
contrib/swank-fuzzy.lisp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/contrib/swank-fuzzy.lisp b/contrib/swank-fuzzy.lisp
index bfd274fe8f..bc10920794 100644
--- a/contrib/swank-fuzzy.lisp
+++ b/contrib/swank-fuzzy.lisp
@@ -316,8 +316,8 @@ TIME-LIMIT-IN-MSEC is NIL, an infinite time limit is
assumed."
(:nearest-package
;; Keep only the first occurence of the symbol.
#'(lambda (symbol)
- (unless (gethash (symbol-name symbol) dedup-table)
- (setf (gethash (symbol-name symbol) dedup-table) t))))
+ (unless (gethash symbol dedup-table)
+ (setf (gethash symbol dedup-table) t))))
(:all
;; No filter
#'identity)
