X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Fpackage.cl;h=8f8fc4a3c4b1058dd5c08346ef24669a2c8f4531;hb=2cf33a79e15065d4a231658a8912d4f728e11560;hp=ceb525cc7ff9287450b495d6754e5bfed954e590;hpb=72f0ea8c6db74bd59809a9cd427969e85bfa0a78;p=clsql.git

diff --git a/base/package.cl b/base/package.cl
index ceb525c..8f8fc4a 100644
--- a/base/package.cl
+++ b/base/package.cl
@@ -3,12 +3,12 @@
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; Name:          package.cl
-;;;; Purpose:       Package definition for high-level SQL interface
+;;;; Purpose:       Package definition for base (low-level) SQL interface
 ;;;; Programmers:   Kevin M. Rosenberg based on
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: package.cl,v 1.4 2002/05/19 16:05:22 kevin Exp $
+;;;; $Id: package.cl,v 1.8 2002/09/17 17:16:43 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -25,7 +25,7 @@
 ;;;; core packages.
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-(defpackage :clsql-sys
+(defpackage :clsql-base-sys
   (:use :common-lisp)
   (:export
      ;; "Private" exports for use by interface packages
@@ -59,8 +59,7 @@
      #:database-read-large-object
      #:database-delete-large-object
      
-     ;; Shared exports for re-export by CLSQL
-
+     ;; Shared exports for re-export by CLSQL-BASE
      .
      #1=(#:clsql-condition
 	 #:clsql-error
@@ -91,6 +90,7 @@
 	 #:clsql-exists-error
 	 #:clsql-closed-error
 	 #:clsql-closed-error-database
+	 
 	 #:*loaded-database-types*
 	 #:reload-database-types
 	 #:*default-database-type*
@@ -104,58 +104,25 @@
 	 #:closed-database
 	 #:find-database
 	 #:database-name-from-spec
-	 #:connect
-	 #:disconnect
-	 #:query
-	 #:execute-command
-	 #:map-query
-	 #:do-query
 
-	 ;; functional.cl
-	 #:insert-records
-	 #:delete-records
-	 #:update-records
-	 #:with-database
+	 ;; accessors for database class
+	 #:name
+	 #:connection-spec
+	 #:transaction
+	 #:transaction-level
+	 #:conn-pool
 	 
 	 ;; utils.cl
 	 #:number-to-sql-string
 	 #:float-to-sql-string
 	 #:sql-escape-quotes
-
-	 ;; For UncommonSQL support
-	 #:sql-ident
-	 #:list-tables
-	 #:list-attributes
-	 #:attribute-type
-	 #:create-sequence 
-	 #:drop-sequence
-	 #:sequence-next
-
-	 ;; Pooled connections
-	 #:disconnect-pooled
-	 #:find-or-create-connection-pool
-
-	 ;; Transactions
-	 #:with-transaction
-	 #:commit-transaction
-	 #:rollback-transaction
-	 #:add-transaction-commit-hook
-	 #:add-transaction-rollback-hook
-
-	 ;; Large objects (Marc B)
-	 #:create-large-object
-	 #:write-large-object
-	 #:read-large-object
-	 #:delete-large-object
 	 ))
-    (:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
+    (:documentation "This is the INTERNAL SQL-Interface package of CLSQL-BASE."))
 
-(defpackage #:clsql
-    (:import-from #:clsql-sys . #1#)
+(defpackage #:clsql-base
+    (:import-from :clsql-base-sys . #1#)
     (:export . #1#)
-    (:documentation "This is the SQL-Interface package of CLSQL."))
+    (:documentation "This is the SQL-Interface package of CLSQL-BASE."))
 );eval-when
 
-(defpackage #:clsql-user
-    (:use #:common-lisp #:clsql)
-    (:documentation "This is the user package for experimenting with CLSQL."))
+