From 28d7d5ec00b7f8761e6176aa464fa66bac4b2028 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Fri, 17 Nov 2023 12:11:10 -0800
Subject: [PATCH] improve debug output in interprocess communication code

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

diff --git a/src/unixcomm.c b/src/unixcomm.c
index f106f04..856b381 100644
--- a/src/unixcomm.c
+++ b/src/unixcomm.c
@@ -518,6 +518,7 @@ LispPTR Unix_handlecomm(LispPTR *args) {
       DBPRINT(("Terminating process in slot %d.\n", slot));
       if (!valid_slot(slot)) return (ATOM_T);
       /* in all cases we need to close() the file descriptor */
+      if (slot == 0) DBPRINT(("ZERO SLOT\n"));
       close(slot);
       switch (UJ[slot].type) {
       case UJSHELL:
@@ -699,7 +700,7 @@ LispPTR Unix_handlecomm(LispPTR *args) {
         if (!valid_slot(slot)) return (NIL); /* No fd open; punt the read */
 
         bufp = (NativeAligned2FromLAddr(args[2])); /* User buffer */
-        DBPRINT(("Read buffer slot %d, type is %d\n", slot, UJ[slot].type));
+        DBPRINT(("Read buffer slot %d, type is %d buffer LAddr 0x%x (native %p)\n", slot, UJ[slot].type, args[2], bufp));
 
         switch (UJ[slot].type) {
           case UJSHELL: