X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Flist.pure.lisp;h=9bf32a8cee87e20787b8158c2f5650c6eb38f535;hb=a1007bcf38130a9a08e32f04a69e6836f76329d2;hp=00dc7939f51fb78cd29b118a0297736e77ec1bf7;hpb=b3a419f10ad442a1c59d51edabdc70518f193648;p=sbcl.git

diff --git a/tests/list.pure.lisp b/tests/list.pure.lisp
index 00dc793..9bf32a8 100644
--- a/tests/list.pure.lisp
+++ b/tests/list.pure.lisp
@@ -110,3 +110,10 @@
 		(copy-alist ((1 . 2) (3 . 4) . 5))))
   (assert (raises-error? (apply (first test) (copy-tree (rest test)))
 			 type-error)))
+
+;;; Bug reported by Paul Dietz: NSET-EXCLUSIVE-OR should not return
+;;; extra elements, even when given "sets" contain duplications
+(assert (equal (remove-duplicates (sort (nset-exclusive-or (list 1 2 1 3)
+                                                           (list 4 1 3 3))
+                                        #'<))
+               '(2 4)))