lisp_mutex_unlock (lisp_mutex_t *mutex)
{
if (mutex->owner != current_thread)
- error ("blah");
+ error ("Cannot unlock mutex owned by another thread");
if (--mutex->count > 0)
return 0;
mutex = XMUTEX (cvar->mutex);
if (!lisp_mutex_owned_p (&mutex->mutex))
- error ("fixme");
+ error ("Condition variable's mutex is not held by current thread");
flush_stack_call_func (condition_wait_callback, cvar);
mutex = XMUTEX (cvar->mutex);
if (!lisp_mutex_owned_p (&mutex->mutex))
- error ("fixme");
+ error ("Condition variable's mutex is not held by current thread");
args.cvar = cvar;
args.all = !NILP (all);
tstate = XTHREAD (thread);
if (tstate == current_thread)
- error ("cannot join current thread");
+ error ("Cannot join current thread");
if (thread_alive_p (tstate))
flush_stack_call_func (thread_join_callback, tstate);