[elephant-cvs] CVS elephant/src/utils

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/utils
In directory clnet:/tmp/cvs-serv583/utils

Modified Files:
	locks.lisp 
Log Message:
Updated lock.lisp to support process ids

--- /project/elephant/cvsroot/elephant/src/utils/locks.lisp	2007/02/03 00:57:34	1.1
+++ /project/elephant/cvsroot/elephant/src/utils/locks.lisp	2007/02/09 17:11:53	1.2
@@ -52,3 +52,12 @@
   #+allegro `(excl:without-interrupts , at body)
   #-allegro `(ele-with-lock (,lock , at ignored) , at body))
 
+(defun ele-thread-hash-key ()
+"This routine has to return something unqiue about the thread which can serve as a hash key."
+  #+sbcl  sb-thread::*current-thread*
+  #+allegro mp:*current-process*
+  #+cmu mp:*current-process*
+  #+mcl ccl:*current-process*
+  #+lispworks mp:*current-process*
+  #-(or allegro sbcl cmu lispworks mcl) nil
+  )