X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;h=2bb7fb12efcb9306afa1bbc7de037d276f8cddaf;hp=a55683144423b38bcffe04c6b5d0260d2467e35a;hb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;hpb=09f07ac9d914a83f9426609f3264f4e66b5a6d97

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index a556831..2bb7fb1 100644
--- a/db-postgresql/postgresql-sql.lisp
+++ b/db-postgresql/postgresql-sql.lisp
@@ -16,7 +16,7 @@
 (in-package #:cl-user)
 
 (defpackage #:clsql-postgresql
-    (:use #:common-lisp #:clsql-base #:postgresql #:clsql-uffi)
+    (:use #:common-lisp #:clsql-sys #:postgresql #:clsql-uffi)
     (:export #:postgresql-database)
     (:documentation "This is the CLSQL interface to PostgreSQL."))
 
@@ -520,7 +520,7 @@
   (destructuring-bind (host name user password) connection-spec
     (declare (ignore user password))
     (multiple-value-bind (output status)
-	(clsql-base:command-output "createdb -h~A ~A"
+	(clsql-sys:command-output "createdb -h~A ~A"
 				       (if host host "localhost")
 				       name)
       (if (or (not (zerop status))
@@ -537,7 +537,7 @@
   (destructuring-bind (host name user password) connection-spec
     (declare (ignore user password))
     (multiple-value-bind (output status)
-	(clsql-base:command-output "dropdb -h~A ~A"
+	(clsql-sys:command-output "dropdb -h~A ~A"
 				       (if host host "localhost")
 				       name)
       (if (or (not (zerop status))
@@ -563,12 +563,12 @@
 				      type)))
       (unwind-protect
 	   (progn
-	     (setf (slot-value database 'clsql-base::state) :open)
+	     (setf (slot-value database 'clsql-sys::state) :open)
 	     (mapcar #'car (database-query "select datname from pg_database" 
 					   database nil nil)))
 	(progn
 	  (database-disconnect database)
-	  (setf (slot-value database 'clsql-base::state) :closed))))))
+	  (setf (slot-value database 'clsql-sys::state) :closed))))))
 
 (defmethod database-describe-table ((database postgresql-database) table)
   (database-query 
@@ -618,5 +618,5 @@
 (defmethod db-type-default-case ((db-type (eql :postgresql)))
   :lower)
 
-(when (clsql-base:database-type-library-loaded :postgresql)
-  (clsql-base:initialize-database-type :database-type :postgresql))
+(when (clsql-sys:database-type-library-loaded :postgresql)
+  (clsql-sys:initialize-database-type :database-type :postgresql))