From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 19 Nov 2009 16:13:22 +0000 (+0000)
Subject: * lread.c (Funintern): Error if symbol is t or nil.
X-Git-Tag: emacs-pretest-23.1.90~347
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82c602f0fe50051e0a67f4b85cebc82668f15510;p=emacs.git

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

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;