(signal-no-database-error database))
(:documentation "Remove all data from database."))
-(defgeneric database-describe-table (database table)
- (:method ((database t) table)
- (declare (ignore table))
- (signal-no-database-error database))
- (:documentation "Return a list of name/type for columns in table"))
-
(defgeneric database-destory (connection-spec type)
(:documentation
"Destroys a database, returns T if successfull or signals an error
;; Prepared statements
(defgeneric database-prepare (stmt types database result-types field-names)
- (:method (stmt types (database t))
- (declare (ignore stmt types))
+ (:method (stmt types (database t) result-types field-names)
+ (declare (ignore stmt types result-types field-names))
(signal-no-database-error database))
- (:method (stmt types (database database))
- (declare (ignore stmt types))
+ (:method (stmt types (database database) result-types field-names)
+ (declare (ignore stmt types result-types field-names))
(error 'sql-database-error
:message
(format nil "DATABASE-PREPARE not implemented for ~S" 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"))