X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-mysql%2Fmysql-sql.lisp;h=c202a5e29d80aa929c3cafcbfae4fec113655a40;hb=2d7fb2dcce0f94745672b4f2aff6be39d610a063;hp=224c77859ede2891c450218493cf39bdc296a861;hpb=0dd4908bccba75a4e0e6a616e5911de126f951c9;p=clsql.git

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 224c778..c202a5e 100644
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -41,7 +41,7 @@
     (dotimes (i num-fields)
       (declare (fixnum i))
       (let* ((field (uffi:deref-array field-vec '(:array mysql-field) i))
-	      (type (uffi:get-slot-value field 'mysql-field 'type)))
+	     (type (uffi:get-slot-value field 'mysql-field 'type)))
 	(push
 	 (case type
 	   ((#.mysql-field-types#tiny 
@@ -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)))
@@ -685,7 +685,8 @@
   #-mysql-client-v4.1 nil)
 
 (defmethod db-type-has-boolean-where? ((db-type (eql :mysql)))
-  nil)
+  #+mysql-client-v4.1 t
+  #-mysql-client-v4.1 nil)
 
 (defmethod db-type-has-union? ((db-type (eql :mysql)))
   (not (eql (schar mysql::*mysql-client-info* 0) #\3)))