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

Fixed use of FEtype_error_index

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-09 23:03:22 +01:00
parent 358233204a
commit e91a793052
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/instance.d
View file

@ -14,8 +14,9 @@
See file '../Copyright' for full details.
*/
#include <ecl/ecl.h>
#include <string.h>
#include <ecl/ecl.h>
#include <ecl/internal.h>
cl_object
ecl_allocate_instance(cl_object clas, cl_index size)
@ -173,7 +174,7 @@ si_sl_makunbound(cl_object x, cl_object index)
if (ecl_unlikely(!FIXNUMP(index)))
FEwrong_type_nth_arg(@[si::sl-makunbound], 2, index, @[fixnum]);
i = fix(index);
if (ecl_unlikely((i >= x->instance.length || i < 0))
unlikely_if (i >= x->instance.length || i < 0)
FEtype_error_index(x, i);
x->instance.slots[i] = ECL_UNBOUND;
@(return x)