Speed up FIND-SOURCE.

The old FIND-SOURCE would map over all sources looking for a
match. This was fine for a few dozen sources, or even a few hundred,
but with over 1000 sources it was too slow.

The new FIND-SOURCE constructs a pathname for a source directly and
probes it. Much faster.