Pull common named thread factory code out into new concurrent.clj