aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
authorJim Blandy1992-01-13 21:48:08 +0000
committerJim Blandy1992-01-13 21:48:08 +0000
commit265a9e559da4ac72d154ecd638c51801b3e97847 (patch)
tree633e4dc50761c2cd5201a7874e23eee9e51aecea /src/bytecode.c
parentd427b66a664c0e1ffc818dfa5b87b45b4857d2ae (diff)
downloademacs-265a9e559da4ac72d154ecd638c51801b3e97847.tar.gz
emacs-265a9e559da4ac72d154ecd638c51801b3e97847.zip
*** empty log message ***
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c26
1 files changed, 13 insertions, 13 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index eb5b117f683..acde450299c 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -450,7 +450,7 @@ If the third argument is incorrect, Emacs may crash.")
450 450
451 case Bgotoifnil: 451 case Bgotoifnil:
452 op = FETCH2; 452 op = FETCH2;
453 if (NULL (POP)) 453 if (NILP (POP))
454 { 454 {
455 QUIT; 455 QUIT;
456 pc = XSTRING (string_saved)->data + op; 456 pc = XSTRING (string_saved)->data + op;
@@ -459,7 +459,7 @@ If the third argument is incorrect, Emacs may crash.")
459 459
460 case Bgotoifnonnil: 460 case Bgotoifnonnil:
461 op = FETCH2; 461 op = FETCH2;
462 if (!NULL (POP)) 462 if (!NILP (POP))
463 { 463 {
464 QUIT; 464 QUIT;
465 pc = XSTRING (string_saved)->data + op; 465 pc = XSTRING (string_saved)->data + op;
@@ -468,7 +468,7 @@ If the third argument is incorrect, Emacs may crash.")
468 468
469 case Bgotoifnilelsepop: 469 case Bgotoifnilelsepop:
470 op = FETCH2; 470 op = FETCH2;
471 if (NULL (TOP)) 471 if (NILP (TOP))
472 { 472 {
473 QUIT; 473 QUIT;
474 pc = XSTRING (string_saved)->data + op; 474 pc = XSTRING (string_saved)->data + op;
@@ -478,7 +478,7 @@ If the third argument is incorrect, Emacs may crash.")
478 478
479 case Bgotoifnonnilelsepop: 479 case Bgotoifnonnilelsepop:
480 op = FETCH2; 480 op = FETCH2;
481 if (!NULL (TOP)) 481 if (!NILP (TOP))
482 { 482 {
483 QUIT; 483 QUIT;
484 pc = XSTRING (string_saved)->data + op; 484 pc = XSTRING (string_saved)->data + op;
@@ -492,7 +492,7 @@ If the third argument is incorrect, Emacs may crash.")
492 break; 492 break;
493 493
494 case BRgotoifnil: 494 case BRgotoifnil:
495 if (NULL (POP)) 495 if (NILP (POP))
496 { 496 {
497 QUIT; 497 QUIT;
498 pc += *pc - 128; 498 pc += *pc - 128;
@@ -501,7 +501,7 @@ If the third argument is incorrect, Emacs may crash.")
501 break; 501 break;
502 502
503 case BRgotoifnonnil: 503 case BRgotoifnonnil:
504 if (!NULL (POP)) 504 if (!NILP (POP))
505 { 505 {
506 QUIT; 506 QUIT;
507 pc += *pc - 128; 507 pc += *pc - 128;
@@ -511,7 +511,7 @@ If the third argument is incorrect, Emacs may crash.")
511 511
512 case BRgotoifnilelsepop: 512 case BRgotoifnilelsepop:
513 op = *pc++; 513 op = *pc++;
514 if (NULL (TOP)) 514 if (NILP (TOP))
515 { 515 {
516 QUIT; 516 QUIT;
517 pc += op - 128; 517 pc += op - 128;
@@ -521,7 +521,7 @@ If the third argument is incorrect, Emacs may crash.")
521 521
522 case BRgotoifnonnilelsepop: 522 case BRgotoifnonnilelsepop:
523 op = *pc++; 523 op = *pc++;
524 if (!NULL (TOP)) 524 if (!NILP (TOP))
525 { 525 {
526 QUIT; 526 QUIT;
527 pc += op - 128; 527 pc += op - 128;
@@ -598,7 +598,7 @@ If the third argument is incorrect, Emacs may crash.")
598 { 598 {
599 if (CONSP (v1)) 599 if (CONSP (v1))
600 v1 = XCONS (v1)->cdr; 600 v1 = XCONS (v1)->cdr;
601 else if (!NULL (v1)) 601 else if (!NILP (v1))
602 { 602 {
603 immediate_quit = 0; 603 immediate_quit = 0;
604 v1 = wrong_type_argument (Qlistp, v1); 604 v1 = wrong_type_argument (Qlistp, v1);
@@ -622,7 +622,7 @@ If the third argument is incorrect, Emacs may crash.")
622 break; 622 break;
623 623
624 case Blistp: 624 case Blistp:
625 TOP = CONSP (TOP) || NULL (TOP) ? Qt : Qnil; 625 TOP = CONSP (TOP) || NILP (TOP) ? Qt : Qnil;
626 break; 626 break;
627 627
628 case Beq: 628 case Beq:
@@ -636,21 +636,21 @@ If the third argument is incorrect, Emacs may crash.")
636 break; 636 break;
637 637
638 case Bnot: 638 case Bnot:
639 TOP = NULL (TOP) ? Qt : Qnil; 639 TOP = NILP (TOP) ? Qt : Qnil;
640 break; 640 break;
641 641
642 case Bcar: 642 case Bcar:
643 v1 = TOP; 643 v1 = TOP;
644 docar: 644 docar:
645 if (CONSP (v1)) TOP = XCONS (v1)->car; 645 if (CONSP (v1)) TOP = XCONS (v1)->car;
646 else if (NULL (v1)) TOP = Qnil; 646 else if (NILP (v1)) TOP = Qnil;
647 else Fcar (wrong_type_argument (Qlistp, v1)); 647 else Fcar (wrong_type_argument (Qlistp, v1));
648 break; 648 break;
649 649
650 case Bcdr: 650 case Bcdr:
651 v1 = TOP; 651 v1 = TOP;
652 if (CONSP (v1)) TOP = XCONS (v1)->cdr; 652 if (CONSP (v1)) TOP = XCONS (v1)->cdr;
653 else if (NULL (v1)) TOP = Qnil; 653 else if (NILP (v1)) TOP = Qnil;
654 else Fcdr (wrong_type_argument (Qlistp, v1)); 654 else Fcdr (wrong_type_argument (Qlistp, v1));
655 break; 655 break;
656 656