tests/seq.pure.lisp

   1 ;;;; tests related to sequences
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   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
   8 ;;;; from CMU CL.
   9 ;;;;
  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.
  13
  14 (let* ((orig '(1 2 3 2 6 1 2 4 1 3 2 7))
  15        (x (copy-seq orig))
  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))))