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

diff --git a/classic/package.lisp b/classic/package.lisp
index 44eecaa..42cd973 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,8 +21,8 @@
 (in-package #:cl-user)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defpackage #:clsql-sys
-    (:nicknames #:clsql)
+  (defpackage #:clsql-classic-sys
+    (:nicknames #:clsql-classic)
     (:use #:cl #:clsql-base-sys)
     (:import-from 
      #:clsql-base
@@ -37,11 +37,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 +67,8 @@
 	 
 	 #:database
 	 #:database-name
-	 #:closed-database
+	 #:database-type
+	 #:is-database-open
 	 #:database-name-from-spec
 	 
 	 ;; utils.lisp
@@ -88,6 +90,9 @@
 	 #:status                            ; database   xx
 	 #:with-database
 	 #:with-default-database
+	 #:create-database
+	 #:destroy-database
+	 #:probe-database
 
 	 ;; basic-sql.lisp
 	 #:query
@@ -128,7 +133,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 +141,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."))