# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1258647202 0
# Node ID 0fba14676688df6c3ff8c3c94e1b4edd2d31f674
# Parent  499b069a42da11893821bcb0bc5c75d4a7d3cfa3
* lread.c (Funintern): Error if symbol is t or nil.

diff -r 499b069a42da -r 0fba14676688 src/ChangeLog
--- 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
diff -r 499b069a42da -r 0fba14676688 src/lread.c
--- 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;