- (let ((db (make-instance 'db2-database
- :name (database-name-from-spec connection-spec :db2)
- :database-type :db2)))
- (db2-connect db server user password)
- db)
- (error () ;; Init or Connect failed
- (error 'sql-connection-error
- :database-type database-type
- :connection-spec connection-spec
- :message "Connection failed")))))
+ (let ((db (make-instance 'db2-database
+ :name (database-name-from-spec connection-spec :db2)
+ :database-type :db2)))
+ (db2-connect db server user password)
+ db)
+ (error () ;; Init or Connect failed
+ (error 'sql-connection-error
+ :database-type database-type
+ :connection-spec connection-spec
+ :message "Connection failed")))))