(multiple-value-bind (selections arglist)
(query-get-selections args)
(destructuring-bind (&key all flatp set-operation distinct from where
(multiple-value-bind (selections arglist)
(query-get-selections args)
(destructuring-bind (&key all flatp set-operation distinct from where