X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-sqlite%2Fsqlite-sql.lisp;h=be6ff906ac54ea7728dc810123da3cbd6542afd3;hb=2b89a1b56dfb8c1cdfaae36b2d4ff7382cff8b40;hp=689202ac9184b9169378c0e2846216ccb4160dc3;hpb=c8237b2b84003326358882da1d3f93919231a1de;p=clsql.git

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 689202a..be6ff90 100644
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -174,8 +174,9 @@
       (loop for type in raw-types
 	    collect
 	    (case type
-	      ((:int :integer :tinyint :long)
+	      ((:int :integer :tinyint)
 	       :int32)
+	      (:long #+(or x86-64 64bit) :int64 #-(or x86-64 64bit) :int32)
 	      (:bigint
 	       :int64)
 	      ((:float :double)