projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e222ba2
)
Updating uffi:foreign-encoded-string-octets->uffi:foreign-encoded-octet-count to...
author
Nathan Bird
<nathan@acceleration.net>
Wed, 10 Feb 2010 22:06:04 +0000
(17:06 -0500)
committer
Nathan Bird
<nathan@acceleration.net>
Wed, 10 Feb 2010 22:06:04 +0000
(17:06 -0500)
db-mysql/mysql-sql.lisp
patch
|
blob
|
history
diff --git
a/db-mysql/mysql-sql.lisp
b/db-mysql/mysql-sql.lisp
index 4bf3543a29b380c07476db0e91818fd65c1de4e1..3e302227ea6938f82124216edb4a0cfdc2ee7cb1 100644
(file)
--- 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)
: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.")
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
(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
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)
: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)
(mysql-stmt-close stmt)
(error 'sql-database-error
:error-id (mysql-errno mysql-ptr)