# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 788751964 0
# Node ID 9dd21ecf6b0faeb034597262e347e895d2fd0a3b
# Parent  e4a6f55757a9a4f82bacef9d929a831fc94a3391
(Flength): Handle compiled function as pseudovector.

diff -r e4a6f55757a9 -r 9dd21ecf6b0f src/fns.c
--- a/src/fns.c	Fri Dec 30 01:41:27 1994 +0000
+++ b/src/fns.c	Fri Dec 30 01:46:04 1994 +0000
@@ -103,8 +103,10 @@
  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++)