that expression and a list of field names selected in sql-exp."))
(defmethod query ((query-expression string) &key (database *default-database*)
- (result-types nil) (flatp nil) (field-names t))
+ (result-types :auto) (flatp nil) (field-names t))
(record-sql-action query-expression :query database)
(multiple-value-bind (rows names) (database-query query-expression database result-types
field-names)