Mercurial > emacs
changeset 10289:9dd21ecf6b0f
(Flength): Handle compiled function as pseudovector.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 30 Dec 1994 01:46:04 +0000 |
| parents | e4a6f55757a9 |
| children | 1bcc91a4b210 |
| files | src/fns.c |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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++)