diff options
| author | Richard M. Stallman | 2009-11-19 16:13:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2009-11-19 16:13:22 +0000 |
| commit | 82c602f0fe50051e0a67f4b85cebc82668f15510 (patch) | |
| tree | b8ddbffde21d52b7d423a8cdf48b3b54e5999d9d /src/lread.c | |
| parent | 4265deabcbde795d4e6034f3000b4c269137a5f7 (diff) | |
| download | emacs-82c602f0fe50051e0a67f4b85cebc82668f15510.tar.gz emacs-82c602f0fe50051e0a67f4b85cebc82668f15510.zip | |
* lread.c (Funintern): Error if symbol is t or nil.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index a3cb505f723..ecece80229a 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3765,6 +3765,9 @@ OBARRAY defaults to the value of the variable `obarray'. */) | |||
| 3765 | if (SYMBOLP (name) && !EQ (name, tem)) | 3765 | if (SYMBOLP (name) && !EQ (name, tem)) |
| 3766 | return Qnil; | 3766 | return Qnil; |
| 3767 | 3767 | ||
| 3768 | if (EQ (tem, Qnil) || EQ (tem, Qt)) | ||
| 3769 | error ("Attempt to unintern t or nil"); | ||
| 3770 | |||
| 3768 | XSYMBOL (tem)->interned = SYMBOL_UNINTERNED; | 3771 | XSYMBOL (tem)->interned = SYMBOL_UNINTERNED; |
| 3769 | XSYMBOL (tem)->constant = 0; | 3772 | XSYMBOL (tem)->constant = 0; |
| 3770 | XSYMBOL (tem)->indirect_variable = 0; | 3773 | XSYMBOL (tem)->indirect_variable = 0; |