From 89d1ab460d9ff5bdee8e747a0c7dbe1e22a0b3e9 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Tue, 27 May 2014 17:36:00 +0200
Subject: [PATCH] Handle both PostgreSQL reserved keywords catcode, fix #63.

---
 src/pgsql/queries.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/pgsql/queries.lisp b/src/pgsql/queries.lisp
index 5322ea7..a218385 100644
--- a/src/pgsql/queries.lisp
+++ b/src/pgsql/queries.lisp
@@ -168,7 +168,9 @@ select relname, array_agg(case when typname in ('date', 'timestamptz')
 (defun list-reserved-keywords (dbname)
   "Connect to PostgreSQL DBNAME and fetch reserved keywords."
   (with-pgsql-transaction (:dbname dbname)
-    (pomo:query "select word from pg_get_keywords() where catcode = 'R'" :column)))
+    (pomo:query "select word
+                   from pg_get_keywords()
+                  where catcode IN ('R', 'T')" :column)))
 
 (defun reset-all-sequences (dbname &key tables)
   "Reset all sequences to the max value of the column they are attached to."