changeset 2647:425c4138af31

* data.c (Ffset): Refuse to set the function value of t or nil.
author Jim Blandy <jimb@redhat.com>
date Tue, 04 May 1993 02:26:53 +0000
parents f879db79e748
children 0a8d853dfebb
files src/data.c
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Tue May 04 02:24:42 1993 +0000
+++ b/src/data.c	Tue May 04 02:26:53 1993 +0000
@@ -518,6 +518,9 @@
      register Lisp_Object sym, newdef;
 {
   CHECK_SYMBOL (sym, 0);
+  if (NILP (sym) || EQ (sym, Qt))
+    return Fsignal (Qsetting_constant, Fcons (sym, Qnil));
+
   if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound))
     Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function),
 			     Vautoload_queue);