github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-01 01:29:28 +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
#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);

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) {
case THIN_CHAR_TYPENUMBER: