(multiple-value-bind (rows names)
(database-query obj database result-types field-names)
(let ((result (if (and flatp (= 1 (length (car rows))))
(multiple-value-bind (rows names)
(database-query obj database result-types field-names)
(let ((result (if (and flatp (= 1 (length (car rows))))