From a059b67e8844c8e65992e8d712777684f4cc0983 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Fri, 11 Dec 2020 22:06:23 -0800 Subject: [PATCH] Make dremove() static in src/storage.c, there are no other references. --- inc/storagedefs.h | 1 - src/storage.c | 3 ++- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/inc/storagedefs.h b/inc/storagedefs.h index 85e3120..5fc7109 100644 --- a/inc/storagedefs.h +++ b/inc/storagedefs.h @@ -1,7 +1,6 @@ #ifndef STORAGEDEFS_H #define STORAGEDEFS_H 1 void checkfor_storagefull(register unsigned int npages); -LispPTR dremove(LispPTR x, LispPTR l); LispPTR newpage(LispPTR base); void init_storage(void); #endif diff --git a/src/storage.c b/src/storage.c index 67a0429..63001ec 100644 --- a/src/storage.c +++ b/src/storage.c @@ -45,6 +45,7 @@ static const char *id = static void advance_array_seg(register unsigned int nxtpage); static void advance_storagestate(DLword flg); +static LispPTR dremove(LispPTR x, LispPTR l); static void set_storage_state(void); /*****************************************************************/ @@ -242,7 +243,7 @@ static void set_storage_state(void) { } /* set_storage_state() end */ -LispPTR dremove(LispPTR x, LispPTR l) { +static LispPTR dremove(LispPTR x, LispPTR l) { LispPTR z; if (Listp(l) == NIL)