From d3bfb1db31cad2c10ff185ae8d891718c197163b Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Mon, 20 Aug 2018 11:50:50 +0200 Subject: [PATCH] Bugfix previous commit: filter list format changed. We now accept the more general string and regex match rules, but the code to generate including and excluding lists from the catalogs had not been updated. --- src/pgsql/pgsql-schema.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/pgsql/pgsql-schema.lisp b/src/pgsql/pgsql-schema.lisp index e5ce1af..b47c4e5 100644 --- a/src/pgsql/pgsql-schema.lisp +++ b/src/pgsql/pgsql-schema.lisp @@ -100,7 +100,7 @@ (defun format-table-name-as-including-exp (table) "Return a table name suitable for a catalog lookup using ~ operator." (let ((table-name (table-name table))) - (format nil "^~a$" (ensure-unquoted table-name)))) + (make-string-match-rule :target (ensure-unquoted table-name)))) (defun query-table-schema (table) "Get PostgreSQL schema name where to locate TABLE-NAME by following the