r9335: Automated commit for Debian build of clsql upstream-version-2.10.16

[clsql.git] / classic / package.lisp

diff --git a/classic/package.lisp b/classic/package.lisp
index 44eecaab01f300785be68adf48be2f6e1db14be5..004dd47144af1d6d5c0002c8235d287a22ca7c9c 100644 (file)
--- a/classic/package.lisp
+++ b/classic/package.lisp
@@ -3,7 +3,7 @@
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; Name:          package.lisp
-;;;; Purpose:       Package definition for CLSQL (high-level) interface
+;;;; Purpose:       Package definition for CLSQL-CLASSIC high-level interface
 ;;;; Programmers:   Kevin M. Rosenberg based on
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
@@ -21,9 +21,8 @@
 (in-package #:cl-user)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defpackage #:clsql-sys
-    (:nicknames #:clsql)
-    (:use #:cl #:clsql-base-sys)
+  (defpackage #:clsql-classic
+    (:use #:cl #:clsql-base)
     (:import-from 
      #:clsql-base
      .
@@ -37,11 +36,12 @@
         #:clsql-invalid-spec-error-connection-spec
         #:clsql-invalid-spec-error-database-type
         #:clsql-invalid-spec-error-template
+        #:clsql-access-error
+        #:clsql-access-error-database-type
+        #:clsql-access-error-connection-spec
+        #:clsql-access-error-error
         #:clsql-connect-error
-        #:clsql-connect-error-database-type
-        #:clsql-connect-error-connection-spec
         #:clsql-connect-error-errno
-        #:clsql-connect-error-error
         #:clsql-sql-error
         #:clsql-sql-error-database
         #:clsql-sql-error-expression
@@ -66,7 +66,8 @@
         
         #:database
         #:database-name
-        #:closed-database
+        #:database-type
+        #:is-database-open
         #:database-name-from-spec
         
         ;; utils.lisp
@@ -88,6 +89,9 @@
         #:status                            ; database   xx
         #:with-database
         #:with-default-database
+        #:create-database
+        #:destroy-database
+        #:probe-database
 
         ;; basic-sql.lisp
         #:query
@@ -95,8 +99,6 @@
         #:write-large-object
         #:read-large-object
         #:delete-large-object
-        #:do-query
-        #:map-query
 
         ;; Transactions
         #:with-transaction
@@ -128,7 +130,7 @@
 
      ;; functional.lisp
      ;; These are no longer export since different functions are
-     ;; exported by the CLSQL-USQL package
+     ;; exported by the CLSQL package
      ;; #:insert-records
      ;; #:delete-records
      ;; #:update-records
@@ -136,10 +138,10 @@
      .
      #1#
      )
-    (:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
+    (:documentation "This is the INTERNAL SQL-Interface package of CLSQL-CLASSIC."))
   
   )                                    ;eval-when
 
-(defpackage #:clsql-user
-  (:use #:common-lisp #:clsql)
-  (:documentation "This is the user package for experimenting with CLSQL."))
+(defpackage #:clsql-classic-user
+  (:use #:common-lisp #:clsql-classic)
+  (:documentation "This is the user package for experimenting with CLSQL-CLASSIC."))