From 501cbed7452e31e7f689979e97adb1288c7c00f3 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sun, 12 May 2019 00:50:59 +0200
Subject: [PATCH] Quote database name in ALTER DATABASE "..." SET search_path
 TO

Fixes #933.
---
 src/pgsql/pgsql-create-schema.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/pgsql/pgsql-create-schema.lisp b/src/pgsql/pgsql-create-schema.lisp
index 44c511a..e9640db 100644
--- 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