From a17460cd6b324b3f1bcf8813037fe0b741528d61 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Wed, 28 Dec 2022 14:16:19 -0800
Subject: [PATCH] Remove unused atom_to_str() function and the warning it
 generates

---
 inc/subrdefs.h | 2 --
 src/subr.c     | 9 ---------
 2 files changed, 11 deletions(-)

diff --git a/inc/subrdefs.h b/inc/subrdefs.h
index 205f327..fa69cb4 100644
--- a/inc/subrdefs.h
+++ b/inc/subrdefs.h
@@ -1,6 +1,4 @@
 #ifndef SUBRDEFS_H
 #define SUBRDEFS_H 1
-#include "lispemul.h" /* for LispPTR */
-char *atom_to_str(LispPTR atom_index);
 void OP_subrcall(int subr_no, int argnum);
 #endif
diff --git a/src/subr.c b/src/subr.c
index 585ad29..7c9ee9e 100644
--- a/src/subr.c
+++ b/src/subr.c
@@ -77,15 +77,6 @@ extern LispPTR *PENDINGINTERRUPT68k;
 */
 /***********************************************************/
 
-char *atom_to_str(LispPTR atom_index) {
-  PNCell *pnptr;
-  char *pname_base;
-
-  pnptr = (PNCell *)GetPnameCell(atom_index);
-  pname_base = (char *)NativeAligned2FromLAddr(pnptr->pnamebase);
-  return (pname_base + 1);
-} /*atom_to_str*/
-
 #define POP_SUBR_ARGS                                       \
   do {                                                      \
     args[0] = NIL_PTR;                                      \