Function: completion--some

Apply FUN to each element of XS in turn.
Return the first non-nil returned value.
Like CL's `some'.
(fn FUN XS)