Tää ei nyt toimi oikein jos `pred` palauttaa totena arvona jotain muuta kun `true`n. Tästä sais toimivan esim. seuraavasti:
~~~{.clj}
(let [mapped (map pred a-seq)
      not-passing (filter (pred-or nil? false?) mapped)]
  (empty? not-passing))
~~~