mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-17 10:10:47 -07:00
Code Issues Projects Releases Packages Wiki Activity

stacks: elide unnecessary call to ecl_symbol_type

Browse source 
having this call makes interpreter dependent on symbol.d
This commit is contained in:
Daniel Kochmański 2026-03-12 12:54:59 +01:00
parent bc8385486b
commit cffeae0a1d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/interpreter.d
View file

@ -332,9 +332,9 @@ ecl_progv(cl_env_ptr env, cl_object vars0, cl_object values0)
return n;
} else {
cl_object var = ECL_CONS_CAR(vars);
if (!ECL_SYMBOLP(var))
if (!ECL_SYMBOLP(var) || Null(var))
FEillegal_variable_name(var);
if (ecl_symbol_type(var) & ecl_stp_constant)
if (var->symbol.stype & ecl_stp_constant)
FEbinding_a_constant(var);
if (Null(values)) {
ecl_bds_bind(env, var, OBJNULL);