From 9d8f07d1ed8d2194f7be8a08be81cbc2458418f5 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 11 Nov 2002 01:49:10 +0000
Subject: [PATCH] Added REMOVE-LIST.29, which exercises a bug in CMU CL.

---
 ansi-tests/remove.lsp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/ansi-tests/remove.lsp b/ansi-tests/remove.lsp
index cea80256..d7872485 100644
--- a/ansi-tests/remove.lsp
+++ b/ansi-tests/remove.lsp
@@ -282,6 +282,18 @@
 	 (equalpt x y)))
   t)
 
+(deftest remove-list.29
+  (let* ((orig '(1 2 3 2 6 1 2 4 1 3 2 7))
+	 (x (copy-seq orig))
+	 (y (remove 3 x :count 1000000000000)))
+    (and (equalp orig x)
+	 y))
+  (1 2 2 6 1 2 4 1 2 7))
+
+;;; Assorted tests of remove and delete on vectors, strings,
+;;; and bit vectors.  These are mostly to exercise bugs previously
+;;; detected by the randomized tests
+
 (deftest remove-vector.1
   (remove 'a (vector 'b 'c 'd))
   #(b c d))
-- 
GitLab