r9447: * sql/*.lisp: Add db-type parameter to generic functions READ-SQL...

[clsql.git] / sql / package.lisp

diff --git a/sql/package.lisp b/sql/package.lisp
index 20555d6e28dd82bf1d77df89a5ec0429c844dfba..8b4475ec78dd05e1cc765b31f591e5525a333816 100644 (file)
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -114,7 +114,6 @@
      #:database-query-result-set
      #:database-dump-result-set
      #:database-store-next-row
-     #:database-get-type-specifier
      #:database-list-tables
      #:database-table-exists-p
      #:database-list-views
@@ -145,6 +144,9 @@
      #:db-type-default-case
      #:db-type-use-column-on-drop-index? 
      #:database-underlying-type
+     #:database-get-type-specifier
+     #:read-sql-value
+     #:database-output-sql-as-type
 
      ;; Large objects 
      #:database-create-large-object
@@ -169,8 +171,7 @@
      #:database-type
      #:database-state
      #:attribute-cache
-     
-
+   
      ;; utils.lisp
      #:without-interrupts
      #:make-process-lock
@@ -195,6 +196,10 @@
      #:float-to-sql-string
      #:sql-escape-quotes
      #:in
+
+     ;; Generic backends
+     #:generic-postgresql-database
+     #:generic-odbc-database
      
      .
      ;; Shared exports for re-export by CLSQL package. 
@@ -295,10 +300,6 @@
         #:bigint
         ;;OODML
         #:*db-auto-sync*                    ; objects    xx              
-        #:read-sql-value                    ; objects    x
-        #:database-output-sql-as-type       ; objects    x
-        #:database-get-type-specifier       ; objects    x
-        #:database-output-sql               ; sql/class  xx
         
         ;; conditions
         #:clsql-condition