r9133: case handling, test report summarizing, documentation additions

[clsql.git] / db-odbc / odbc-dbi.lisp

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index f9e8493f55a7a78ad762344aa543628b93ac220a..447f0409029f2310de02067602323710eb231fe6 100644 (file)
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -187,7 +187,8 @@ the query against." ))
     (unwind-protect
        (progn
          (with-slots (hstmt) query
-           (unless hstmt (setf hstmt (%new-statement-handle (hdbc db))))
+           (unless hstmt
+             (setf hstmt (%new-statement-handle (hdbc db))))
            (%table-statistics table hstmt :unique unique)
            (%initialize-query query nil nil)
            (values