diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/data.c b/src/data.c index 95cbd471d33..3763dc8adc8 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -547,8 +547,7 @@ DEFUN ("threadp", Fthreadp, Sthreadp, 1, 1, 0, | |||
| 547 | { | 547 | { |
| 548 | if (THREADP (object)) | 548 | if (THREADP (object)) |
| 549 | return Qt; | 549 | return Qt; |
| 550 | else | 550 | return Qnil; |
| 551 | return Qnil; | ||
| 552 | } | 551 | } |
| 553 | 552 | ||
| 554 | DEFUN ("mutexp", Fmutexp, Smutexp, 1, 1, 0, | 553 | DEFUN ("mutexp", Fmutexp, Smutexp, 1, 1, 0, |
| @@ -557,8 +556,7 @@ DEFUN ("mutexp", Fmutexp, Smutexp, 1, 1, 0, | |||
| 557 | { | 556 | { |
| 558 | if (MUTEXP (object)) | 557 | if (MUTEXP (object)) |
| 559 | return Qt; | 558 | return Qt; |
| 560 | else | 559 | return Qnil; |
| 561 | return Qnil; | ||
| 562 | } | 560 | } |
| 563 | 561 | ||
| 564 | DEFUN ("condition-variable-p", Fcondition_variable_p, Scondition_variable_p, | 562 | DEFUN ("condition-variable-p", Fcondition_variable_p, Scondition_variable_p, |
| @@ -568,8 +566,7 @@ DEFUN ("condition-variable-p", Fcondition_variable_p, Scondition_variable_p, | |||
| 568 | { | 566 | { |
| 569 | if (CONDVARP (object)) | 567 | if (CONDVARP (object)) |
| 570 | return Qt; | 568 | return Qt; |
| 571 | else | 569 | return Qnil; |
| 572 | return Qnil; | ||
| 573 | } | 570 | } |
| 574 | 571 | ||
| 575 | /* Extract and set components of lists. */ | 572 | /* Extract and set components of lists. */ |