anchor.diff:        
         (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))
   	     (length-ptr (uffi:allocate-foreign-object :unsigned-long num-fields))
  -	     (is-null-ptr (uffi:allocate-foreign-object :byte num-fields)))
  +	     (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)))	    
   
   	(dotimes (i num-fields)
   	  (declare (fixnum i))
  
positive.code: 		 (type (uffi:get-slot-value field 'mysql-field 'type))
  		 (binding (uffi:deref-array output-bind '(:array mysql-bind) i)))
  	    (setf (uffi:get-slot-value binding 'mysql-bind 'buffer-type) type)
  	    (setf (uffi:get-slot-value binding 'mysql-bind 'buffer-length) 0)
  	    (setf (uffi:get-slot-value binding 'mysql-bind 'is-null) 
  		  (uffi:pointer-address (uffi:deref-array is-null-ptr '(:array :byte) i)))
  	    (setf (uffi:get-slot-value binding 'mysql-bind 'length) 
  		  (uffi:pointer-address (uffi:deref-array length-ptr '(:array :unsigned-long) i)))
  
  	    (case type
  	      ((#.mysql-field-types#var-string #.mysql-field-types#string
  	       #.mysql-field-types#tiny-blob #.mysql-field-types#blob
  	       #.mysql-field-types#medium-blob #.mysql-field-types#long-blob)
  	       (setf (uffi:get-slot-value binding 'mysql-bind 'buffer-length) 1024)
  	       (setf (uffi:get-slot-value binding 'mysql-bind 'buffer)
  		     (uffi:allocate-foreign-object :unsigned-char 1024)))
  
negative.code:     ((in type :short) mysql-field-types#short)
      ((in type :bigint) mysql-field-types#longlong)
      ((in type :float :double :number) mysql-field-types#double)
      ((and (consp type) (in (car type) :char :string :varchar)) mysql-field-types#var-string)
      (t
         (error 'sql-user-error 
  	      :message 
  