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

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)