From 086234937e9585fa9c7a78f4b468b2cc8abad78f Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 30 Dec 1994 01:46:04 +0000
Subject: [PATCH] (Flength): Handle compiled function as pseudovector.

---
 src/fns.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/fns.c b/src/fns.c
index e9fc6d1048d..e75493dd334 100644
--- 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++)
-- 
2.39.5