(Fmake_list): Add a QUIT in the loop; unroll the loop.

diff --git a/src/ChangeLog b/src/ChangeLog
index b977060629d61528fbb32378425044cd8167938c..ad4cbfab5c83db6fb253f6d6f20a95b2640576a0 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-31  Gerd Moellmann  <gerd@gnu.org>
+
+       * alloc.c (Fmake_list): Add a QUIT in the loop; unroll the loop.
+
 2001-01-31  Dave Love  <fx@gnu.org>
 
        * textprop.c (Fset_text_properties): Fix newline in doc string.

diff --git a/src/alloc.c b/src/alloc.c
index 4134d26fbd911997d34c3bd0bfc1cb4a3856a07a..4affa42e6831472cd652e3fa85f4e7b44918db23 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2142,8 +2142,38 @@ DEFUN ("make-list", Fmake_list, Smake_list, 2, 2, 0,
   size = XFASTINT (length);
 
   val = Qnil;
-  while (size-- > 0)
-    val = Fcons (init, val);
+  while (size > 0)
+    {
+      val = Fcons (init, val);
+      --size;
+
+      if (size > 0)
+       {
+         val = Fcons (init, val);
+         --size;
+      
+         if (size > 0)
+           {
+             val = Fcons (init, val);
+             --size;
+      
+             if (size > 0)
+               {
+                 val = Fcons (init, val);
+                 --size;
+      
+                 if (size > 0)
+                   {
+                     val = Fcons (init, val);
+                     --size;
+                   }
+               }
+           }
+       }
+
+      QUIT;
+    }
+  
   return val;
 }