X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fexpressions.lisp;fp=sql%2Fexpressions.lisp;h=9335ae0e0a5e0995357da7cabaa331de00778950;hp=281da967706d13118df81abbe738d17cf8e0d698;hb=2c69ef4d171d214a7d54b598184dadb864704852;hpb=7cdd27f6a65387461baea7099a9e674e42ba26d4

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