From 82c602f0fe50051e0a67f4b85cebc82668f15510 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 19 Nov 2009 16:13:22 +0000 Subject: [PATCH] * lread.c (Funintern): Error if symbol is t or nil. --- src/ChangeLog | 4 ++++ src/lread.c | 3 +++ 2 files changed, 7 insertions(+) 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 + + * lread.c (Funintern): Error if symbol is t or nil. + 2009-11-19 Stefan Monnier * 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; -- 2.39.5