 (emacsql-defexpander :set (set)
   (emacsql-with-vars "SET "
     (cl-etypecase set
-      (vector (mapconcat (lambda (s) (combine (emacsql--expr s))) set ", "))
+      (vector (combine (emacsql--idents set)))
       (list (combine (emacsql--expr set))))))
 
 (emacsql-defexpander :union ()

      (symbol (var table :identifier))
      (list (cl-destructuring-bind (name columns) table
              (format "%s (%s)" (var name :identifier)
                      (mapconcat (lambda (c) (var c :identifier))
                                 columns ", ")))))))

(emacsql-defexpander :where (expr)
  (emacsql-with-vars "WHERE "

(emacsql-defexpander :select (arg)
  "Expands to the SELECT keyword."
  (emacsql-with-vars "SELECT "
    (if (eq '* arg)
        "*"
      (combine (emacsql--idents arg)))))

(emacsql-defexpander :from (table)
  "Expands to the FROM keyword."
