- (cmd "SET SESSION sql_mode='ANSI'"))
- (if (zerop (mysql-real-query mysql-ptr cmd (expression-length cmd)))
- db
- (progn
- (warn "Error setting ANSI mode for MySQL.")
- db))))
+ (cmd "SET SESSION sql_mode='ANSI'"))
+ (uffi:with-cstring (cmd-cs cmd)
+ (if (zerop (mysql-real-query mysql-ptr cmd-cs (expression-length cmd)))
+ db
+ (progn
+ (warn "Error setting ANSI mode for MySQL.")
+ db)))))