r10275: 22 Jan 2005 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / db-sqlite / sqlite-sql.lisp

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 689202ac9184b9169378c0e2846216ccb4160dc3..be6ff906ac54ea7728dc810123da3cbd6542afd3 100644 (file)
--- 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)