diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index 5fcdda1b6e8..b2e5ffe4eed 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -499,7 +499,7 @@ DEFUN ("user-ptrp", Fuser_ptrp, Suser_ptrp, 1, 1, 0, | |||
| 499 | #endif | 499 | #endif |
| 500 | 500 | ||
| 501 | DEFUN ("subrp", Fsubrp, Ssubrp, 1, 1, 0, | 501 | DEFUN ("subrp", Fsubrp, Ssubrp, 1, 1, 0, |
| 502 | doc: /* Return t if OBJECT is a built-in or native compiled Lisp function. | 502 | doc: /* Return t if OBJECT is a built-in or native-compiled Lisp function. |
| 503 | 503 | ||
| 504 | See also `primitive-function-p' and `native-comp-function-p'. */) | 504 | See also `primitive-function-p' and `native-comp-function-p'. */) |
| 505 | (Lisp_Object object) | 505 | (Lisp_Object object) |
| @@ -1046,7 +1046,7 @@ SUBR must be a built-in function. */) | |||
| 1046 | } | 1046 | } |
| 1047 | 1047 | ||
| 1048 | DEFUN ("native-comp-function-p", Fnative_comp_function_p, Snative_comp_function_p, 1, 1, | 1048 | DEFUN ("native-comp-function-p", Fnative_comp_function_p, Snative_comp_function_p, 1, 1, |
| 1049 | 0, doc: /* Return t if the object is native compiled Lisp function, nil otherwise. */) | 1049 | 0, doc: /* Return t if the object is native-compiled Lisp function, nil otherwise. */) |
| 1050 | (Lisp_Object object) | 1050 | (Lisp_Object object) |
| 1051 | { | 1051 | { |
| 1052 | return NATIVE_COMP_FUNCTIONP (object) ? Qt : Qnil; | 1052 | return NATIVE_COMP_FUNCTIONP (object) ? Qt : Qnil; |
| @@ -1054,7 +1054,7 @@ DEFUN ("native-comp-function-p", Fnative_comp_function_p, Snative_comp_function_ | |||
| 1054 | 1054 | ||
| 1055 | DEFUN ("subr-native-lambda-list", Fsubr_native_lambda_list, | 1055 | DEFUN ("subr-native-lambda-list", Fsubr_native_lambda_list, |
| 1056 | Ssubr_native_lambda_list, 1, 1, 0, | 1056 | Ssubr_native_lambda_list, 1, 1, 0, |
| 1057 | doc: /* Return the lambda list for a native compiled lisp/d | 1057 | doc: /* Return the lambda list for a native-compiled lisp/d |
| 1058 | function or t otherwise. */) | 1058 | function or t otherwise. */) |
| 1059 | (Lisp_Object subr) | 1059 | (Lisp_Object subr) |
| 1060 | { | 1060 | { |