r8963: pre 2.6.4

[clsql.git] / base / db-interface.lisp

diff --git a/base/db-interface.lisp b/base/db-interface.lisp
index 4f1dc209ee4eb218d9085cac8854618e4fe3323c..b2ba6e5533a1f20735a017757d517dd85553b7a7 100644 (file)
--- a/base/db-interface.lisp
+++ b/base/db-interface.lisp
@@ -254,3 +254,7 @@ the given lisp type and parameters."))
 (defmethod database-abort-transaction :before ((database database))
   (unless (is-database-open database)
     (signal-closed-database-error database)))
+
+(defgeneric describe-table (table &key database)
+  (:documentation "Describes a table, returns a list of name/type for columns in table"))
+