projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
(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
(%table-statistics table hstmt :unique unique)
(%initialize-query query nil nil)
(values