X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=classic%2Fpackage.lisp;h=004dd47144af1d6d5c0002c8235d287a22ca7c9c;hp=44eecaab01f300785be68adf48be2f6e1db14be5;hb=09f07ac9d914a83f9426609f3264f4e66b5a6d97;hpb=39d3fefaebf35a19a211d1ab6552d7ff54faccd2

diff --git a/classic/package.lisp b/classic/package.lisp
index 44eecaa..004dd47 100644
--- 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."))