Index: cffi/src/test/test-main.lisp
===================================================================
--- cffi/src/test/test-main.lisp	(revision cffi,1)
+++ cffi/src/test/test-main.lisp	(revision cffi,9)
@@ -44,5 +44,7 @@
 
 
-(load (merge-pathnames "test-sql-server.lisp" *load-truename*))
-(load (merge-pathnames "test-oracle.lisp" *load-truename*))
-(load (merge-pathnames "test-mysql.lisp"  *load-truename*))
+(flet ((l (filename) (load (merge-pathnames filename *load-truename*))))
+  (l "test-sql-server.lisp")
+  (l "test-oracle.lisp")
+  (l "test-mysql.lisp" )
+  (l "test-postgresql.lisp"))