Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Added skip transaction restart on restore failure

  • Loading branch information...
commit e808986c52a0b717658d1633d38b3c93aa49caf0 1 parent d613bde
@wesen wesen authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/data/txn.lisp
View
4 src/data/txn.lisp
@@ -468,7 +468,9 @@ to the log file in an atomic group"))
(setf execution-time (- (common-lisp::get-internal-run-time) start-time)))
(retry-transaction ()
:report (lambda (stream) (format stream "Retry the transaction ~A." transaction))
- (go again))))
+ (go again))
+ (skip-transaction ()
+ :report (lambda (stream) (format stream "Skip the transaction ~A." transaction)))))
(incf (store-transaction-run-time *store*) execution-time)
retval))
Please sign in to comment.
Something went wrong with that request. Please try again.