comparison src/data.c @ 6497:89ff61b53cee

(store_symval_forwarding, Fsymbol_value): Use assignment, not initialization.

6496:e1967b6d9a5c

      break;

    case Lisp_Buffer_Objfwd:
      {
	unsigned int offset = XUINT (valcontents);
	Lisp_Object type =
	  *(Lisp_Object *)(offset + (char *)&buffer_local_types);

	if (! NILP (type) && ! NILP (newval)
	    && XTYPE (newval) != XINT (type))
	  buffer_slot_type_mismatch (valcontents, newval);
	
	*(Lisp_Object *)(XUINT (valcontents) + (char *)current_buffer)

DEFUN ("symbol-value", Fsymbol_value, Ssymbol_value, 1, 1, 0,
  "Return SYMBOL's value.  Error if that is void.")
  (sym)
     Lisp_Object sym;
{
  Lisp_Object val = find_symbol_value (sym);

  if (EQ (val, Qunbound))
    return Fsignal (Qvoid_variable, Fcons (sym, Qnil));
  else
    return val;
}

6497:89ff61b53cee

      break;

    case Lisp_Buffer_Objfwd:
      {
	unsigned int offset = XUINT (valcontents);
	Lisp_Object type;

	type = *(Lisp_Object *)(offset + (char *)&buffer_local_types);
	if (! NILP (type) && ! NILP (newval)
	    && XTYPE (newval) != XINT (type))
	  buffer_slot_type_mismatch (valcontents, newval);
	
	*(Lisp_Object *)(XUINT (valcontents) + (char *)current_buffer)

DEFUN ("symbol-value", Fsymbol_value, Ssymbol_value, 1, 1, 0,
  "Return SYMBOL's value.  Error if that is void.")
  (sym)
     Lisp_Object sym;
{
  Lisp_Object val;

  val = find_symbol_value (sym);
  if (EQ (val, Qunbound))
    return Fsignal (Qvoid_variable, Fcons (sym, Qnil));
  else
    return val;
}