From 10639814d311ca88255cd32f7270a5df5d4fcf4c Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Wed, 10 Feb 2010 17:06:04 -0500 Subject: [PATCH] Updating uffi:foreign-encoded-string-octets->uffi:foreign-encoded-octet-count to keep up with changes there. --- db-mysql/mysql-sql.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp index 4bf3543..3e30222 100644 --- a/db-mysql/mysql-sql.lisp +++ b/db-mysql/mysql-sql.lisp @@ -159,7 +159,7 @@ :mysql-ptr mysql-ptr)) (cmd "SET SESSION sql_mode='ANSI'")) (uffi:with-cstring (cmd-cs cmd) - (if (zerop (mysql-real-query mysql-ptr cmd-cs (uffi:foreign-encoded-string-octets cmd))) + (if (zerop (mysql-real-query mysql-ptr cmd-cs (uffi:foreign-encoded-octet-count cmd))) db (progn (warn "Error setting ANSI mode for MySQL.") @@ -177,7 +177,7 @@ (let ((mysql-ptr (database-mysql-ptr database))) (declare (type mysql-mysql-ptr-def mysql-ptr)) (if (zerop (mysql-real-query mysql-ptr sql-native - (uffi:foreign-encoded-string-octets sql-expression))) + (uffi:foreign-encoded-octet-count sql-expression))) t (error 'sql-database-data-error :database database @@ -509,7 +509,7 @@ :message (mysql-error-string mysql-ptr))) (uffi:with-cstring (native-query sql-stmt) - (unless (zerop (mysql-stmt-prepare stmt native-query (uffi:foreign-encoded-string-octets sql-stmt))) + (unless (zerop (mysql-stmt-prepare stmt native-query (uffi:foreign-encoded-octet-count sql-stmt))) (mysql-stmt-close stmt) (error 'sql-database-error :error-id (mysql-errno mysql-ptr) -- 2.34.1