From 0c6b5c1767dcb6bf8e501fb0318facebc09a65b1 Mon Sep 17 00:00:00 2001 From: Robert Mayer Date: Sun, 1 Sep 2024 08:06:48 +0200 Subject: [PATCH] quote indexes whose names contain e.g. "-" --- src/sources/mssql/mssql-schema.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/sources/mssql/mssql-schema.lisp b/src/sources/mssql/mssql-schema.lisp index e84033f2..40e6dd9f 100644 --- a/src/sources/mssql/mssql-schema.lisp +++ b/src/sources/mssql/mssql-schema.lisp @@ -98,7 +98,8 @@ incl-where excl-where ; do we print the clause? excl-where)) - :do (let* ((schema (find-schema catalog schema-name)) + :do (let* ((index-name (apply-identifier-case index-name)) + (schema (find-schema catalog schema-name)) (table (find-table schema table-name)) (pg-index (make-index :name index-name :schema schema