r11026: 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.

diff --git a/ChangeLog b/ChangeLog
index b5c8ae6191c4019b2abd598ee8d89bffee162227..e3c3069aca3f769c23454646cbc6b10ac0991f85 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
 12 Aug 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.6.5
        * sql/generic-postgresql.lisp: Add slot for has-table-pg_roles to

diff --git a/debian/changelog b/debian/changelog
index 6a2352615f6dd2a9bdc61dc92eb041c7ff96d6f5..e4baa642393a1cb918f69ee0d77291e91f60b3de 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -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
 cl-sql (3.6.5-1) unstable; urgency=low
 
   * New upstream

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)
      " 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)
    (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
 (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)
   (setf (slot-value obj 'has-table-pg_roles) (has-table "pg_roles" obj)))
 
 (defun database-list-objects-of-type (database type owner)