X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql-socket%2Fpostgresql-socket-sql.lisp;h=180b036904613be3a0fa5529737b8dc08e53ffde;hp=07032b826fd7ede336395c338bff5f159f1b0662;hb=9bbed78051e80e6ab76ae47834136035602bbbf1;hpb=80d94a5396eeaca850bb643390b836d8bd0825b3

diff --git a/db-postgresql-socket/postgresql-socket-sql.lisp b/db-postgresql-socket/postgresql-socket-sql.lisp
index 07032b8..180b036 100644
--- a/db-postgresql-socket/postgresql-socket-sql.lisp
+++ b/db-postgresql-socket/postgresql-socket-sql.lisp
@@ -20,7 +20,7 @@
 (in-package #:cl-user)
 
 (defpackage :clsql-postgresql-socket
-    (:use #:common-lisp #:clsql-base-sys #:postgresql-socket)
+    (:use #:common-lisp #:clsql-base #:postgresql-socket)
     (:export #:postgresql-socket-database)
     (:documentation "This is the CLSQL socket interface to PostgreSQL."))
 
@@ -29,7 +29,7 @@
 ;; interface foreign library loading routines
 
 
-(clsql-base-sys:database-type-load-foreign :postgresql-socket)
+(clsql-base:database-type-load-foreign :postgresql-socket)
 
 
 ;; Field type conversion
@@ -486,12 +486,12 @@ doesn't depend on UFFI."
 				      type)))
       (unwind-protect
 	   (progn
-	     (setf (slot-value database 'clsql-base-sys::state) :open)
+	     (setf (slot-value database 'clsql-base::state) :open)
 	     (mapcar #'car (database-query "select datname from pg_database" 
 					   database :auto nil)))
 	(progn
 	  (database-disconnect database)
-	  (setf (slot-value database 'clsql-base-sys::state) :closed))))))
+	  (setf (slot-value database 'clsql-base::state) :closed))))))
 
 (defmethod database-describe-table ((database postgresql-socket-database) 
 				    table)
@@ -517,5 +517,5 @@ doesn't depend on UFFI."
 (defmethod db-type-default-case ((db-type (eql :postgresql-socket)))
   :lower)
 
-(when (clsql-base-sys:database-type-library-loaded :postgresql-socket)
-  (clsql-base-sys:initialize-database-type :database-type :postgresql-socket))
+(when (clsql-base:database-type-library-loaded :postgresql-socket)
+  (clsql-base:initialize-database-type :database-type :postgresql-socket))