r10088: Add support for blob result type

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

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 11a51b00941c0c781fa6d63e22e89908e45e4948..c202a5e29d80aa929c3cafcbfae4fec113655a40 100644 (file)
--- 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)))