X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-dbi.lisp;h=447f0409029f2310de02067602323710eb231fe6;hb=967266c94b00f91e5967b8330fe2b9134b0c0447;hp=f9e8493f55a7a78ad762344aa543628b93ac220a;hpb=db9892632e6eb7869aea7a94c16b523a82de1501;p=clsql.git

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index f9e8493..447f040 100644
--- 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