(sql-ident-attribute
(unless (slot-value (nth i order-by-list) 'qualifier)
(setf (slot-value (nth i order-by-list) 'qualifier) table-name)))
(cons
(unless (slot-value (car (nth i order-by-list)) 'qualifier)
(sql-ident-attribute
(unless (slot-value (nth i order-by-list) 'qualifier)
(setf (slot-value (nth i order-by-list) 'qualifier) table-name)))
(cons
(unless (slot-value (car (nth i order-by-list)) 'qualifier)