db)
(clsql-error (e)
(error e))
+ #+ignore
(error () ;; Init or Connect failed
(error 'clsql-connect-error
:database-type database-type
(length column-names)
nil ;; not able to return number of rows with odbc
))
+ #+ignore
(error ()
(error 'clsql-sql-error
:database database