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