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