From 70b68458522e78d7111deb0b48a97bd926737cee Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sun, 28 Apr 2019 22:48:07 +0200 Subject: [PATCH] Apply identifier case to MS SQL column names in fkey definitions. This is a blind fix: it looks like we forgot to take care of identifier case when adding columns to foreign key definitions in MS SQL catalogs. Fixes #953. --- src/sources/mssql/mssql-schema.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/sources/mssql/mssql-schema.lisp b/src/sources/mssql/mssql-schema.lisp index 7286ff6..7986425 100644 --- a/src/sources/mssql/mssql-schema.lisp +++ b/src/sources/mssql/mssql-schema.lisp @@ -188,8 +188,8 @@ :delete-rule fk-delete-rule)) (fkey (maybe-add-fkey table fkey-name pg-fkey :key #'fkey-name))) - (push-to-end col (fkey-columns fkey)) - (push-to-end fcol (fkey-foreign-columns fkey))) + (push-to-end (apply-identifier-case col) (fkey-columns fkey)) + (push-to-end (apply-identifier-case fcol) (fkey-foreign-columns fkey))) :finally (return catalog)))