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)))))