How do I get the pathname of a CL-SOURCE-FILE