X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql%2Fpostgresql-loader.lisp;h=e33f1354db5d2aaf055f74bf99bbbce97ac07721;hp=48dd433315d3a4e819b6dbde95d23514ef7fbab0;hb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;hpb=5691bb90517d7c565a141d131da76c3de1f8d566 diff --git a/db-postgresql/postgresql-loader.lisp b/db-postgresql/postgresql-loader.lisp index 48dd433..e33f135 100644 --- a/db-postgresql/postgresql-loader.lisp +++ b/db-postgresql/postgresql-loader.lisp @@ -27,15 +27,16 @@ set to the right path before compiling or loading the system.") (defvar *postgresql-library-loaded* nil "T if foreign library was able to be loaded successfully") -(defmethod clsql-base-sys:database-type-library-loaded ((database-type +(defmethod clsql-sys:database-type-library-loaded ((database-type (eql :postgresql))) *postgresql-library-loaded*) -(defmethod clsql-base-sys:database-type-load-foreign ((database-type +(defmethod clsql-sys:database-type-load-foreign ((database-type (eql :postgresql))) (let ((libpath (uffi:find-foreign-library "libpq" '("/opt/postgresql/lib/" "/usr/local/lib/" + #+64bit "/usr/lib64/" "/usr/lib/" "/postgresql/lib/" "/usr/local/pgsql/lib/" "/usr/lib/pgsql/" "/opt/pgsql/lib/pgsql" "/sw/lib/pgsql/") @@ -50,5 +51,5 @@ set to the right path before compiling or loading the system.") (setq *postgresql-library-loaded* t) (warn "Can't load PostgreSQL client library ~A" libpath)))) -(clsql-base-sys:database-type-load-foreign :postgresql) +(clsql-sys:database-type-load-foreign :postgresql)