X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fdb-interface.lisp;h=7699841dfc45a201e2bddee31c23132f4a0ca256;hb=760cf506d0395b2140f9c83c2f3d00a147262bf9;hp=385e08ba07b7b0811b11f5a29f03f16228b4e040;hpb=8c6c643e3debe875bd14408cc3129d8148dfd125;p=clsql.git diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp index 385e08b..7699841 100644 --- a/sql/db-interface.lisp +++ b/sql/db-interface.lisp @@ -174,32 +174,59 @@ if unable to destory.")) (defgeneric database-get-type-specifier (type args database) (:documentation "Return the type SQL type specifier as a string, for -the given lisp type and parameters.")) +the given lisp type and parameters.") + (:method (type args (database t)) + (declare (ignore type args)) + (signal-no-database-error database))) (defgeneric database-list-tables (database &key owner) - (:documentation "List all tables in the given database")) + (:documentation "List all tables in the given database") + (:method ((database t) &key owner) + (declare (ignore owner)) + (signal-no-database-error database))) (defgeneric database-list-views (database &key owner) - (:documentation "List all views in the DATABASE.")) + (:documentation "List all views in the DATABASE.") + (:method ((database t) &key owner) + (declare (ignore owner)) + (signal-no-database-error database))) (defgeneric database-list-indexes (database &key owner) - (:documentation "List all indexes in the DATABASE.")) + (:documentation "List all indexes in the DATABASE.") + (:method ((database t) &key owner) + (declare (ignore owner)) + (signal-no-database-error database))) (defgeneric database-list-table-indexes (table database &key owner) - (:documentation "List all indexes for a table in the DATABASE.")) + (:documentation "List all indexes for a table in the DATABASE.") + (:method (table (database t) &key owner) + (declare (ignore table owner)) + (signal-no-database-error database))) (defgeneric database-list-attributes (table database &key owner) - (:documentation "List all attributes in TABLE.")) + (:documentation "List all attributes in TABLE.") + (:method (table (database t) &key owner) + (declare (ignore table owner)) + (signal-no-database-error database))) (defgeneric database-attribute-type (attribute table database &key owner) (:documentation "Return the type of ATTRIBUTE in TABLE. Returns multiple values -of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")) +of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.") + (:method (attribute table (database t) &key owner) + (declare (ignore attribute table owner)) + (signal-no-database-error database))) (defgeneric database-add-attribute (table attribute database) - (:documentation "Add the attribute to the table.")) + (:documentation "Add the attribute to the table.") + (:method (table attribute (database t)) + (declare (ignore table attribute)) + (signal-no-database-error database))) (defgeneric database-rename-attribute (table oldatt newname database) - (:documentation "Rename the attribute in the table to NEWNAME.")) + (:documentation "Rename the attribute in the table to NEWNAME.") + (:method (table oldatt newname (database t)) + (declare (ignore table oldatt newname)) + (signal-no-database-error database))) (defgeneric oid (object) (:documentation "Return the unique ID of a database object."))