From 33ba044dc1b387017d320ca3e54ae9cb6b908376 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Thu, 1 Sep 2022 14:15:38 -0700
Subject: [PATCH] Replace Addr68k related macros with NativeAligned inline
 functions

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

diff --git a/src/vmemsave.c b/src/vmemsave.c
index ba0720a..0e2aad6 100644
--- a/src/vmemsave.c
+++ b/src/vmemsave.c
@@ -96,7 +96,7 @@ extern int please_fork;
 
 int lispstringP(LispPTR Lisp)
 {
-  switch (((OneDArray *)(Addr68k_from_LADDR(Lisp)))->typenumber) {
+  switch (((OneDArray *)(NativeAligned4FromLAddr(Lisp)))->typenumber) {
     case THIN_CHAR_TYPENUMBER:
     case FAT_CHAR_TYPENUMBER: return (1);