From: Ryan Davis <ryan@acceleration.net>
Date: Mon, 26 Mar 2012 19:57:24 +0000 (-0400)
Subject: use output-sql-where-clause when rendering update statements
X-Git-Tag: v6.1.1~11
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=2c69ef4d171d214a7d54b598184dadb864704852

use output-sql-where-clause when rendering update statements
---

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 281da96..9335ae0 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -871,9 +871,7 @@ uninclusive, and the args from that keyword to the end."
       (output-sql table database)
       (write-string " SET " *sql-stream*)
       (output-sql (apply #'vector (update-assignments)) database)
-      (when where
-        (write-string " WHERE " *sql-stream*)
-        (output-sql where database))))
+      (output-sql-where-clause where database)))
   t)
 
 ;; CREATE TABLE