[isidorus-cvs] r230 - branches/new-datamodel/src/threading trunk/src/threading

[Lukas Giessmann]

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))
      , at 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))
      , at body))
\ No newline at end of file