diff --git a/src/sources/mysql.lisp b/src/sources/mysql.lisp index c7673c1..47e76d6 100644 --- a/src/sources/mysql.lisp +++ b/src/sources/mysql.lisp @@ -217,7 +217,7 @@ ;; while CREATE INDEX statements are in flight (avoid locking). ;; (when reset-sequences - (reset-sequences all-columns :state state)) + (reset-sequences (mapcar #'car all-columns) :state state)) ;; ;; Turn UNIQUE indexes into PRIMARY KEYS now