Given two sequences of equal length and corresponding items, can one sequence be filtered based on (a predicate fn applied to) the second?

map_filter_map.clj

;; Given two sequences (seq-a and seq-b) of equal length and corresponding
;; items, can one sequence be filtered according to a predicate function (pred?)
;; applied to the second?

(map second
     (filter #(pred? (first %))
             (map list seq-a seq-b)

(for [[a b] (map list a-seq b-seq) :when (pred? a)] b)

(keep (fn [[a b]] (if (pred? b) a)) (map vector a-seq b-seq))

But this is a problem if b-seq can contain nil as a legitimate value.