diff options
Diffstat (limited to 'lisp/private.h')
| -rw-r--r-- | lisp/private.h | 13 |
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); |