projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11016: * sql/generic-postgresql.lisp: Revert patch from Joel Reymont since
[clsql.git]
/
sql
/
generic-postgresql.lisp
diff --git
a/sql/generic-postgresql.lisp
b/sql/generic-postgresql.lisp
index 5e3e177fb9add4f5f2323b14030bf791d30bab11..4958eaa72b74eb9effd8e3bd693850efdacccf3b 100644
(file)
--- a/
sql/generic-postgresql.lisp
+++ b/
sql/generic-postgresql.lisp
@@
-77,8
+77,12
@@
(mapcar #'car
(database-query
(format nil
(mapcar #'car
(database-query
(format nil
+ "SELECT relname FROM pg_class WHERE (relkind = '~A')~A"
+ #+nil
(if (not (eq owner :all))
(if (not (eq owner :all))
- "
+ ;; The below query fails on versions of postgresql
+ ;; (such as 7.4) that lack the pg_roles table
+ "
SELECT c.relname
FROM pg_catalog.pg_class c
LEFT JOIN pg_catalog.pg_roles r ON r.oid = c.relowner
SELECT c.relname
FROM pg_catalog.pg_class c
LEFT JOIN pg_catalog.pg_roles r ON r.oid = c.relowner
@@
-87,7
+91,7
@@
AND n.nspname NOT IN ('pg_catalog', 'pg_toast')
AND pg_catalog.pg_table_is_visible(c.oid)
~A"
AND n.nspname NOT IN ('pg_catalog', 'pg_toast')
AND pg_catalog.pg_table_is_visible(c.oid)
~A"
- "SELECT relname FROM pg_class WHERE (relkind =
+
"SELECT relname FROM pg_class WHERE (relkind =
'~A')~A")
type
(owner-clause owner))
'~A')~A")
type
(owner-clause owner))