From 58938e668cde89aa4278f9f20e58e76963f33e3f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 14 Aug 2006 06:54:32 +0000 Subject: [PATCH] r11026: 14 Aug 2006 Kevin Rosenberg * Version 3.6.6 * sql/generic-postgresql.lisp: Fix assumption that postgres user id is always 1. --- ChangeLog | 5 +++++ debian/changelog | 6 ++++++ sql/generic-postgresql.lisp | 3 ++- 3 files changed, 13 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index b5c8ae6..e3c3069 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +14 Aug 2006 Kevin Rosenberg + * Version 3.6.6 + * sql/generic-postgresql.lisp: Fix assumption that postgres user id + is always 1. + 12 Aug 2006 Kevin Rosenberg * 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 6a23526..e4baa64 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (3.6.6-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Mon, 14 Aug 2006 00:53:43 -0600 + cl-sql (3.6.5-1) unstable; urgency=low * New upstream 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) -- 2.34.1