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

[clsql.git] / db-postgresql-socket3 / sql.lisp

diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp
index 548d2195743b9ee589421466d0c6ad3963c1c622..7f545c80ee63eb4124ed9eb07ff9a53199286e8d 100644 (file)
--- 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)))