- (case (database-underlying-type database)
- (:mssql (execute-command "ROLLBACK TRANSACTION" :database database))
- (t (execute-command "ROLLBACK" :database database)))
- (setf autocommit (previous-autocommit transaction))
+ (case (database-underlying-type database)
+ (:mssql (execute-command "ROLLBACK TRANSACTION" :database database))
+ (t (execute-command "ROLLBACK" :database database)))
+ (setf autocommit (previous-autocommit transaction))