(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)))