X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;h=a2dd4372daf6d9c30d8fd925b48b99a4fefa6bd6;hp=6843d7202c57af35b3a5dc5882e0909112c8e3b9;hb=58938e668cde89aa4278f9f20e58e76963f33e3f;hpb=91a4807b887ad6e8b92dcd83a18c39d0be4d38e5

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 6843d72..a2dd437 100644
--- 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)