X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fpackage.lisp;h=1a17ce631f7f4067e57f7d2baf3b084792efc5f1;hb=a4097e19c5157e87b9991549bc44f3ef598aeb90;hp=0de78815dcb05b12591ef90d955e9550ca1692a2;hpb=c4da3cfcbb955395d8a556e1f89aadad696302b7;p=clsql.git

diff --git a/sql/package.lisp b/sql/package.lisp
index 0de7881..1a17ce6 100644
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -149,11 +149,13 @@
        #:database-list-tables
        #:database-list-views
        #:database-list-indexes
+       #:database-list-table-indexes
        #:database-list-sequences
        #:database-list-attributes
        #:database-attribute-type
        #:database-add-attribute
        #:database-type 
+
        ;; initialize
        #:*loaded-database-types*
        #:reload-database-types
@@ -162,12 +164,10 @@
        #:initialize-database-type
        ;; classes
        #:database
-       #:closed-database
        #:database-name
        #:command-recording-stream
        #:result-recording-stream
        #:database-view-classes
-       #:database-schema
        #:conn-pool
        #:print-object 
        ;; utils
@@ -190,7 +190,7 @@
        #:create-database
        #:destroy-database
        #:probe-database
-
+       
        ;; pool.lisp
        #:disconnect-pooled
 
@@ -202,10 +202,11 @@
        #:delete-large-object
        #:do-query
        #:map-query
+       #:describe-table
 
+       
        ;; recording.lisp -- SQL I/O Recording 
-       #:record-sql-comand
-       #:record-sql-result
+       #:record-sql-action
        #:add-sql-stream                 ; recording  xx
        #:delete-sql-stream	          ; recording  xx
        #:list-sql-streams	          ; recording  xx
@@ -230,6 +231,10 @@
        #:database-commit-transaction
        #:transaction-level
        #:transaction
+       
+       ;; Database capabilities
+       #:db-use-column-on-drop-index?
+       
        ))
    (:export
     ;; "Private" exports for use by interface packages
@@ -238,27 +243,29 @@
     #:database-type-load-foreign
     #:database-name-from-spec
     #:database-connect
-   #:database-query
-   #:database-execute-command
-   #:database-create-sequence
-   #:database-drop-sequence
-   #:database-sequence-next
-   #:database-set-sequence-position
-   #: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
-   #:database-view-exists-p
-   #:database-list-indexes
-   #:database-index-exists-p
-   #:database-list-sequences
-   #:database-sequence-exists-p
-   #:database-list-attributes
-   #:database-attribute-type
-
+    #:database-query
+    #:database-execute-command
+    #:database-create-sequence
+    #:database-drop-sequence
+    #:database-sequence-next
+    #:database-set-sequence-position
+    #: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
+    #: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
+   
    .
    ;; Shared exports for re-export by CLSQL. 
    ;; I = Implemented, D = Documented
@@ -292,6 +299,7 @@
        #:drop-view		          ; table      xx
        #:create-index		          ; table      xx		
        #:drop-index		          ; table      xx		
+       #:truncate-database
        ;;OODDL
        #:standard-db-object		  ; objects    xx
        #:def-view-class                    ; objects    xx
@@ -325,13 +333,13 @@
        ;;Initialization
        #:*loaded-database-types*           ; clsql-base xx
        #:reload-database-types             ; clsql-base xx
-       #:closed-database 	          ; database   xx
        #:database-type                     ; database   x
-       #:in-schema                         ; classes    x
+       #:is-database-open
        ;;FDDL 
        #: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