From da0f6a2e641cd61ecbbe1a294e4d43f3274b99d9 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 9 Jun 2008 19:20:43 +0200 Subject: [PATCH] SETQS does not check whether argument is constant, just as in SBCL. --- src/c/interpreter.d | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/c/interpreter.d b/src/c/interpreter.d index 1e373a93e..3b0f69e5a 100644 --- a/src/c/interpreter.d +++ b/src/c/interpreter.d @@ -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; }