Quote database name in ALTER DATABASE "..." SET search_path TO

Fixes #933.
This commit is contained in:
Dimitri Fontaine 2019-05-12 00:50:59 +02:00
parent 06216eea99
commit 501cbed745

View File

@ -95,7 +95,7 @@
:collect schema-name)))
(when missing-schemas
(let ((sql (format nil
"ALTER DATABASE ~a SET search_path TO ~{~a~^, ~};"
"ALTER DATABASE ~s SET search_path TO ~{~a~^, ~};"
dbname
(append search-path missing-schemas))))
(pgsql-execute-with-timing section