+(defun %table-statistics (table hstmt &key unique (ensure t))
+ (with-cstrings ((table-cs table))
+ (with-error-handling (:hstmt hstmt)
+ (print hstmt)
+ (print table-cs)
+ (print (uffi:convert-from-cstring table-cs))
+ (SQLStatistics
+ hstmt
+ +null-ptr+ 0
+ +null-ptr+ 0
+ table-cs (length table) ;;$SQL_NTS
+ (if unique $SQL_INDEX_UNIQUE $SQL_INDEX_ALL)
+ (if ensure $SQL_ENSURE $SQL_QUICK)))))
+