X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fdb-interface.lisp;h=939af1fa68ff89356e7f35bc4d8a56ca258348cf;hp=3c2f7468326d3adc9ce2c9cd67699ca1864f544d;hb=5148be446aee32ec705beac3fbba35f499df4fd4;hpb=bb2818fb8a6714a55b360dec0bb043c5edccb3f4

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 3c2f746..939af1f 100644
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -174,16 +174,21 @@ if unable to destory."))
 
 (defgeneric database-get-type-specifier (type args database db-underlying-type)
   (:documentation "Return the type SQL type specifier as a string, for
-the given lisp type and parameters.")
-  (:method (type args database db-underlying-type)
-	   (declare (ignore type args db-type))
-	   (signal-no-database-error database)))
+the given lisp type and parameters."))
 
 (defgeneric database-list-tables (database &key owner)
   (:documentation "List all tables in the given database")
   (:method ((database t) &key owner)
 	   (declare (ignore owner))
 	   (signal-no-database-error database)))
+
+(defgeneric database-list-tables-and-sequences (database &key owner)
+  (:documentation "List all tables in the given database, may include seqeneces")
+  (:method ((database t) &key owner)
+	   (declare (ignore owner))
+	   (signal-no-database-error database))
+  (:method ((database database) &key owner)
+	   (database-list-tables database :owner owner)))
  
 (defgeneric database-list-views (database &key owner)
   (:documentation "List all views in the DATABASE.")