From milanj at gmail.com Wed Dec 23 21:56:29 2009 From: milanj at gmail.com (Milan Jovanovic) Date: Wed, 23 Dec 2009 22:56:29 +0100 Subject: [rucksack-devel] CCL patch Message-ID: This should fix rucksack on ccl, I just did a simple test on CCL with this, but it looks that it's only thing that's platform dependent. (btw, why not using bordeaux-threads ?) Sorry if I missed something (meaby there is non-trivial thing why this is not enabled on CCL) ... I'm just starting with rucksack Milan --- rucksack.lisp.orig 2009-12-23 19:16:22.000000000 +0100 +++ rucksack.lisp 2009-12-23 19:28:06.000000000 +0100 @@ -258,7 +258,9 @@ (mp:process-lock lock) #+sbcl (sb-thread:get-mutex lock) - #-(or sbcl lispworks) + #+openmcl + (ccl::grab-lock lock) + #-(or sbcl lispworks openmcl) (not-implemented 'process-lock)) @@ -267,7 +269,9 @@ (mp:process-unlock lock) #+sbcl (sb-thread:release-mutex lock) - #-(or sbcl lispworks) + #+openmcl + (ccl:release-lock lock) + #-(or sbcl lispworks openmcl) (not-implemented 'process-unlock)) From js at crispylogics.com Thu Dec 24 07:21:47 2009 From: js at crispylogics.com (Jochen Schmidt) Date: Thu, 24 Dec 2009 08:21:47 +0100 Subject: [rucksack-devel] CCL patch In-Reply-To: References: Message-ID: <4C441FB6-F5CC-44C8-8C99-08823C6D3BF1@crispylogics.com> Am 23.12.2009 um 22:56 schrieb Milan Jovanovic: > This should fix rucksack on ccl, I just did a simple test on CCL with > this, but it looks that it's only thing that's platform dependent. > (btw, why not using bordeaux-threads ?) > Sorry if I missed something (meaby there is non-trivial thing why this > is not enabled on CCL) ... I'm just starting with rucksack > Milan I've a local version using bordeaux-threads and shared-reader locks. I wanted to make some other changes first before putting it out, but if someone wants it, just mail me. ciao, Jochen