diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/alloc.c b/src/alloc.c index e911dfce35c..00a03e850d8 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -870,13 +870,13 @@ init_symbol () | |||
| 870 | DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0, | 870 | DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0, |
| 871 | "Return a newly allocated uninterned symbol whose name is NAME.\n\ | 871 | "Return a newly allocated uninterned symbol whose name is NAME.\n\ |
| 872 | Its value and function definition are void, and its property list is nil.") | 872 | Its value and function definition are void, and its property list is nil.") |
| 873 | (str) | 873 | (name) |
| 874 | Lisp_Object str; | 874 | Lisp_Object name; |
| 875 | { | 875 | { |
| 876 | register Lisp_Object val; | 876 | register Lisp_Object val; |
| 877 | register struct Lisp_Symbol *p; | 877 | register struct Lisp_Symbol *p; |
| 878 | 878 | ||
| 879 | CHECK_STRING (str, 0); | 879 | CHECK_STRING (name, 0); |
| 880 | 880 | ||
| 881 | if (symbol_free_list) | 881 | if (symbol_free_list) |
| 882 | { | 882 | { |