From 93eb4aa202e6a122f11f37ea45a7a9ced104712a Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Wed, 29 Jun 2011 14:47:51 -0400 Subject: [PATCH] Adding todo --- db-odbc/odbc-dbi.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp index 3abce4a..319a8cc 100644 --- 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)) - nil) + nil) (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)))) + ;; 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) -- 2.34.1