From ae5eea1a294b49092e25d44b8917917612cb13f7 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Wed, 8 Jul 2020 18:40:53 -0700
Subject: [PATCH] Reduce excessive sleep after waiting for a process to exit
 (1s -> 10us)

---
 src/unixcomm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/unixcomm.c b/src/unixcomm.c
index f8ba960..a51fe1f 100644
--- a/src/unixcomm.c
+++ b/src/unixcomm.c
@@ -701,7 +701,7 @@ LispPTR Unix_handlecomm(LispPTR *args) {
                    debugged.  So we time it out just be safe. */
                 if (UJ[slot].status != -1) break;
                 wait_for_comm_processes();
-                sleep(1);
+                usleep(10);
               }
             }
             break;