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

CHARACTERP, BASE_CHAR_P, BASE_CHAR_CODE_P, CODE_CHAR, CHAR_CODE, REAL_TYPE, IMMEDIATE, IMMEDIATE_TAG, FIXNUM_TAG, FIXNUM_MINUSP, FIXNUM_PLUSP, FIXNUMP and fix get the ecl_ prefix

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-06-06 11:19:55 +02:00
parent 6f2fd54130
commit 64a9168434
109 changed files with 1489 additions and 1438 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/c/instance.d
View file

@ -91,9 +91,9 @@ si_instance_ref(cl_object x, cl_object index)
if (ecl_unlikely(!ECL_INSTANCEP(x)))
FEwrong_type_nth_arg(@[si::instance-ref], 1, x, @[ext::instance]);
if (ecl_unlikely(!FIXNUMP(index)))
if (ecl_unlikely(!ECL_FIXNUMP(index)))
FEwrong_type_nth_arg(@[si::instance-ref], 2, index, @[fixnum]);
i = fix(index);
i = ecl_fix(index);
if (ecl_unlikely(i < 0 || i >= (cl_fixnum)x->instance.length))
FEtype_error_index(x, i);
@(return x->instance.slots[i])
@ -106,9 +106,9 @@ si_instance_ref_safe(cl_object x, cl_object index)
if (ecl_unlikely(!ECL_INSTANCEP(x)))
FEwrong_type_nth_arg(@[si::instance-ref], 1, x, @[ext::instance]);
if (ecl_unlikely(!FIXNUMP(index)))
if (ecl_unlikely(!ECL_FIXNUMP(index)))
FEwrong_type_nth_arg(@[si::instance-ref], 2, index, @[fixnum]);
i = fix(index);
i = ecl_fix(index);
if (ecl_unlikely(i < 0 || i >= x->instance.length))
FEtype_error_index(x, i);
x = x->instance.slots[i];
@ -135,9 +135,9 @@ si_instance_set(cl_object x, cl_object index, cl_object value)
if (ecl_unlikely(!ECL_INSTANCEP(x)))
FEwrong_type_nth_arg(@[si::instance-set], 1, x, @[ext::instance]);
if (ecl_unlikely(!FIXNUMP(index)))
if (ecl_unlikely(!ECL_FIXNUMP(index)))
FEwrong_type_nth_arg(@[si::instance-set], 2, index, @[fixnum]);
i = fix(index);
i = ecl_fix(index);
if (ecl_unlikely(i >= (cl_fixnum)x->instance.length || i < 0))
FEtype_error_index(x, i);
x->instance.slots[i] = value;
@ -147,7 +147,7 @@ si_instance_set(cl_object x, cl_object index, cl_object value)
cl_object
si_instancep(cl_object x)
{
@(return (ECL_INSTANCEP(x) ? MAKE_FIXNUM(x->instance.length) : Cnil))
@(return (ECL_INSTANCEP(x) ? ecl_make_fixnum(x->instance.length) : Cnil))
}
cl_object
@ -171,9 +171,9 @@ si_sl_makunbound(cl_object x, cl_object index)
if (ecl_unlikely(!ECL_INSTANCEP(x)))
FEwrong_type_nth_arg(@[si::sl-makunbound], 1, x, @[ext::instance]);
if (ecl_unlikely(!FIXNUMP(index)))
if (ecl_unlikely(!ECL_FIXNUMP(index)))
FEwrong_type_nth_arg(@[si::sl-makunbound], 2, index, @[fixnum]);
i = fix(index);
i = ecl_fix(index);
unlikely_if (i >= x->instance.length || i < 0)
FEtype_error_index(x, i);
x->instance.slots[i] = ECL_UNBOUND;