X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=interfaces%2Fpostgresql%2Fpostgresql-loader.cl;h=bfdf60dd44e0daf60bcf57ea9feaf98156cbe8c6;hb=b0f9b865e7581f8c1691fe37fecc2c4673359222;hp=dd862617f3fa03534e8412ab2582bbeb02d35734;hpb=a1d4df09eabc40b260a35cc8d1e9288204121cfa;p=clsql.git

diff --git a/interfaces/postgresql/postgresql-loader.cl b/interfaces/postgresql/postgresql-loader.cl
index dd86261..bfdf60d 100644
--- a/interfaces/postgresql/postgresql-loader.cl
+++ b/interfaces/postgresql/postgresql-loader.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: postgresql-loader.cl,v 1.10 2002/05/15 16:57:31 kevin Exp $
+;;;; $Id: postgresql-loader.cl,v 1.12 2002/05/27 17:19:30 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -28,11 +28,11 @@ 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-sys:database-type-library-loaded ((database-type
+(defmethod clsql-base-sys:database-type-library-loaded ((database-type
 						    (eql :postgresql)))
   *postgresql-library-loaded*)
 				      
-(defmethod clsql-sys:database-type-load-foreign ((database-type
+(defmethod clsql-base-sys:database-type-load-foreign ((database-type
 						  (eql :postgresql)))
   (let ((libpath (uffi:find-foreign-library 
 		  "libpq"
@@ -40,8 +40,7 @@ set to the right path before compiling or loading the system.")
 		    "/usr/lib/" "/postgresql/lib/"
 		    "/usr/local/pgsql/lib/" "/usr/lib/pgsql/"
 		    "/opt/pgsql/lib/pgsql")
-		  :drive-letters '("C" "D" "E")
-		  :types '("so" "so.2" "dll"))))
+		  :drive-letters '("C" "D" "E"))))
     (if	(uffi:load-foreign-library libpath
 				   :module "postgresql"
 				   :supporting-libraries 
@@ -49,5 +48,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-sys:database-type-load-foreign :postgresql)
+(clsql-base-sys:database-type-load-foreign :postgresql)