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

Revert "Merge branch 'develop' into 'develop'"

Browse source 
This reverts commit b75802f122, reversing
changes made to 5e3ccb1955.
This commit is contained in:
Daniel Kochmanski 2017-05-26 14:38:52 +02:00
parent a095f6a4ee
commit cf416f6fd4
20 changed files with 18 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/error.d
View file

@ -125,15 +125,12 @@ void
FEerror(const char *s, int narg, ...)
{
ecl_va_list args;
cl_object rest;
ecl_va_start(args, narg, narg, 0);
ecl_enable_interrupts();
rest = cl_grab_rest_args(args);
ecl_va_end(args);
funcall(4, @'si::universal-error-handler',
ECL_NIL, /* not correctable */
make_constant_base_string(s), /* condition text */
rest);
cl_grab_rest_args(args));
_ecl_unexpected_return();
}