r10085: 04 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / db-mysql / mysql-sql.lisp

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 224c77859ede2891c450218493cf39bdc296a861..33d84e7ff3dbe9aa2ceccd229aa02edfb7f2b4bd 100644 (file)
--- 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)))
@@ -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)))