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

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 281da96..1479e67 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
@@ -941,7 +939,7 @@ uninclusive, and the args from that keyword to the end."
       (when (and (eq :mysql (database-underlying-type database))
                  transactions
                  (db-type-transaction-capable? :mysql database))
-        (write-string " Type=InnoDB" *sql-stream*))))
+        (write-string " ENGINE=innodb" *sql-stream*))))
   t)