(defvar *select-arguments*
'(:all :database :distinct :flatp :from :group-by :having :order-by
:order-by-descending :set-operation :where :offset :limit
(defvar *select-arguments*
'(:all :database :distinct :flatp :from :group-by :having :order-by
:order-by-descending :set-operation :where :offset :limit