[bknr-cvs] r2278 - branches/trunk-reorg/bknr/datastore/src/data

[bknr at bknr.net]

Author: hhubner
Date: 2007-11-14 02:13:33 -0500 (Wed, 14 Nov 2007)
New Revision: 2278

Modified:
   branches/trunk-reorg/bknr/datastore/src/data/txn.lisp
Log:
Add :SHARING :LOCK to transaction log stream open args so that it can
be used by multiple threads.


Modified: branches/trunk-reorg/bknr/datastore/src/data/txn.lisp
===================================================================
--- branches/trunk-reorg/bknr/datastore/src/data/txn.lisp	2007-11-14 07:00:51 UTC (rev 2277)
+++ branches/trunk-reorg/bknr/datastore/src/data/txn.lisp	2007-11-14 07:13:33 UTC (rev 2278)
@@ -177,7 +177,8 @@
                                          :element-type '(unsigned-byte 8)
 					 :direction :output
 					 :if-does-not-exist :create
-					 :if-exists :append)))))
+					 :if-exists :append
+                                         #+openmcl :sharing #+openmcl :lock)))))
 
 (defmethod close-transaction-log-stream ((store store))
   (with-slots (transaction-log-stream) store