From f0870da2bb5eee848a5561fb58b2ec3a63861052 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 6 Dec 2016 21:38:32 -0800 Subject: Simplify FUNCTIONP implementation * src/bytecode.c (exec_byte_code): * src/image.c (parse_image_spec): Prefer FUNCTIONP (x) to !NILP (Ffunctionp (x)). * src/eval.c (FUNCTIONP): Move here ... * src/lisp.h: ... from here. No longer inline, as that bloats the text and does not help speed (at least on my platform). (functionp): Remove this name, since callers use FUNCTIONP. --- src/dbusbind.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/dbusbind.c') diff --git a/src/dbusbind.c b/src/dbusbind.c index a0146a3bf53..23392d8dcc3 100644 --- a/src/dbusbind.c +++ b/src/dbusbind.c @@ -1309,7 +1309,7 @@ usage: (dbus-message-internal &rest REST) */) XD_DBUS_VALIDATE_PATH (path); XD_DBUS_VALIDATE_INTERFACE (interface); XD_DBUS_VALIDATE_MEMBER (member); - if (!NILP (handler) && (!FUNCTIONP (handler))) + if (!NILP (handler) && !FUNCTIONP (handler)) wrong_type_argument (Qinvalid_function, handler); } -- cgit v1.2.3