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