:result-types result-types :field-names field-names))
(defmethod query ((expr sql-object-query) &key (database *default-database*)
:result-types result-types :field-names field-names))
(defmethod query ((expr sql-object-query) &key (database *default-database*)