"The internal generic implementation for checking if
database type library loaded successfully."))
-(defgeneric database-type (database)
- (:documentation
- "Returns database type")
- (:method (database)
- (signal-no-database-error database)))
-
-
(defgeneric database-initialize-database-type (database-type)
(:documentation
"The internal generic implementation of initialize-database-type."))
(signal-no-database-error database))
(:documentation "Internal generic implementation of disconnect."))
-(defgeneric database-query (query-expression database result-types)
- (:method (query-expression (database t) result-types)
- (declare (ignore query-expression result-types))
+(defgeneric database-query (query-expression database result-types field-names)
+ (:method (query-expression (database t) result-types field-names)
+ (declare (ignore query-expression result-types field-names))
(signal-no-database-error database))
(:documentation "Internal generic implementation of query."))
(signal-closed-database-error database)))
(defmethod database-query :before (query-expression (database database)
- result-set)
+ result-set field-names)
(declare (ignore query-expression result-set))
(unless (is-database-open database)
(signal-closed-database-error database)))