# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980943745 0
# Node ID e197a82c328693faa87af61d0b224dca4f78392f
# Parent  9c27903fdec4f81a9e999bbb32c17ec1db3588a1
(Fmake_list): Add a QUIT in the loop; unroll the loop.

diff -r 9c27903fdec4 -r e197a82c3286 src/alloc.c
--- a/src/alloc.c	Wed Jan 31 12:14:44 2001 +0000
+++ b/src/alloc.c	Wed Jan 31 12:22:25 2001 +0000
@@ -2142,8 +2142,38 @@
   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;
 }