From 26533896461bb09509b5df14c767afe85dce324d Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 16 Nov 2005 06:43:17 +0000 Subject: [PATCH] r10839: 15 Nov 2005 Kevin Rosenberg * Version 3.4.5 * sql/expressions.lisp: Patch from James Biel to add subselects --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ sql/expressions.lisp | 3 ++- 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3b83773..014cc01 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +15 Nov 2005 Kevin Rosenberg + * Version 3.4.5 + * sql/expressions.lisp: Patch from James Biel to add subselects + 14 Nov 2005 Kevin Rosenberg * 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 29a55fb..fd40854 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (3.4.5-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 766da12..57afac1 100644 --- 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)) -- 2.34.1