From: Russ Tyndall <russ@acceleration.net>
Date: Wed, 25 Apr 2012 16:24:30 +0000 (-0400)
Subject: added (*in-subselect* t) bindings around rendering out update/insert values
X-Git-Tag: v6.1.1~2
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=ee713f155f8afd9a0bc6156388c472df119a97fd

added (*in-subselect* t) bindings around rendering out update/insert values
---

diff --git a/ChangeLog b/ChangeLog
index 677611e..891b8e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,11 @@
 	about the current state of thread-safety in clsql. This should be
 	incorporated into the main docs at some point.
 
+2012-04-25  Russ Tyndall <russ@acceleration.net>
+	* sql/expressions.lisp (output-sql): on rendering update/insert
+	expression values, ensure that *in-subselect* is bound to T
+	so that the values will be correctly paren delimited
+
 2012-04-24  Nathan Bird  <nathan@acceleration.net>
 
 	* sql/expressions.lisp (output-sql): on mysql CREATE TABLE
diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 1479e67..7071227 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -813,7 +813,8 @@ uninclusive, and the args from that keyword to the end."
       (output-sql attributes database))
     (when values
       (write-string " VALUES " *sql-stream*)
-      (output-sql values database))
+      (let ((clsql-sys::*in-subselect* t))
+        (output-sql values database)))
     (when query
       (write-char #\Space *sql-stream*)
       (output-sql query database)))
@@ -870,7 +871,8 @@ uninclusive, and the args from that keyword to the end."
       (write-string "UPDATE " *sql-stream*)
       (output-sql table database)
       (write-string " SET " *sql-stream*)
-      (output-sql (apply #'vector (update-assignments)) database)
+      (let ((clsql-sys::*in-subselect* t))
+        (output-sql (apply #'vector (update-assignments)) database))
       (output-sql-where-clause where database)))
   t)