comparison src/bytecode.c @ 9894:a541739a1ba8

(Fbyte_code): Special case for buffer-local objects is now handled by the more general test. Simplify.
author Karl Heuer <kwzh@gnu.org>
date Fri, 11 Nov 1994 07:34:37 +0000
parents c8c24d83ac00
children c681703f7ce3
comparison
equal deleted inserted replaced
9893:8421d09f2afe 9894:a541739a1ba8
339 if (!SYMBOLP (v1)) 339 if (!SYMBOLP (v1))
340 v2 = Fsymbol_value (v1); 340 v2 = Fsymbol_value (v1);
341 else 341 else
342 { 342 {
343 v2 = XSYMBOL (v1)->value; 343 v2 = XSYMBOL (v1)->value;
344 #ifdef SWITCH_ENUM_BUG 344 if (MISCP (v2) || EQ (v2, Qunbound))
345 switch ((int) XTYPE (v2)) 345 v2 = Fsymbol_value (v1);
346 #else
347 switch (XTYPE (v2))
348 #endif
349 {
350 case Lisp_Symbol:
351 if (!EQ (v2, Qunbound))
352 break;
353 case Lisp_Misc:
354 case Lisp_Buffer_Local_Value:
355 case Lisp_Some_Buffer_Local_Value:
356 v2 = Fsymbol_value (v1);
357 }
358 } 346 }
359 PUSH (v2); 347 PUSH (v2);
360 break; 348 break;
361 349
362 case Bvarset+6: 350 case Bvarset+6: