From 4e51fc4d6755b1d32f3b2f7ebb43eb73ff96bbbb Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 12 Nov 2004 15:11:39 +0000 Subject: [PATCH] r10156: * Version 3.1.1 * sql/generic-postgresql.lisp: Commit patch from Chris Capel to ignore columns which have been dropped. --- ChangeLog | 5 ++++- debian/changelog | 7 +++++++ sql/generic-postgresql.lisp | 2 +- 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5c88642..276cb9d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,9 @@ 11 Nov 2004 Kevin Rosenberg + * Version 3.1.1 + * sql/generic-postgresql.lisp: Commit patch from Chris Capel to + ignore columns which have been dropped. * clsql-postgresql-socket.asd, db-postgresql-socket/postgresql-socket-package.lisp: - Use sb-md5 package on SBCL, recommended by Chris capel + Use sb-md5 package on SBCL, recommended by Chris Capel 09 Nov 2004 Kevin Rosenberg * Version 3.1.0 released: New SQLite3 backend by Aurelio Bignoli diff --git a/debian/changelog b/debian/changelog index e4cc865..0a4ea08 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +cl-sql (3.1.1-1) unstable; urgency=low + + * New upstream + * Rebuild against mysqlclient (closes:280253) + + -- Kevin M. Rosenberg Fri, 12 Nov 2004 08:09:38 -0700 + cl-sql (3.1.0-1) unstable; urgency=low * New upstream diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp index 5149bb0..ac01e7b 100644 --- a/sql/generic-postgresql.lisp +++ b/sql/generic-postgresql.lisp @@ -115,7 +115,7 @@ (result (mapcar #'car (database-query - (format nil "SELECT attname FROM pg_class,pg_attribute WHERE pg_class.oid=attrelid AND relname='~A'~A" + (format nil "SELECT attname FROM pg_class,pg_attribute WHERE pg_class.oid=attrelid AND attisdropped = FALSE AND relname='~A'~A" (string-downcase table) owner-clause) database nil nil)))) -- 2.34.1