Rewrote FIND-ALL* with LOOP. Cleaner.