(let ((has-innodb (caar (database-query "SHOW VARIABLES LIKE 'HAVE_INNODB'" database :auto))))
(and has-innodb (string-equal "YES" has-innodb))))
(let ((has-innodb (caar (database-query "SHOW VARIABLES LIKE 'HAVE_INNODB'" database :auto))))
(and has-innodb (string-equal "YES" has-innodb))))