(subseq select-args first-key-arg))
select-args)))
-(defmethod make-query (&rest args)
+(defun make-query (&rest args)
(multiple-value-bind (selections arglist)
(query-get-selections args)
(destructuring-bind (&key all flatp set-operation distinct from where