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

src/ChangeLog

+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

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;