comparison src/bytecode.c @ 39573:b17103d5e3c8

(Fbyte_code) <varref>: Use SYMBOL_VALUE. (Fbyte_code) <varset>: Simplify the test if symbol's value can be set directly.

39572:715a67381594

	    Lisp_Object v1, v2;

	    v1 = vectorp[op];
	    if (SYMBOLP (v1))
	      {
		v2 = XSYMBOL (v1)->value;
		if (MISCP (v2) || EQ (v2, Qunbound))
		  {
		    BEFORE_POTENTIAL_GC ();
		    v2 = Fsymbol_value (v1);
		    AFTER_POTENTIAL_GC ();

	    val = TOP;

	    /* Inline the most common case.  */
	    if (SYMBOLP (sym)
		&& !EQ (val, Qunbound)
		&& !MISCP (XSYMBOL (sym)->value)
		/* I think this should either be checked in the byte
		   compiler, or there should be a flag indicating that
		   a symbol might be constant in Lisp_Symbol, instead
		   of checking this here over and over again. --gerd.  */
		&& !EQ (sym, Qnil)
		&& !EQ (sym, Qt)
		&& !(XSYMBOL (sym)->name->data[0] == ':'
		     && EQ (XSYMBOL (sym)->obarray, initial_obarray)
		     && !EQ (val, sym)))
	      XSYMBOL (sym)->value = val;
	    else
	      {
		BEFORE_POTENTIAL_GC ();
		set_internal (sym, val, current_buffer, 0);

39573:b17103d5e3c8

	    Lisp_Object v1, v2;

	    v1 = vectorp[op];
	    if (SYMBOLP (v1))
	      {
		v2 = SYMBOL_VALUE (v1);
		if (MISCP (v2) || EQ (v2, Qunbound))
		  {
		    BEFORE_POTENTIAL_GC ();
		    v2 = Fsymbol_value (v1);
		    AFTER_POTENTIAL_GC ();

	    val = TOP;

	    /* Inline the most common case.  */
	    if (SYMBOLP (sym)
		&& !EQ (val, Qunbound)
		&& !XSYMBOL (sym)->indirect_variable
		&& !XSYMBOL (sym)->constant
		&& !MISCP (XSYMBOL (sym)->value))
	      XSYMBOL (sym)->value = val;
	    else
	      {
		BEFORE_POTENTIAL_GC ();
		set_internal (sym, val, current_buffer, 0);