r10839: 15 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>

        * Version 3.4.5
        * sql/expressions.lisp: Patch from James Biel to add subselects

diff --git a/ChangeLog b/ChangeLog
index 3b83773952fe80028bccdb50035aa35ed9fb8629..014cc01aae8d6668607d95e3d14fac47bbeda258 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+15 Nov 2005  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.4.5
+       * sql/expressions.lisp: Patch from James Biel to add subselects
+
 14 Nov 2005  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.4.4 [ Requires UFFI 1.5.7+] 
        * db-oracle/oracle-{api,sql}.lisp: Patch from James Biel

diff --git a/debian/changelog b/debian/changelog
index 29a55fbfe5a85f3a028c7fc70421aabfdd5e91a4..fd408540395343449703405be588421deebef296 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (3.4.5-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 15 Nov 2005 23:42:20 -0700
+
 cl-sql (3.4.4-1) unstable; urgency=low
 
   * New upstream

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 766da12e6a3c9dba19b628aa608617d186c4da76..57afac1b391084aaf658ec4d3511d6573ceaeb2e 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -597,7 +597,8 @@ uninclusive, and the args from that keyword to the end."
                                                       :test #'ident-table-equal))
                             database))
           (string (write-string from *sql-stream*))
-          (t (output-sql from database)))))
+          (t (let ((*in-subselect* t))
+               (output-sql from database))))))
     (when inner-join
       (write-string " INNER JOIN " *sql-stream*)
       (output-sql inner-join database))