r2741: Start migration to pathname-less asd files, remove .system files

[clsql.git] / base / package.cl

diff --git a/base/package.cl b/base/package.cl
index 71aa24eecd56cc6917f6b4f12c5a7703d80d0c83..8f8fc4a3c4b1058dd5c08346ef24669a2c8f4531 100644 (file)
--- 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.1 2002/05/13 16:22:08 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,57 +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
-
-        ;; 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."))
+