From 159a4ba88b6ed66a27968df60d91c6b284401d2b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 23 Dec 2005 10:50:36 +0000 Subject: [PATCH 1/1] r10858: 23 Dec 2005 Kevin Rosenberg * Version 3.5.1 * sql/expressions.lisp: Ensure table names are properly escaped before comparing -- fixes bug reported by Asbj\uffffrn Bj\uffffrnstad on CLSQL-Devel. --- ChangeLog | 6 ++++++ debian/changelog | 6 ++++++ sql/expressions.lisp | 4 ++-- 3 files changed, 14 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2764914..975db54 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +23 Dec 2005 Kevin Rosenberg + * Version 3.5.1 + * sql/expressions.lisp: Ensure table names are properly escaped + before comparing -- fixes bug reported by Asbjørn Bjørnstad + on CLSQL-Devel. + 02 Dec 2005 Kevin Rosenberg * sql/generic-postgresql.lisp: improved decoding of table attribute parameters [from Vladimir Sekissov] diff --git a/debian/changelog b/debian/changelog index 4f3986b..e42dcdd 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (3.5.2-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Fri, 23 Dec 2005 03:46:59 -0700 + cl-sql (3.5.1-1) unstable; urgency=low * New upstream diff --git a/sql/expressions.lisp b/sql/expressions.lisp index 57afac1..cd1a6d3 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -589,8 +589,8 @@ uninclusive, and the args from that keyword to the end." (string-equal (slot-value a 'alias) (slot-value b 'alias)) t) - (string-equal (symbol-name (slot-value a 'name)) - (symbol-name (slot-value b 'name)))))) + (string-equal (sql-escape (slot-value a 'name)) + (sql-escape (slot-value b 'name)))))) (typecase from (list (output-sql (apply #'vector (remove-duplicates from -- 2.34.1