clisp-cvs Digest, Vol 31, Issue 36

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp/tests ChangeLog,1.593,1.594 tests.lisp,1.97,1.98
      (Vladimir Tzankov)


----------------------------------------------------------------------

Message: 1
Date: Fri, 21 Nov 2008 11:46:11 +0000
From: Vladimir Tzankov <vt...@us...>
Subject: clisp/tests ChangeLog,1.593,1.594 tests.lisp,1.97,1.98
To: cli...@li...
Message-ID: <E1L...@dd...>

Update of /cvsroot/clisp/clisp/tests
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv8889/tests

Modified Files:
	ChangeLog tests.lisp 
Log Message:
add recursive mutexes


Index: tests.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/tests.lisp,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -d -r1.97 -r1.98
--- tests.lisp	20 Nov 2008 20:23:33 -0000	1.97
+++ tests.lisp	21 Nov 2008 11:46:09 -0000	1.98
@@ -398,7 +398,7 @@
 #+(and clisp mt)
 (defun run-all-tests-parallel (&key (disable-risky t)
                                ((:eval-method *eval-method*) *eval-method*))
-  (let ((res ()) (lock (mt:make-mutex "res"))
+  (let ((res ()) (lock (mt:make-mutex :name "res"))
         (total (1+ (length *all-tests*)))
         (custom:*load-paths* nil)
         (*features* (if disable-risky *features*
@@ -407,9 +407,8 @@
                  `(mt:make-thread
                    (lambda ()
                      (let ((ans ,body))
-                       (mt:mutex-lock lock)
-                       (push ans res)
-                       (mt:mutex-unlock lock))))))
+                       (mt:with-lock (lock)
+                         (push ans res)))))))
       (dolist (args *all-tests*)
         (run (apply #'run-test args)))
       (run (test-weakptr))

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v
retrieving revision 1.593
retrieving revision 1.594
diff -u -d -r1.593 -r1.594
--- ChangeLog	20 Nov 2008 20:23:33 -0000	1.593
+++ ChangeLog	21 Nov 2008 11:46:09 -0000	1.594
@@ -1,3 +1,8 @@
+2008-11-21  Vladimir Tzankov  <vtz...@gm...>
+
+	* tests.lisp (run-all-tests-parallel): use keyword argument for mutex
+	name and WITH-LOCK for locking.
+
 2008-11-20  Sam Steingold  <sd...@gn...>
 
 	* tests.lisp (*all-tests*, test-weakptr): extracted from run-all-tests




------------------------------

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 31, Issue 36
*****************************************