Make `sleep-after' return all values
Fri Aug 25 00:38:42 PDT 2006 Hoan Ton-That <hoan@ton-that.org>
* Make `sleep-after' return all values
diff -rN -u old-public_html/examples/utils.lisp new-public_html-1/examples/utils.lisp
--- old-public_html/examples/utils.lisp 2014-07-22 18:41:03.000000000 -0700
+++ new-public_html-1/examples/utils.lisp 2014-07-22 18:41:03.000000000 -0700
@@ -5,7 +5,7 @@
;;;; ** Miscellaneous utilities
(deftransaction sleep-after ((tx transaction) secs)
- (prog1 tx (sleep secs)))
+ (multiple-value-prog1 tx (sleep secs)))
(deftransaction nob ((tx transaction))
(try (multiple-value-call #'values t tx)