diff options
| author | Jim Blandy | 1992-01-13 21:48:08 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-01-13 21:48:08 +0000 |
| commit | 265a9e559da4ac72d154ecd638c51801b3e97847 (patch) | |
| tree | 633e4dc50761c2cd5201a7874e23eee9e51aecea /src/bytecode.c | |
| parent | d427b66a664c0e1ffc818dfa5b87b45b4857d2ae (diff) | |
| download | emacs-265a9e559da4ac72d154ecd638c51801b3e97847.tar.gz emacs-265a9e559da4ac72d154ecd638c51801b3e97847.zip | |
*** empty log message ***
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 26 |
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 | ||