Added `try-take'
Fri Aug 18 22:42:42 PDT 2006 Hoan Ton-That <hoan@ton-that.org>
* Added `try-take'
diff -rN -u old-public_html/examples/cell.lisp new-public_html-1/examples/cell.lisp
--- old-public_html/examples/cell.lisp 2014-08-01 23:33:05.000000000 -0700
+++ new-public_html-1/examples/cell.lisp 2014-08-01 23:33:05.000000000 -0700
@@ -28,6 +28,9 @@
(retry)
(setf (value-of cell) val)))
+(deftransaction try-take ((cell cell))
+ (nob (take cell)))
+
(deftransaction try-put ((cell cell) val)
(nob (put cell val)))