* lread.c (Funintern): Error if symbol is t or nil.

diff --git a/src/ChangeLog b/src/ChangeLog
index 474bc2e0e265dd31317d37dd46834adf18ed2afb..7fb2eb208d72e5f25bb4f47c8bc2ce073e2bc9df 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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

diff --git a/src/lread.c b/src/lread.c
index a3cb505f7239d11c90e465df580896e42fcd2728..ecece80229a655489887a05592989256d5d72a70 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -3765,6 +3765,9 @@ OBARRAY defaults to the value of the variable `obarray'.  */)
   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;