From: Russ Tyndall <russ@acceleration.net>
Date: Mon, 14 Dec 2009 23:06:47 +0000 (-0500)
Subject: removed a bit of debugging code from database-list-tables
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=9347205f5d899b30b8bb4429bf47ae59709c14d7;p=clsql.git

removed a bit of debugging code from database-list-tables
---

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)))