r9329: * db-odbc/*.lisp: Add a layer of indirection to foreign-type

[clsql.git] / classic / package.lisp

diff --git a/classic/package.lisp b/classic/package.lisp
index e1253bd415a90bf4009aaf54b84a898d6098ab02..004dd47144af1d6d5c0002c8235d287a22ca7c9c 100644 (file)
--- a/classic/package.lisp
+++ b/classic/package.lisp
@@ -21,9 +21,8 @@
 (in-package #:cl-user)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defpackage #:clsql-classic-sys
-    (:nicknames #:clsql-classic)
-    (:use #:cl #:clsql-base-sys)
+  (defpackage #:clsql-classic
+    (:use #:cl #:clsql-base)
     (:import-from 
      #:clsql-base
      .
@@ -67,7 +66,8 @@
         
         #:database
         #:database-name
-        #:closed-database
+        #:database-type
+        #:is-database-open
         #:database-name-from-spec
         
         ;; utils.lisp
@@ -99,8 +99,6 @@
         #:write-large-object
         #:read-large-object
         #:delete-large-object
-        #:do-query
-        #:map-query
 
         ;; Transactions
         #:with-transaction