From 1f242cd29e9bcf6816583fae7647a90b3ba66858 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Wed, 23 Aug 2017 11:26:08 +0200 Subject: [PATCH] Fix comment support to schema qualify target tables. --- src/pgsql/pgsql-create-schema.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/pgsql/pgsql-create-schema.lisp b/src/pgsql/pgsql-create-schema.lisp index c813633..8c3b1c4 100644 --- a/src/pgsql/pgsql-create-schema.lisp +++ b/src/pgsql/pgsql-create-schema.lisp @@ -414,7 +414,7 @@ $$; " tables))) (loop :for table :in (table-list catalog) :when (table-comment table) :collect (format nil "comment on table ~a is $~a$~a$~a$" - (table-name table) + (format-table-name table) quote (table-comment table) quote) ;; for each table, append column level comments @@ -423,7 +423,7 @@ $$; " tables))) :when (column-comment column) :collect (format nil "comment on column ~a.~a is $~a$~a$~a$" - (table-name table) + (format-table-name table) (column-name column) quote (column-comment column) quote))))) (pgsql-execute-with-timing section label sql-list)))