Copious const cleanup

Removes 1554 gcc warnings of "discards ‘const’ qualifier"

Signed-off-by: Alan Coopersmith <alan.coopersmith@oracle.com>

1 files changed, 6 insertions, 7 deletions

diff --git a/lisp/private.h b/lisp/private.h
index 2e5b634..f6aeff0 100644
--- a/lisp/private.h
+++ b/lisp/private.h
@@ -373,7 +373,7 @@ struct _LispMac {
     } mem;		/* memory from Lisp*Alloc, to be release in error */
     LispModule *module;
     LispObj *modules;
-    char *prompt;
+    const char *prompt;
 
     LispObj *features;
 
@@ -407,7 +407,7 @@ struct _LispMac {
 };
 
 struct _LispCharInfo {
-    char **names;
+    const char * const *names;
 };
 
 
@@ -416,7 +416,7 @@ struct _LispCharInfo {
  */
 void LispUseArgList(LispArgList*);
 void LispFreeArgList(LispArgList*);
-LispArgList *LispCheckArguments(LispFunType, LispObj*, char*, int);
+LispArgList *LispCheckArguments(LispFunType, LispObj*, const char*, int);
 LispObj *LispListProtectedArguments(LispArgList*);
 
 LispObj *LispGetDoc(LispObj*);
@@ -441,8 +441,7 @@ void LispExportSymbol(LispObj*);
 void LispImportSymbol(LispObj*);
 
 	/* always returns the same string */
-hash_key *LispGetAtomKey(char*, int);
-char *LispGetAtomString(char*, int);
+hash_key *LispGetAtomKey(const char*, int);
 
 /* destructive fast reverse, note that don't receive a LispMac* argument */
 LispObj *LispReverse(LispObj *list);
@@ -464,7 +463,7 @@ void LispBlockUnwind(LispBlock*);
 void LispUpdateResults(LispObj*, LispObj*);
 void LispTopLevel(void);
 
-LispAtom *LispDoGetAtom(char *str, int);
+LispAtom *LispDoGetAtom(const char *str, int);
 	/* get value from atom's property list */
 LispObj *LispGetAtomProperty(LispAtom*, LispObj*);
 	/* put value in atom's property list */
@@ -515,7 +514,7 @@ void LispMoreProtects(void);
 
 /* Initialization */
 extern int LispArgList_t;
-extern LispCharInfo LispChars[256];
+extern const LispCharInfo LispChars[256];
 
 /* This function will return if the interpreter cannot be stopped */
 extern void LispSignal(int);