X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-mysql%2Fmysql-sql.lisp;h=2945258de5f292f1f668a278a7f446e038d78d91;hb=2b89a1b56dfb8c1cdfaae36b2d4ff7382cff8b40;hp=5f1306811fdc2f9d6836591909cc661242ac4238;hpb=3725c24dbf01d1f7ff8eacab7844e922dc74c4f5;p=clsql.git

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 5f13068..2945258 100644
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -41,16 +41,25 @@
     (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)))
+	     (flags (uffi:get-slot-value field 'mysql-field 'mysql::flags))
+	     (unsigned (plusp (logand flags 32)))
+ 	     (type (uffi:get-slot-value field 'mysql-field 'type)))
 	(push
 	 (case type
 	   ((#.mysql-field-types#tiny 
 	     #.mysql-field-types#short
-	     #.mysql-field-types#int24
-	     #.mysql-field-types#long)
-	    :int32)
-	   (#.mysql-field-types#longlong
-	    :int64)
+	     #.mysql-field-types#int24)
+	    (if unsigned
+		:uint32
+	      :int32))
+	   (#.mysql-field-types#long
+	    (if unsigned
+		:uint
+	      :int))
+	    (#.mysql-field-types#longlong
+	     (if unsigned
+		 :uint64
+	       :int64))
 	   ((#.mysql-field-types#double
 	     #.mysql-field-types#float
 	     #.mysql-field-types#decimal)
@@ -523,7 +532,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))
 		   (binding (uffi:deref-array output-bind '(:array mysql-bind) i)))
 	      (setf (uffi:get-slot-value binding 'mysql-bind 'mysql::buffer-type) type)