1 ;;;; tests related to sequences
3 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; While most of SBCL is derived from the CMU CL system, the test
7 ;;;; files (like this one) were written from scratch after the fork
10 ;;;; This software is in the public domain and is provided with
11 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
12 ;;;; more information.
14 (let* ((orig '(1 2 3 2 6 1 2 4 1 3 2 7))
16 (y (remove 3 x :from-end t :start 1 :end 5))
17 (z (remove 2 x :from-end t :start 1 :end 5)))
18 (assert (equalp orig x))
19 (assert (equalp y '(1 2 2 6 1 2 4 1 3 2 7)))
20 (assert (equalp z '(1 3 6 1 2 4 1 3 2 7))))