projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9191: improve sqlite result-types processing, passes all tests
[clsql.git]
/
db-sqlite
/
sqlite-sql.lisp
diff --git
a/db-sqlite/sqlite-sql.lisp
b/db-sqlite/sqlite-sql.lisp
index 8aad430963216016f3362d1bcdc59bb086060382..befc8850e497b850a7a579923b9f679ac480034a 100644
(file)
--- a/
db-sqlite/sqlite-sql.lisp
+++ b/
db-sqlite/sqlite-sql.lisp
@@
-150,7
+150,7
@@
collect
(case type
((:int :integer :tinyint :long :bigint)
collect
(case type
((:int :integer :tinyint :long :bigint)
- :int
eger
)
+ :int
32
)
((:float :double)
:double)
((:numeric)
((:float :double)
:double)
((:numeric)
@@
-195,6
+195,13
@@
(loop for i = 0 then (1+ i)
for rest on list
do (setf (car rest)
(loop for i = 0 then (1+ i)
for rest on list
do (setf (car rest)
+ #-clisp
+ (clsql-uffi:convert-raw-field
+ (uffi:deref-array
+ (uffi:deref-pointer row 'sqlite:sqlite-row-pointer) '(:array (* :char)) i)
+ result-types
+ i)
+ #+clisp
(let ((type (if result-types
(nth i result-types)
:string))
(let ((type (if result-types
(nth i result-types)
:string))