From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 12 Apr 2021 14:42:01 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp-cstr.el (comp-normalize-valset): Remove duplicates.
X-Git-Tag: emacs-28.0.90~2727^2~24
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3062480309b0d3bd66370265ed1a1dc79b6edeed;p=emacs.git

* lisp/emacs-lisp/comp-cstr.el (comp-normalize-valset): Remove duplicates.
---

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 7f5d34b45c3..b2d34af66b4 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -186,12 +186,14 @@ Return them as multiple value."
 ;;; Value handling.
 
 (defun comp-normalize-valset (valset)
-  "Sort VALSET and return it."
-  (cl-sort valset (lambda (x y)
-                    ;; We might want to use `sxhash-eql' for speed but
-                    ;; this is safer to keep tests stable.
-                    (< (sxhash-equal x)
-                       (sxhash-equal y)))))
+  "Sort and remove duplicates from VALSET then return it."
+  (cl-remove-duplicates
+   (cl-sort valset (lambda (x y)
+                     ;; We might want to use `sxhash-eql' for speed but
+                     ;; this is safer to keep tests stable.
+                     (< (sxhash-equal x)
+			(sxhash-equal y))))
+   :test #'eq))
 
 (defun comp-union-valsets (&rest valsets)
   "Union values present into VALSETS."