projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d7de408
)
Adding todo
author
Nathan Bird
<nathan@acceleration.net>
Wed, 29 Jun 2011 18:47:51 +0000
(14:47 -0400)
committer
Nathan Bird
<nathan@acceleration.net>
Thu, 30 Jun 2011 21:13:18 +0000
(17:13 -0400)
db-odbc/odbc-dbi.lisp
patch
|
blob
|
history
diff --git
a/db-odbc/odbc-dbi.lisp
b/db-odbc/odbc-dbi.lisp
index 3abce4aa8015e0a564574cb8381b22d4d19e00b7..319a8cc1ccea95dc97dfd0cc2974e29d69f4bee7 100644
(file)
--- a/
db-odbc/odbc-dbi.lisp
+++ b/
db-odbc/odbc-dbi.lisp
@@
-328,7
+328,7
@@
the query against." ))
(cond ((< 0 precision (query-width query))
(read-data data-ptr c-type sql-type out-len-ptr result-type))
((zerop (get-cast-long out-len-ptr))
(cond ((< 0 precision (query-width query))
(read-data data-ptr c-type sql-type out-len-ptr result-type))
((zerop (get-cast-long out-len-ptr))
- nil)
+
nil)
(t
(read-data-in-chunks hstmt j data-ptr c-type sql-type
out-len-ptr result-type))))))))
(t
(read-data-in-chunks hstmt j data-ptr c-type sql-type
out-len-ptr result-type))))))))
@@
-450,6
+450,7
@@
This makes the functions db-execute-command and db-query thread safe."
;; get column information
(initialize-column col-nr))))
;; get column information
(initialize-column col-nr))))
+ ;; TODO: move this into the above loop
(setf computed-result-types (make-array column-count))
(dotimes (i column-count)
(setf (aref computed-result-types i)
(setf computed-result-types (make-array column-count))
(dotimes (i column-count)
(setf (aref computed-result-types i)