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 ,@body) #-allegro `(ele-with-lock (,lock ,@ignored) ,@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 + )