X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-mysql%2Fmysql-sql.lisp;h=33d84e7ff3dbe9aa2ceccd229aa02edfb7f2b4bd;hp=11a51b00941c0c781fa6d63e22e89908e45e4948;hb=510b3d1d2d18c73ca222fce2b711f1b2f5025ba0;hpb=c8237b2b84003326358882da1d3f93919231a1de

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 11a51b0..33d84e7 100644
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -493,8 +493,8 @@
       
       (let* ((field-vec (mysql-fetch-fields rs))
 	     (num-fields (mysql-num-fields rs))
-	     (input-bind (uffi:allocate-foreign-object mysql-bind (length types)))
-	     (output-bind (uffi:allocate-foreign-object mysql-bind num-fields))
+	     (input-bind (uffi:allocate-foreign-object 'mysql-bind (length types)))
+	     (output-bind (uffi:allocate-foreign-object 'mysql-bind num-fields))
 	     (length-ptr (uffi:allocate-foreign-object :unsigned-long num-fields))
 	     (is-null-ptr (uffi:allocate-foreign-object :byte num-fields))
 	     (mysql-types (mapcar 'clsql-type->mysql-type types)))