X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fpackage.lisp;h=52a203854bd16809231fe00d9c6cdcb6dc492a7a;hb=9a70270bf9a1d60323ded33ce52bd0904544c70b;hp=63847d33033eb5414acc3e07dc88aaa1654ba769;hpb=150e23be29d88d99e4114a8cff017b3cce005e10;p=clsql.git

diff --git a/sql/package.lisp b/sql/package.lisp
index 63847d3..52a2038 100644
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -149,6 +149,7 @@
        #:database-list-tables
        #:database-list-views
        #:database-list-indexes
+       #:database-list-table-indexes
        #:database-list-sequences
        #:database-list-attributes
        #:database-attribute-type
@@ -230,6 +231,18 @@
        #:database-commit-transaction
        #:transaction-level
        #:transaction
+       
+       ;; Database capabilities
+       #:db-type-use-column-on-drop-index?
+       #:db-backend-has-create/destroy-db?
+       #:db-type-has-views?
+       #:db-type-has-subqueries?
+       #:db-type-has-boolean-where?
+       #:db-type-transaction-capable?
+       #:db-type-has-fancy-math?
+       #:db-type-default-case
+       #:convert-to-db-default-case
+       #:database-underlying-type
        ))
    (:export
     ;; "Private" exports for use by interface packages
@@ -253,12 +266,22 @@
     #:database-list-views
     #:database-view-exists-p
     #:database-list-indexes
+    #:database-list-table-indexes
     #:database-index-exists-p
     #:database-list-sequences
     #:database-sequence-exists-p
     #:database-list-attributes
     #:database-attribute-type
     #:database-describe-table
+
+    #:db-backend-has-create/destroy-db?
+    #:db-type-has-views?
+    #:db-type-has-subqueries?
+    #:db-type-has-boolean-where?
+    #:db-type-transaction-capable?
+    #:db-type-has-fancy-math?
+    #:db-type-default-case
+    #:database-underlying-type
    
    .
    ;; Shared exports for re-export by CLSQL. 
@@ -333,6 +356,7 @@
        #:list-views                        ; table      xx
        #:view-exists-p                     ; table      xx
        #:list-indexes                      ; table      xx
+       #:list-table-indexes                ; table      xx
        #:index-exists-p                    ; table      xx
        #:create-sequence                   ; table      xx
        #:drop-sequence                     ; table      xx