diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/eval.c b/src/eval.c index 16d1cf810ea..af0912fd14f 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1881,8 +1881,7 @@ then strings and vectors are not accepted. */) have an element whose index is COMPILED_INTERACTIVE, which is where the interactive spec is stored. */ else if (COMPILEDP (fun)) - return ((ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK) > COMPILED_INTERACTIVE - ? Qt : if_prop); + return (PVSIZE (fun) > COMPILED_INTERACTIVE ? Qt : if_prop); /* Strings and vectors are keyboard macros. */ if (STRINGP (fun) || VECTORP (fun)) @@ -2922,7 +2921,7 @@ funcall_lambda (Lisp_Object fun, ptrdiff_t nargs, } else if (COMPILEDP (fun)) { - ptrdiff_t size = ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK; + ptrdiff_t size = PVSIZE (fun); if (size <= COMPILED_STACK_DEPTH) xsignal1 (Qinvalid_function, fun); syms_left = AREF (fun, COMPILED_ARGLIST); @@ -3103,7 +3102,7 @@ lambda_arity (Lisp_Object fun) } else if (COMPILEDP (fun)) { - ptrdiff_t size = ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK; + ptrdiff_t size = PVSIZE (fun); if (size <= COMPILED_STACK_DEPTH) xsignal1 (Qinvalid_function, fun); syms_left = AREF (fun, COMPILED_ARGLIST); @@ -3148,7 +3147,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode, if (COMPILEDP (object)) { - ptrdiff_t size = ASIZE (object) & PSEUDOVECTOR_SIZE_MASK; + ptrdiff_t size = PVSIZE (object); if (size <= COMPILED_STACK_DEPTH) xsignal1 (Qinvalid_function, object); if (CONSP (AREF (object, COMPILED_BYTECODE))) |