Make `nob' return the values of the transaction its given
Fri Aug 18 23:12:56 PDT 2006 Hoan Ton-That <hoan@ton-that.org>
* Make `nob' return the values of the transaction its given
diff -rN -u old-public_html/examples/utils.lisp new-public_html-1/examples/utils.lisp
--- old-public_html/examples/utils.lisp 2014-07-29 22:07:23.000000000 -0700
+++ new-public_html-1/examples/utils.lisp 2014-07-29 22:07:23.000000000 -0700
@@ -8,7 +8,8 @@
(prog1 tx (sleep secs)))
(deftransaction nob ((tx transaction))
- (try (progn tx t) nil))
+ (try (multiple-value-call #'values t tx)
+ nil))
(deftransaction repeat ((tx transaction) n)
(if (zerop n)