X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite%2Fsqlite-sql.lisp;h=befc8850e497b850a7a579923b9f679ac480034a;hp=8aad430963216016f3362d1bcdc59bb086060382;hb=e7359cb3f285d3a53b768b13484caf11bc6f47b1;hpb=270e7b5d19d51c1a19d30b54996d89576c63d358

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 8aad430..befc885 100644
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -150,7 +150,7 @@
 	    collect
 	    (case type
 	      ((:int :integer :tinyint :long :bigint)
-	       :integer)
+	       :int32)
 	      ((:float :double)
 	       :double)
 	      ((:numeric)
@@ -195,6 +195,13 @@
 	  (loop for i = 0 then (1+ i)
 		for rest on list
 		do (setf (car rest)
+			 #-clisp
+			 (clsql-uffi:convert-raw-field
+			  (uffi:deref-array
+			   (uffi:deref-pointer row 'sqlite:sqlite-row-pointer) '(:array (* :char)) i)
+			  result-types
+			  i)
+			 #+clisp
 			 (let ((type (if result-types
 					 (nth i result-types)
 					 :string))