+ (is-null-ptr (uffi:allocate-foreign-object :byte num-fields))
+ (mysql-types (mapcar 'clsql-type->mysql-type types)))
+
+ (dotimes (i (length types))
+ (let* ((binding (uffi:deref-array input-bind '(:array mysql-bind) i)))
+ (setf (uffi:get-slot-value binding 'mysql-bind 'buffer-type)
+ (nth i mysql-types))
+ (setf (uffi:get-slot-value binding 'mysql-bind 'buffer-length) 0)))