mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 14:21:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove return statements without a value.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-23 12:35:45 +01:00
parent ce19c67a1b
commit 0c090e2a38
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/threads/process.d
View file

@ -380,14 +380,12 @@ mp_process_enable(cl_object process)
*/
cl_env_ptr process_env;
int ok;
if (Null(mp_get_lock_nowait(process->process.exit_lock))) {
unlikely_if (Null(mp_get_lock_nowait(process->process.exit_lock))) {
FEerror("Cannot enable the running process ~A.", 1, process);
return;
}
if (process->process.active) {
unlikely_if (process->process.active) {
mp_giveup_lock(process->process.exit_lock);
FEerror("Cannot enable the running process ~A.", 1, process);
return;
}
process_env = _ecl_alloc_env();
ecl_init_env(process_env);