(defvar *time-conversion-function*
(lambda (universal-time &optional fraction)
(declare (ignore fraction))
- (clsql-base:format-time
- nil (clsql-base:utime->time universal-time)
+ (clsql-sys:format-time
+ nil (clsql-sys:utime->time universal-time)
:format :iso)
#+ignore
universal-time)
(progn ,result-code ,@body))
(#.$SQL_INVALID_HANDLE
(error
- 'clsql-base:clsql-odbc-error
- :odbc-message "Invalid handle"))
+ 'clsql-sys:sql-database-error
+ :message "ODBC: Invalid handle"))
(#.$SQL_STILL_EXECUTING
(error
- 'clsql-base:clsql-odbc-error
- :odbc-message "Still executing"))
+ 'clsql-sys:sql-temporary-error
+ :message "ODBC: Still executing"))
(#.$SQL_ERROR
(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
+ 'clsql-sys:sql-database-error
+ :message error-message
:sql-state sql-state)))
(#.$SQL_NO_DATA_FOUND
(progn ,result-code ,@body))
(or ,hdbc +null-handle-ptr+)
(or ,hstmt +null-handle-ptr+))
(error
- 'clsql-base:clsql-odbc-error
- :odbc-message error-message
- :sql-state sql-state))
+ 'clsql-sys:sql-database-error
+ :message error-message
+ :secondary-error-id sql-state))
#+ignore
(progn ,result-code ,@body))))))