X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fseq.impure.lisp;h=2145c2d58cbcffe3ed52a14780773a3500882e02;hb=d8659f1e656234e8f0f47d5295b503dd6cff4aba;hp=b8ee470d52f646c8ca38693958a7f33e4c51af5e;hpb=8cbd7fc0f27222a778ce61bae7d943a5081362cc;p=sbcl.git

diff --git a/tests/seq.impure.lisp b/tests/seq.impure.lisp
index b8ee470..2145c2d 100644
--- a/tests/seq.impure.lisp
+++ b/tests/seq.impure.lisp
@@ -1075,4 +1075,10 @@
       (assert (test-inlined-bashing i))
       until (= i sb-vm:n-word-bits))
 
+;;; tests from the Sacla test suite via Eric Marsden, 2007-05-07
+(remove-duplicates (vector 1 2 2 1) :test-not (lambda (a b) (not (= a b))))
+
+(delete-duplicates (vector #\a #\b #\c #\a)
+                   :test-not (lambda (a b) (not (char-equal a b))))
+
 ;;; success