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

Fixes dimitri#933.
erchn · May 11, 2019 · 501cbed · 501cbed
1 parent 06216ee
commit 501cbed
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/pgsql/pgsql-create-schema.lisp b/src/pgsql/pgsql-create-schema.lisp
@@ -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