1 files changed, 32 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 4134d26fbd9..4affa42e683 100644
--- 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;
 }