From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 30 Dec 1994 01:46:04 +0000 (+0000)
Subject: (Flength): Handle compiled function as pseudovector.
X-Git-Tag: emacs-19.34~5567
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=086234937e9585fa9c7a78f4b468b2cc8abad78f;p=emacs.git

(Flength): Handle compiled function as pseudovector.
---

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++)