projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10490: 27 Apr 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
(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)
(:bigint :int64)
((:float :double) :double)
((:numeric) :number)