From a2ad3e19d3aea7628b69630acea5badedf0f12f1 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 16 Nov 1994 03:37:56 +0000 Subject: [PATCH] (Flength): Don't call Farray_length, just use size field. --- src/fns.c | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/src/fns.c b/src/fns.c index e05afe1a77..7df032086a 100644 --- a/src/fns.c +++ b/src/fns.c @@ -101,29 +101,28 @@ A byte-code function object is also allowed.") register int i; retry: - if (VECTORP (obj) || STRINGP (obj) || COMPILEDP (obj)) - return Farray_length (obj); + if (STRINGP (obj)) + XSETFASTINT (val, XSTRING (obj)->size); + else if (VECTORP (obj) || COMPILEDP (obj)) + XSETFASTINT (val, XVECTOR (obj)->size); else if (CONSP (obj)) { - for (i = 0, tail = obj; !NILP(tail); i++) + for (i = 0, tail = obj; !NILP (tail); i++) { QUIT; tail = Fcdr (tail); } XSETFASTINT (val, i); - return val; - } - else if (NILP(obj)) - { - XSETFASTINT (val, 0); - return val; } + else if (NILP (obj)) + XSETFASTINT (val, 0); else { obj = wrong_type_argument (Qsequencep, obj); goto retry; } + return val; } DEFUN ("string-equal", Fstring_equal, Sstring_equal, 2, 2, 0, -- 2.20.1