Commit 08623493 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Flength): Handle compiled function as pseudovector.

parent aac03cca
......@@ -103,8 +103,10 @@ A byte-code function object is also allowed.")
retry:
if (STRINGP (obj))
XSETFASTINT (val, XSTRING (obj)->size);
else if (VECTORP (obj) || COMPILEDP (obj))
else if (VECTORP (obj))
XSETFASTINT (val, XVECTOR (obj)->size);
else if (COMPILEDP (obj))
XSETFASTINT (val, XVECTOR (obj)->size & PSEUDOVECTOR_SIZE_MASK);
else if (CONSP (obj))
{
for (i = 0, tail = obj; !NILP (tail); i++)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment