X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Fdb-interface.lisp;h=9c8d363646aa9604d3b7127d4bae0310f7e45760;hp=2904f3d46365d877e8c6dc55357b1ea59e6e0641;hb=c4da3cfcbb955395d8a556e1f89aadad696302b7;hpb=afa1e8481ca62ee15952c695fd04c8601b65b218

diff --git a/base/db-interface.lisp b/base/db-interface.lisp
index 2904f3d..9c8d363 100644
--- a/base/db-interface.lisp
+++ b/base/db-interface.lisp
@@ -121,8 +121,19 @@ function should signal a clsql-sql-error."))
    "Returns t and stores the next row in the result set in list or
 returns nil when result-set is finished."))
 
+(defgeneric database-create (connection-spec type)
+  (:documentation
+   "Creates a database, returns T if successfull or signals an error."))
+
+(defgeneric database-probe (connection-spec type)
+  (:documentation
+   "Probes for the existence of a database, returns T if database found or NIL 
+if not found. May signal an error if unable to communicate with database server."))
 
-;; Interfaces to support UncommonSQL
+(defgeneric database-destory (connection-spec type)
+  (:documentation
+   "Destroys a database, returns T if successfull or signals an error
+if unable to destory."))
 
 (defgeneric database-create-sequence (name database)
   (:documentation "Create a sequence in DATABASE."))