r10858: 23 Dec 2005 Kevin Rosenberg <kevin@rosenberg.net>

        * 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.

diff --git a/ChangeLog b/ChangeLog
index 2764914a7673d76550afdf0602b71794bac463bb..975db547d37804e79c2c211cc1bab47e04c70f45 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+23 Dec 2005  Kevin Rosenberg <kevin@rosenberg.net>
+       * 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 <kevin@rosenberg.net>
        * sql/generic-postgresql.lisp: improved decoding of table attribute
          parameters [from Vladimir Sekissov]

diff --git a/debian/changelog b/debian/changelog
index 4f3986b4ba47175d5bd807defa4f14f6cc161a6f..e42dcdd0ab97f6718bad1faa413437212c8472c4 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (3.5.2-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  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 57afac1b391084aaf658ec4d3511d6573ceaeb2e..cd1a6d397bc9a2665bf0472a80d5d14aa563e602 100644 (file)
--- 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