+ (multiple-value-bind (error-message sql-state)
+ (handle-error (or ,henv +null-handle-ptr+)
+ (or ,hdbc +null-handle-ptr+)
+ (or ,hstmt +null-handle-ptr+))
+ (error
+ 'clsql-base:clsql-odbc-error
+ :odbc-message error-message
+ :sql-state sql-state))
+ #+ignore