Added thread name
Sat Aug 19 18:43:22 PDT 2006 Hoan Ton-That <hoan@ton-that.org>
* Added thread name
diff -rN -u old-public_html/src/standard-transaction.lisp new-public_html-1/src/standard-transaction.lisp
--- old-public_html/src/standard-transaction.lisp 2014-07-29 13:56:47.000000000 -0700
+++ new-public_html-1/src/standard-transaction.lisp 2014-07-29 13:56:47.000000000 -0700
@@ -59,7 +59,7 @@
(return-from perform (values-list x-values)))))))
(if wait?
(funcall thunk)
- (make-thread thunk))))
+ (make-thread thunk :name (format nil "TRANSACTION-~A" (id-of tx))))))
(defmethod execute ((tx standard-transaction))
(stm.execute.dribble "Creating fresh transaction log")