(defmethod database-list-tables ((database postgresql-socket3-database) &key owner)
(clsql:query (command-object "
(defmethod database-list-tables ((database postgresql-socket3-database) &key owner)
(clsql:query (command-object "
SELECT table_name FROM information_schema.tables
WHERE ($1::Text IS NULL or table_schema = $1::text)"
(list (or owner :null)))
SELECT table_name FROM information_schema.tables
WHERE ($1::Text IS NULL or table_schema = $1::text)"
(list (or owner :null)))