Fix identifiers quoting when reading PostgreSQL catalogs.

We sure can trust PostgreSQL to use names it knows how to handle. Still, it
will be happy to store in its catalogs names containing upper case, and in
that case we must quote them.
This commit is contained in:
Dimitri Fontaine 2017-07-06 03:13:22 +02:00
parent e87477ed31
commit 9da012ca51

View File

@ -8,7 +8,7 @@
&key table source-catalog including excluding)
"Fetch PostgreSQL catalogs for the target database. A PostgreSQL
connection must be opened."
(let* ((*identifier-case* :none)
(let* ((*identifier-case* :quote)
(catalog (make-catalog :name dbname))
(including (cond ((and table (not including))
(make-including-expr-from-table table))