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

SETQS does not check whether argument is constant, just as in SBCL.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-06-09 19:20:43 +02:00
parent 33861197f3
commit da0f6a2e64
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/interpreter.d
View file

@ -933,8 +933,6 @@ ecl_interpret(cl_object env, cl_object bytecodes, void *pc)
CASE(OP_PSETQS); {
cl_object var = GET_DATA(vector, bytecodes);
/* INV: Not NIL, and of type t_symbol */
if (var->symbol.stype & stp_constant)
FEassignment_to_constant(var);
ECL_SETQ(var, cl_stack_pop());
THREAD_NEXT;
}
@ -948,8 +946,6 @@ ecl_interpret(cl_object env, cl_object bytecodes, void *pc)
int nval = GET_OPARG(vector);
cl_object var = GET_DATA(vector, bytecodes);
/* INV: Not NIL, and of type t_symbol */
if (var->symbol.stype & stp_constant)
FEassignment_to_constant(var);
ECL_SETQ(var, the_env->values[nval]);
THREAD_NEXT;
}