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