From: Nathan Bird <nathan@acceleration.net>
Date: Wed, 29 Jun 2011 18:47:51 +0000 (-0400)
Subject: Adding todo
X-Git-Tag: v6.0.0~4^2~9
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=93eb4aa202e6a122f11f37ea45a7a9ced104712a

Adding todo
---

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)