Changeset 3384

Timestamp:

06/30/08 12:48:27 (6 months ago)

Author:

ksprotte

Message:

small fix to WITH-TRANSACTION-LOG

Files:

• trunk/bknr/datastore/src/data/txn.lisp (modified) (1 diff)

trunk/bknr/datastore/src/data/txn.lisp

@@ -430 +430 @@
-        (fsync (store-transaction-log-stream *store*)))))
-
-;;; XXX transaction evaluated twice
-(defmacro with-transaction-log ((transaction) &body body)
+  (check-type transaction symbol) ; otherwise care for multiple evaluation
-  `(with-store-guard ()
-     (when (in-transaction-p)