+
+(test (equal (remove-if #'zerop '(1 0 2 0 3)) '(1 2 3)))
+(test (equal (remove-if-not #'zerop '(1 0 2 0 3)) '(0 0)))
+
+;; TODO: Rewrite these tests when EQUALP exists and works on vectors
+(let ((v1 (remove-if #'zerop #(1 0 2 0 3))))
+ (test (and (= (aref v1 0) 1) (= (aref v1 1) 2) (= (aref v1 2) 3))))
+(test (every #'zerop (remove-if-not #'zerop #(1 0 2 0 3))))
+
+(let ((nums '(1 2 3 4 5)))
+ (test (equal (subseq nums 3) '(4 5)))
+ (test (equal (subseq nums 2 4) '(3 4)))
+ ; Test that nums hasn't been altered: SUBSEQ should construct fresh lists
+ (test (equal nums '(1 2 3 4 5))))