X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fdb-interface.lisp;h=939af1fa68ff89356e7f35bc4d8a56ca258348cf;hp=7699841dfc45a201e2bddee31c23132f4a0ca256;hb=e622ee6f4bf2b9fe81af59d566e651c983a4833b;hpb=3a3ccc7a171dc4c6c10bc7e3fea8461fca6dc51b diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp index 7699841..939af1f 100644 --- a/sql/db-interface.lisp +++ b/sql/db-interface.lisp @@ -172,18 +172,23 @@ if unable to destory.")) (:method ((database t)) (signal-no-database-error database))) -(defgeneric database-get-type-specifier (type args database) +(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 t)) - (declare (ignore type args)) - (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.")