projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9224: 3 May 2004 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 d07be2a5f13e3814c22694d23d003ebf3476003d..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))
@@
-209,7
+216,7
@@
(:double
(when val
(coerce
(:double
(when val
(coerce
- (read-from-string
(sqlite:sqlite-aref row i)
)
+ (read-from-string
val
)
'double-float)))))))
(sqlite:sqlite-free-row row)
t))))
'double-float)))))))
(sqlite:sqlite-free-row row)
t))))