- `(,(translate-logical-pathname
- "CL-LIBRARY:clsql;interfaces;clsql-uffi;")
- "/usr/share/common-lisp/source/clsql/interfaces/clsql-uffi/")))
+ `(,(directory-namestring
+ (translate-logical-pathname
+ "CL-LIBRARY:clsql;interfaces;clsql-uffi;"))
+ "/usr/share/common-lisp/source/clsql/interfaces/clsql-uffi/")
+ :drives '("C" "D" "E" "F" "G")))