r11026: 14 Aug 2006 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / sql / generic-postgresql.lisp

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 6843d7202c57af35b3a5dc5882e0909112c8e3b9..a2dd4372daf6d9c30d8fd925b48b99a4fefa6bd6 100644 (file)
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -70,7 +70,7 @@
      " AND (relowner=(SELECT usesysid FROM pg_user WHERE (usename='~A')))"
      owner))
    ((null owner)
-    (format nil " AND (NOT (relowner=1))"))
+    (format nil " AND (relowner<>(SELECT usesysid FROM pg_user WHERE usename='postgres'))"))
    (t "")))
 
 (defun has-table (name database)
@@ -86,6 +86,7 @@
 (defmethod slot-unbound (class (obj generic-postgresql-database)
                          (slot (eql 'has-table-pg_roles)))
   ;; Lazily cache slot value
+  (declare (ignore class))
   (setf (slot-value obj 'has-table-pg_roles) (has-table "pg_roles" obj)))
 
 (defun database-list-objects-of-type (database type owner)