tests/seq.lisp

   1 (test (find 1 #(2 1 3)))
   2 (test (not (find 1 #(2 2 2))))
   3 (test (not (find 1 (remove 1 #(1 2 3 1)))))
   4
   5 (test (find 1 (list 2 1 3)))
   6 (test (not (find 1 (list 2 2 2))))
   7 (test (not (find 1 (remove 1 (list 1 2 3 1)))))
   8
   9 (test (equal (remove-if     #'zerop '(1 0 2 0 3)) '(1 2 3)))
  10 (test (equal (remove-if-not #'zerop '(1 0 2 0 3)) '(0 0)))
  11
  12 ;; TODO: Rewrite these tests when EQUALP exists and works on vectors
  13 (let ((v1 (remove-if #'zerop #(1 0 2 0 3))))
  14   (test (and (= (aref v1 0) 1) (= (aref v1 1) 2) (= (aref v1 2) 3))))
  15 (test (every #'zerop (remove-if-not #'zerop #(1 0 2 0 3))))