[isidorus-cvs] r230 - branches/new-datamodel/src/threading trunk/src/threading - isidorus-cvs@common-lisp.net - mailman3.common-lisp.net

17 Mar 2010

Author: lgiessmann
Date: Wed Mar 17 17:35:49 2010
New Revision: 230
Log:
fixed ticket #68 --> http://trac.common-lisp.net/isidorus/ticket/68
Modified:
   branches/new-datamodel/src/threading/reader-writer.lisp
   trunk/src/threading/reader-writer.lisp
Modified: branches/new-datamodel/src/threading/reader-writer.lisp
==============================================================================

--- branches/new-datamodel/src/threading/reader-writer.lisp	(original)
+++ branches/new-datamodel/src/threading/reader-writer.lisp	Wed Mar 17 17:35:49 2010
@@ -65,5 +65,5 @@
      (do
       ((remaining-readers (current-readers) (current-readers)))
       ((null remaining-readers))
-       (sleep 0.5))
+       (sleep 0.05))
      ,@body))
\ No newline at end of file
Modified: trunk/src/threading/reader-writer.lisp
==============================================================================
--- trunk/src/threading/reader-writer.lisp	(original)
+++ trunk/src/threading/reader-writer.lisp	Wed Mar 17 17:35:49 2010
@@ -65,5 +65,5 @@
      (do
       ((remaining-readers (current-readers) (current-readers)))
       ((null remaining-readers))
-       (sleep 0.5))
+       (sleep 0.05))
      ,@body))
\ No newline at end of file

    