From 9347205f5d899b30b8bb4429bf47ae59709c14d7 Mon Sep 17 00:00:00 2001
From: Russ Tyndall <russ@acceleration.net>
Date: Mon, 14 Dec 2009 18:06:47 -0500
Subject: [PATCH] removed a bit of debugging code from database-list-tables

---
 db-postgresql-socket3/sql.lisp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp
index 548d219..7f545c8 100644
--- a/db-postgresql-socket3/sql.lisp
+++ b/db-postgresql-socket3/sql.lisp
@@ -345,8 +345,6 @@
 
 (defmethod database-list-tables ((database postgresql-socket3-database) &key owner)
   (clsql:query (command-object "
-SELECT $1::Text as table_name
-UNION 
 SELECT table_name FROM information_schema.tables
                                 WHERE ($1::Text IS NULL or table_schema = $1::text)"
 			       (list (or owner :null)))
-- 
2.34.1