     (list   (mapconcat #'emacsql-escape-vector vector ", "))
     (vector (concat "(" (mapconcat #'emacsql-escape-value vector ", ") ")"))))
 
-;; SQL Expansion:
+;; Structured SQL compilation:
 
 (defvar emacsql-expanders ()
   "Alist of all expansion functions.")

               collect row into rows and do (setf row ())
               finally (cl-return rows)))))

(defun emacsql-quote (string)
  "Quote STRING for use in a SQL expression."
  (format "'%s'" (replace-regexp-in-string "'" "''" string)))


(defvar emacsql-sqlite3-executable "sqlite3"
  "Path to the sqlite3 executable.")

(defun emacsql-sqlite3-unavailable-p ()
  "Return a reason if the sqlite3 executable is not available.
