# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 767661697 0
# Node ID b6aa3d718d8abd9c3768d3e404c8af17f3180e00
# Parent  a5199564772e55bca5da3f29928e6acf6721add4
(Ffset, Ffmakunbound): Signal an error if SYM is nil or t.

diff -r a5199564772e -r b6aa3d718d8a src/data.c
--- a/src/data.c	Fri Apr 29 23:16:43 1994 +0000
+++ b/src/data.c	Fri Apr 29 23:21:37 1994 +0000
@@ -506,6 +506,8 @@
      register Lisp_Object sym;
 {
   CHECK_SYMBOL (sym, 0);
+  if (NILP (sym) || EQ (sym, Qt))
+    return Fsignal (Qsetting_constant, Fcons (sym, Qnil));
   XSYMBOL (sym)->function = Qunbound;
   return sym;
 }
@@ -546,7 +548,8 @@
      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);