(defmethod collect-table-refs ((sql sql-query))
(remove-duplicates (collect-table-refs (slot-value sql 'where))
:test (lambda (tab1 tab2)
(defmethod collect-table-refs ((sql sql-query))
(remove-duplicates (collect-table-refs (slot-value sql 'where))
:test (lambda (tab1 tab2)
(multiple-value-bind (selections arglist)
(query-get-selections args)
(if (select-objects selections)
(multiple-value-bind (selections arglist)
(query-get-selections args)
(if (select-objects selections)
(destructuring-bind (&key all flatp set-operation distinct from where
group-by having order-by order-by-descending
offset limit inner-join on &allow-other-keys)
(destructuring-bind (&key all flatp set-operation distinct from where
group-by having order-by order-by-descending
offset limit inner-join on &allow-other-keys)