Makes vmemsave.c lispstringP implementation local and updates header file accordingly

nbriggs · nbriggs · commit c4752e6caab2 · 2025-07-26T17:54:17.000-07:00
diff --git 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
@@ -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:

Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,7 @@ extern int please_fork;`
`92`	`92`	`/* */`
`93`	`93`	`/************************************************************************/`
`94`	`94`
`95`		`-int lispstringP(LispPTR Lisp)`
	`95`	`+static int lispstringP(LispPTR Lisp)`
`96`	`96`	`{`
`97`	`97`	`switch (((OneDArray *)(NativeAligned4FromLAddr(Lisp)))->typenumber) {`
`98`	`98`	`case THIN_CHAR_TYPENUMBER:`