add smoketests for FIND and REPLACE

diff --git a/tests/seq.lisp b/tests/seq.lisp
new file mode 100644 (file)
index 0000000..326b4f7
--- /dev/null
+++ b/tests/seq.lisp
@@ -0,0 +1,7 @@
+(test (find 1 #(2 1 3)))
+(test (not (find 1 #(2 2 2))))
+(test (not (find 1 (remove 1 #(1 2 3 1)))))
+
+(test (find 1 (list 2 1 3)))
+(test (not (find 1 (list 2 2 2))))
+(test (not (find 1 (remove 1 (list 1 2 3 1)))))