Fdelete speed tweak for strings

* src/fns.c (Fdelete): Hoist FIXNUMP out of a loop,
and turn it into CHARACTERP.

diff --git a/src/fns.c b/src/fns.c
index ded6f344aadb1fd8224ad96daafb81eaf7796948..c89bd8144e7105db540ec43f858b7d5207c1f402 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1766,6 +1766,9 @@ changing the value of a sequence `foo'.  */)
     }
   else if (STRINGP (seq))
     {
+      if (!CHARACTERP (elt))
+       return seq;
+
       ptrdiff_t i, ibyte, nchars, nbytes, cbytes;
       int c;
 
@@ -1784,7 +1787,7 @@ changing the value of a sequence `foo'.  */)
              cbytes = 1;
            }
 
-         if (!FIXNUMP (elt) || c != XFIXNUM (elt))
+         if (c != XFIXNUM (elt))
            {
              ++nchars;
              nbytes += cbytes;
@@ -1814,7 +1817,7 @@ changing the value of a sequence `foo'.  */)
                  cbytes = 1;
                }
 
-             if (!FIXNUMP (elt) || c != XFIXNUM (elt))
+             if (c != XFIXNUM (elt))
                {
                  unsigned char *from = SDATA (seq) + ibyte;
                  unsigned char *to   = SDATA (tem) + nbytes;