mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix noreturn of si_signal_simple_error

Browse source
This commit is contained in:
Daniel Kochmański 2016-10-06 13:07:16 +02:00
parent fe0453fc08
commit 1f2baae183
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/cinit.d
View file

@ -110,8 +110,9 @@ si_signal_simple_error(cl_narg narg, cl_object condition, cl_object continuable,
cl_object rest;
ecl_va_start(args, format_args, narg, 4);
rest = cl_grab_rest_args(args);
return cl_apply(6, @'si::signal-simple-error', condition, continuable,
format, format_args, rest);
cl_apply(6, @'si::signal-simple-error', condition, continuable,
format, format_args, rest);
_ecl_unexpected_return();
}
extern cl_object