Не нужно использовать Spectre:
(let [a [:a :b :c :d :e]
B [1 2 4]]
(mapv (partial nth a) B))
Или даже проще:
(let [a [:a :b :c :d :e]
B [1 2 4]]
(mapv a B))
Но если вы настаиваете на использовании Spectre, то вот оно:
(let [a [:a :b :c :d :e]
B [1 2 4]]
(select (apply multi-path B) a))