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

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 281da967706d13118df81abbe738d17cf8e0d698..9335ae0e0a5e0995357da7cabaa331de00778950 100644 (file)
--- 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)
       (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
   t)
 
 ;; CREATE TABLE