(defun process-lock (lock) #+lispworks (mp:process-lock lock) #+sbcl (sb-thread:get-mutex lock) #-(or sbcl lispworks) (not-implemented 'process-lock))