   "Escape THING for use as a `format' spec, pre-escaping for KIND.
 KIND should be :value or :identifier."
   (replace-regexp-in-string
-   "%" "%%" (case kind
+   "%" "%%" (cl-case kind
               (:value (emacsql-escape-value thing))
               (:identifier (emacsql-escape thing))
               (otherwise thing))))

        (type nil))
    (while column
      (let ((next (pop column)))
        (case next
          (:primary (push "PRIMARY KEY" output))
          (:non-nil (push "NOT NULL" output))
          (:unique  (push "UNIQUE" output))

  (cl-loop for column being the elements of schema
           when (symbolp column) collect (emacsql-escape column) into parts
           else collect (emacsql--column-to-string column) into parts
           finally (cl-return (mapconcat #'identity parts ", "))))

(defun emacsql-create (conn table schema &optional if-not-exists)
  "Create TABLE in CONN with SCHEMA."
