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