(let* ((path "~/eveloci")
                                        (l (expand-file-name "lib" path)))
                                   (if (file-directory-p l)
                                       (append
                                        (directory-files l t ".jar$")
                                        (remove-if-not 'file-directory-p
                                                       (directory-files l t "^[^\\.]")))))

Generated by Phil Hagelberg using scpaste at Wed Jan 20 14:31:10 2010. PST. (raw)