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

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

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 0d6bf70e0432eb24c3a344062c7ecc5530760d86..8950686f4fee2400bb22ae475e5f61dbfcc0eecf 100644 (file)
--- 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)