(defmethod db-type-transaction-capable? ((db-type (eql :mysql)) database)
(let ((tuple (car (database-query "SHOW VARIABLES LIKE 'HAVE_INNODB'" database :auto nil))))
(and tuple (string-equal "YES" (second tuple)))))
(defmethod db-type-transaction-capable? ((db-type (eql :mysql)) database)
(let ((tuple (car (database-query "SHOW VARIABLES LIKE 'HAVE_INNODB'" database :auto nil))))
(and tuple (string-equal "YES" (second tuple)))))