+ (setq filenames (if (listp filenames) filenames (list filenames))
+ filenames
+ (append
+ (loop for search-path in clsql:*foreign-library-search-paths*
+ nconc (loop for filename in filenames
+ collect (merge-pathnames filename search-path)))
+ filenames))