(Flength): Handle compiled function as pseudovector.

diff --git a/src/fns.c b/src/fns.c
index e9fc6d1..e75493d 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -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++)