r11026: 14 Aug 2006 Kevin Rosenberg <kevin@rosenberg.net>
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 14 Aug 2006 06:54:32 +0000 (06:54 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 14 Aug 2006 06:54:32 +0000 (06:54 +0000)
        * Version 3.6.6
        * sql/generic-postgresql.lisp: Fix assumption that postgres user id
        is always 1.

ChangeLog
debian/changelog
sql/generic-postgresql.lisp

index b5c8ae6..e3c3069 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+14 Aug 2006  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.6.6
+       * sql/generic-postgresql.lisp: Fix assumption that postgres user id
+       is always 1.
+
 12 Aug 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.6.5
        * sql/generic-postgresql.lisp: Add slot for has-table-pg_roles to
index 6a23526..e4baa64 100644 (file)
@@ -1,3 +1,9 @@
+cl-sql (3.6.6-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 14 Aug 2006 00:53:43 -0600
+
 cl-sql (3.6.5-1) unstable; urgency=low
 
   * New upstream
index 6843d72..a2dd437 100644 (file)
@@ -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)