From c4752e6caab2f63ff1aa8fdb21a1cd6cc9b6cdb7 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Sat, 26 Jul 2025 17:54:17 -0700
Subject: [PATCH] Makes vmemsave.c lispstringP implementation local and updates
 header file accordingly

---
 inc/vmemsavedefs.h | 3 +--
 src/vmemsave.c     | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/inc/vmemsavedefs.h b/inc/vmemsavedefs.h
index 3b09540..b4dae60 100644
--- a/inc/vmemsavedefs.h
+++ b/inc/vmemsavedefs.h
@@ -1,7 +1,6 @@
 #ifndef VMEMSAVEDEFS_H
 #define VMEMSAVEDEFS_H 1
-#include "lispemul.h" /* for LispPTR, DLword */
-int lispstringP(LispPTR Lisp);
+#include "lispemul.h" /* for LispPTR */
 LispPTR vmem_save(char *sysout_file_name);
 LispPTR vmem_save0(LispPTR *args);
 void lisp_finish(int exit_status);
diff --git a/src/vmemsave.c b/src/vmemsave.c
index e77af0f..3ef5fac 100644
--- a/src/vmemsave.c
+++ b/src/vmemsave.c
@@ -92,7 +92,7 @@ extern int please_fork;
 /*									*/
 /************************************************************************/
 
-int lispstringP(LispPTR Lisp)
+static int lispstringP(LispPTR Lisp)
 {
   switch (((OneDArray *)(NativeAligned4FromLAddr(Lisp)))->typenumber) {
     case THIN_CHAR_TYPENUMBER: