comparison src/bytecode.c @ 27817:09ce77df2610

(Fbyte_code): Remove keyword_symbols_constant_flag.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 23 Feb 2000 10:42:36 +0000
parents f53ecb062478
children 334ebb7a551c
comparison
equal deleted inserted replaced
27816:321027008721 27817:09ce77df2610
560 case Bvarset+6: 560 case Bvarset+6:
561 op = FETCH; 561 op = FETCH;
562 varset: 562 varset:
563 { 563 {
564 Lisp_Object sym, val; 564 Lisp_Object sym, val;
565 extern int keyword_symbols_constant_flag;
566 565
567 sym = vectorp[op]; 566 sym = vectorp[op];
568 val = POP; 567 val = POP;
569 568
570 /* Inline the most common case. */ 569 /* Inline the most common case. */
577 of checking this here over and over again. --gerd. */ 576 of checking this here over and over again. --gerd. */
578 && !EQ (sym, Qnil) 577 && !EQ (sym, Qnil)
579 && !EQ (sym, Qt) 578 && !EQ (sym, Qt)
580 && !(XSYMBOL (sym)->name->data[0] == ':' 579 && !(XSYMBOL (sym)->name->data[0] == ':'
581 && EQ (XSYMBOL (sym)->obarray, initial_obarray) 580 && EQ (XSYMBOL (sym)->obarray, initial_obarray)
582 && keyword_symbols_constant_flag
583 && !EQ (val, sym))) 581 && !EQ (val, sym)))
584 XSYMBOL (sym)->value = val; 582 XSYMBOL (sym)->value = val;
585 else 583 else
586 set_internal (sym, val, current_buffer, 0); 584 set_internal (sym, val, current_buffer, 0);
587 } 585 }