Mercurial > emacs

comparison src/fns.c @ 10289:9dd21ecf6b0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Flength): Handle compiled function as pseudovector.
author Richard M. Stallman <rms@gnu.org>
date Fri, 30 Dec 1994 01:46:04 +0000
parents 6f6db8f5b8a0
children 609f34c0c7bc
comparison
equal deleted inserted replaced
10288:e4a6f55757a9 10289:9dd21ecf6b0f
101 register int i; 101 register int i;
102 102
103 retry: 103 retry:
104 if (STRINGP (obj)) 104 if (STRINGP (obj))
105 XSETFASTINT (val, XSTRING (obj)->size); 105 XSETFASTINT (val, XSTRING (obj)->size);
106 else if (VECTORP (obj) || COMPILEDP (obj)) 106 else if (VECTORP (obj))
107 XSETFASTINT (val, XVECTOR (obj)->size); 107 XSETFASTINT (val, XVECTOR (obj)->size);
108 else if (COMPILEDP (obj))
109 XSETFASTINT (val, XVECTOR (obj)->size & PSEUDOVECTOR_SIZE_MASK);
108 else if (CONSP (obj)) 110 else if (CONSP (obj))
109 { 111 {
110 for (i = 0, tail = obj; !NILP (tail); i++) 112 for (i = 0, tail = obj; !NILP (tail); i++)
111 { 113 {
112 QUIT; 114 QUIT;