From: Kevin M. Rosenberg Date: Mon, 14 Aug 2006 06:54:32 +0000 (+0000) Subject: r11026: 14 Aug 2006 Kevin Rosenberg X-Git-Tag: v3.8.6~66 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=58938e668cde89aa4278f9f20e58e76963f33e3f;hp=91a4807b887ad6e8b92dcd83a18c39d0be4d38e5 r11026: 14 Aug 2006 Kevin Rosenberg * Version 3.6.6 * sql/generic-postgresql.lisp: Fix assumption that postgres user id is always 1. --- 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)