X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-sqlite3%2Fsqlite3-sql.lisp;h=8950686f4fee2400bb22ae475e5f61dbfcc0eecf;hb=36509b8d390e94b2b0f8e681c09d5e89452978d8;hp=0d6bf70e0432eb24c3a344062c7ecc5530760d86;hpb=f7ffd9617ac7b70d330add3ad409128a9dec266f;p=clsql.git

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 0d6bf70..8950686 100644
--- a/db-sqlite3/sqlite3-sql.lisp
+++ b/db-sqlite3/sqlite3-sql.lisp
@@ -103,7 +103,8 @@
 			(t :string))))
       (loop for type in result-types
 	    collect (case type
-		      ((:int :integer :tinyint :long) :int32)
+		      ((:int :integer :tinyint) :int32)
+		      (:long #+(or x86-64 64bit) :int64 #-(or x86-64 64bit) :int32)
 		      (:bigint :int64)
 		      ((:float :double) :double)
 		      ((:numeric) :number)