diff --git a/mysql.lisp b/mysql.lisp index 747b9a9..40ce38d 100644 --- a/mysql.lisp +++ b/mysql.lisp @@ -572,7 +572,8 @@ order by ordinal_position" dbname table-name))) (mapcar (lambda (name) (apply-identifier-case name identifier-case)) only-tables))) - (pgloader.pgsql:reset-all-sequences pg-dbname :only-tables only-tables))) + (log-message :notice "Resetting all sequences") + (pgloader.pgsql:reset-all-sequences pg-dbname :only-tables only-tables))) ;; now end the kernels (let ((lp:*kernel* idx-kernel)) (lp:end-kernel)) diff --git a/pgsql.lisp b/pgsql.lisp index b635280..b806b95 100644 --- a/pgsql.lisp +++ b/pgsql.lisp @@ -151,7 +151,7 @@ BEGIN and a.atthasdef WHERE relkind = 'r' and a.attnum > 0 and pg_get_expr(d.adbin, d.adrelid) ~~ '^nextval' - ~@[and c.oid in ~{'~a'::regclass~^, ~}~] + ~@[and c.oid in (~{'~a'::regclass~^, ~})~] LOOP n := n + 1; EXECUTE r.sql;