github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-01 22:26:50 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Nick Briggs
2025-07-26 17:54:17 -07:00
parent 78dfa9b243
commit c4752e6caa
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
inc/vmemsavedefs.h
View File

@@ -1,7 +1,6 @@
#ifndef VMEMSAVEDEFS_H #ifndef VMEMSAVEDEFS_H
#define VMEMSAVEDEFS_H 1 #define VMEMSAVEDEFS_H 1
#include "lispemul.h" /* for LispPTR, DLword */ #include "lispemul.h" /* for LispPTR */
int lispstringP(LispPTR Lisp);
LispPTR vmem_save(char *sysout_file_name); LispPTR vmem_save(char *sysout_file_name);
LispPTR vmem_save0(LispPTR *args); LispPTR vmem_save0(LispPTR *args);
void lisp_finish(int exit_status); void lisp_finish(int exit_status);

2
src/vmemsave.c
View File

@@ -92,7 +92,7 @@ extern int please_fork;
/* */ /* */
/************************************************************************/ /************************************************************************/
int lispstringP(LispPTR Lisp) static int lispstringP(LispPTR Lisp)
{ {
switch (((OneDArray *)(NativeAligned4FromLAddr(Lisp)))->typenumber) { switch (((OneDArray *)(NativeAligned4FromLAddr(Lisp)))->typenumber) {
case THIN_CHAR_TYPENUMBER: case THIN_CHAR_TYPENUMBER: