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