Commit 7843e09c authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Flength): Unroll loop over lists.

parent 80c6cb1f
No preview for this file type
......@@ -148,11 +148,18 @@ To get the number of bytes, use `string-bytes'")
XSETFASTINT (val, XVECTOR (sequence)->size & PSEUDOVECTOR_SIZE_MASK);
else if (CONSP (sequence))
{
for (i = 0; CONSP (sequence); ++i)
i = 0;
while (CONSP (sequence))
{
if ((i & 0xff) == 0)
QUIT;
sequence = XCDR (sequence);
++i;
if (!CONSP (sequence))
break;
sequence = XCDR (sequence);
++i;
QUIT;
}
if (!NILP (sequence))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment