* data.c (Ffset): Refuse to set the function value of t or nil.

1993-05-04 02:26:53 +00:00
parent 8b0c35d952
commit e3fa7dfc18
1 changed files with 3 additions and 0 deletions
--- a/src/data.c
+++ b/src/data.c
@@ -518,6 +518,9 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
     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);