From: Kevin M. Rosenberg Date: Sun, 23 Jan 2005 05:28:03 +0000 (+0000) Subject: r10275: 22 Jan 2005 Kevin Rosenberg X-Git-Tag: v3.8.6~187 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=0f0e8321b8bd2b2d96246ec578e6ce0117806fb4 r10275: 22 Jan 2005 Kevin Rosenberg * db-sqlite/sqlite-sql.lisp, db-sqlite3/sqlite3-sql.lisp: Better support for 64 bit environments --- diff --git a/ChangeLog b/ChangeLog index 4692d3a..bb68fc8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +22 Jan 2005 Kevin Rosenberg + * db-sqlite/sqlite-sql.lisp, db-sqlite3/sqlite3-sql.lisp: + Better support for 64 bit environments + 05 Jan 2005 Kevin Rosenberg * Version 3.1.5 * sql/metaclass.lisp: Make t the default value of :set 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) 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)