anchor.diff:      ((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 :varchar)) mysql-field-types#var-string)
  +    ((and (consp type) (in (car type) :char :string :varchar)) mysql-field-types#var-string)
       (t
          (error 'sql-user-error 
   	      :message 
  
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: #+mysql-client-v4.1
  (defun database-fetch-prepared-rows (stmt)
    (do ((rc (mysql-stmt-fetch (stmt stmt)) (mysql-stmt-fetch (stmt stmt)))
         (num-fields (num-fields stmt))
         (rows '()))
        ((not (zerop rc)) (nreverse rows))
      (push
       (loop for i from 0 below num-fields
  	   collect
  	   (let ((is-null 
  		  (not (zerop (uffi:ensure-char-integer
  