From a0e703678cf0b761622be3f3ae7a63bf0516c4a3 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Fri, 25 Jul 2025 17:52:34 -0700
Subject: [PATCH] Replaces (expanded) lisp string base access pattern with
 STRING_BASE macro

---
 src/osmsg.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/osmsg.c b/src/osmsg.c
index 929b95f..6644d5a 100644
--- a/src/osmsg.c
+++ b/src/osmsg.c
@@ -233,15 +233,13 @@ LispPTR mess_read(LispPTR *args)
   struct stat sbuf;
   int size, save_size;
   char *base;
-  LispPTR *naddress;
   int i;
   static char temp_buf[MESSAGE_BUFFER_SIZE];
 
   SETJMP(NIL);
 
   /* Get buff address from LISP */
-  naddress = (LispPTR *)(NativeAligned4FromLAddr(args[0]));
-  base = (char *)(NativeAligned2FromLAddr(((OneDArray *)naddress)->base));
+  STRING_BASE(args[0], base);
 
   close(log_id);
   TIMEOUT(log_id = open(logfile, O_RDONLY));