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