Mercurial > emacs
changeset 106117:0fba14676688
* lread.c (Funintern): Error if symbol is t or nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 Nov 2009 16:13:22 +0000 |
| parents | 499b069a42da |
| children | 8542a4738a96 |
| files | src/ChangeLog src/lread.c |
| diffstat | 2 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Thu Nov 19 09:25:40 2009 +0000 +++ b/src/ChangeLog Thu Nov 19 16:13:22 2009 +0000 @@ -1,3 +1,7 @@ +2009-11-19 Richard Stallman <rms@gnu.org> + + * lread.c (Funintern): Error if symbol is t or nil. + 2009-11-19 Stefan Monnier <monnier@iro.umontreal.ca> * insdel.c (make_gap_larger): Don't make as many assumptions about the
--- a/src/lread.c Thu Nov 19 09:25:40 2009 +0000 +++ b/src/lread.c Thu Nov 19 16:13:22 2009 +0000 @@ -3765,6 +3765,9 @@ if (SYMBOLP (name) && !EQ (name, tem)) return Qnil; + if (EQ (tem, Qnil) || EQ (tem, Qt)) + error ("Attempt to unintern t or nil"); + XSYMBOL (tem)->interned = SYMBOL_UNINTERNED; XSYMBOL (tem)->constant = 0; XSYMBOL (tem)->indirect_variable = 0;