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

2 files changed, 7 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 474bc2e0e26..7fb2eb208d7 100644
--- 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 a3cb505f723..ecece80229a 100644
--- 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;