[rucksack-devel] CCL patch

[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


--- 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))