(let* ((res (database-query query-expression database result-types))
(res (if (and flatp (= (length
(slot-value query-expression 'selections))
1))
(mapcar #'car res)
res)))
(let* ((res (database-query query-expression database result-types))
(res (if (and flatp (= (length
(slot-value query-expression 'selections))
1))
(mapcar #'car res)
res)))